%!PS-Adobe-3.0 EPSF-3.0 TE371-2 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/TE37/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (TE371-2) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill %******************************************** /xt0 0800 def /xt1 0800 450 add def /yt0 3725 def /ytd 250 def 050 yt0 0 ytd mul sub moveto TBIM tfw TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde xt1 yt0 1 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt1 yt0 2 ytd mul sub moveto TBM (observer AD) showen (Beobachter AD) showde tfw 550 400 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke TBM /tx [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(00) (10) (20) (30) (40) (50)] def %!x-Achse: 1 log-Einheit = 700 Skalen-Einheiten 0 1 6 {/i exch def /ixt { -250 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 Einheit = 700 Skalen-Einheiten 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth %tfr [100 100] 0 setdash %2000 0000 moveto 0000 2600 rlineto stroke tfw %[ ] 0 setdash %tfg [100 100] 0 setdash %2130 0000 moveto 0000 2700 rlineto stroke tfw %[ ] 0 setdash 3900 100 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowY {tfy 0 -70 rmoveto TBK (Y) show 0 70 rmoveto tfw} def /ishowB {tfb 0 -70 rmoveto TBK (B) show 0 70 rmoveto tfw} def /ishowR {tfr 0 -70 rmoveto TBK (R) show 0 70 rmoveto tfw} def /ishowG {tfg 0 -70 rmoveto TBK (G) show 0 70 rmoveto tfw} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {0 100 rmoveto TBM (2) show 0 100 rmoveto} def /x0 3650 def /x1 3800 def /x2 4050 def /x3 4200 def /y1 1700 def /yd 300 def tfw x0 y1 moveto TBIM (L) show ishowg x2 y1 moveto TBM (cd/m) show eshow2 newpath newpath tfn x1 y1 yd 1 mul sub 100 add 50 000 360 arc fill tfw x3 y1 yd 1 mul sub moveto (6,3) show newpath tfn x1 y1 yd 2 mul sub 100 add 50 090 270 arc fill tfw x1 y1 yd 2 mul sub 100 add 50 -90 90 arc fill tfw x3 y1 yd 2 mul sub moveto (63) show newpath tfw x1 y1 yd 3 mul sub 100 add 50 000 360 arc fill tfw x3 y1 yd 3 mul sub moveto (630) show x1 y1 yd 4.1 mul sub moveto TBIM (t) show ishowp TBM (=0,1s) show 1600 y1 yd 4.1 mul sub moveto TBIM (x) show ishowg TBM (=0,34 ) show TBIM (y) show ishowg TBM (=0,40) show 1600 y1 yd 5.1 mul sub moveto TBIM (x) show ishowR TBM (=0,58 ) show TBIM (y) show ishowR TBM (=0,32) show /xgr 18 array def /ygr 18 array def %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ % Programm: AVR2DA05.FOR 2014_01_03 % Output file: AVR2DA05.TXT 2014_01_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %410000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys 410017 0.3604 0.4043 42.32 0.1333E+04 0.0000 0.0000 1.81 1 3 1 1 14 0.5697E+02 0.1271E+02 0.4033E+00 410027 0.3604 0.4043 16.71 0.5265E+03 0.0000 0.0000 0.57 1 3 1 1 14 0.1801E+02 0.1170E+01 0.3714E-01 410037 0.3604 0.4043 7.70 0.2425E+03 0.0000 0.0000 0.24 1 3 1 1 14 0.7675E+01 0.1433E+01 0.4548E-01 410047 0.3604 0.4043 4.15 0.1306E+03 0.0000 0.0000 0.19 1 3 1 1 14 0.6031E+01 0.5952E+00 0.1889E-01 410057 0.3604 0.4043 2.30 0.7231E+02 0.0000 0.0000 0.14 1 3 1 0 14 0.4505E+01 0.2017E+00 0.6404E-02 410067 0.3604 0.4043 1.29 0.4064E+02 0.0000 0.0000 0.09 1 3 1 0 14 0.2877E+01 0.1081E+00 0.3432E-02 410077 0.3604 0.4043 1.69 0.5332E+02 0.0000 0.0000 0.13 1 3 1 0 14 0.4095E+01 0.2053E+00 0.6519E-02 410087 0.3604 0.4043 0.67 0.2106E+02 0.0000 0.0000 0.08 1 3 1 0 14 0.2505E+01 0.5418E-01 0.1720E-02 410097 0.3604 0.4043 0.31 0.9700E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1875E+01 0.6588E-01 0.2092E-02 410107 0.3604 0.4043 0.17 0.5225E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1483E+01 0.5457E-01 0.1732E-02 410117 0.3604 0.4043 0.09 0.2892E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1482E+01 0.2829E-01 0.8981E-03 410127 0.3604 0.4043 0.05 0.1625E+01 0.0000 0.0000 0.04 1 3 1 0 14 0.1412E+01 0.1213E+00 0.3850E-02 ] def /IM 11 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM /xfact 700 def /yfact 700 def tfw 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM tfw 630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 415017 0.3604 0.4043 423.20 0.1333E+04 0.0000 0.0000 66.22 1 3 1 0 14 0.2086E+03 0.2730E+02 0.8668E+01 415027 0.3604 0.4043 167.14 0.5265E+03 0.0000 0.0000 13.73 1 3 1 0 14 0.4326E+02 0.3780E+01 0.1200E+01 415037 0.3604 0.4043 76.99 0.2425E+03 0.0000 0.0000 4.28 1 3 1 1 14 0.1348E+02 0.2211E+00 0.7020E-01 415047 0.3604 0.4043 41.47 0.1306E+03 0.0000 0.0000 1.99 1 3 1 1 14 0.6276E+01 0.5507E+00 0.1748E+00 415057 0.3604 0.4043 22.96 0.7231E+02 0.0000 0.0000 0.79 1 3 1 1 14 0.2500E+01 0.1331E+00 0.4224E-01 415067 0.3604 0.4043 12.90 0.4064E+02 0.0000 0.0000 0.47 1 3 1 1 14 0.1483E+01 0.8168E-01 0.2593E-01 415077 0.3604 0.4043 16.93 0.5332E+02 0.0000 0.0000 0.71 1 3 1 1 14 0.2246E+01 0.1891E+00 0.6002E-01 415087 0.3604 0.4043 6.69 0.2106E+02 0.0000 0.0000 0.31 1 3 1 1 14 0.9755E+00 0.5487E-01 0.1742E-01 415097 0.3604 0.4043 3.08 0.9700E+01 0.0000 0.0000 0.22 1 3 1 1 14 0.6865E+00 0.3318E-01 0.1053E-01 415107 0.3604 0.4043 1.66 0.5225E+01 0.0000 0.0000 0.13 1 3 1 0 14 0.4244E+00 0.2876E-01 0.9130E-02 415117 0.3604 0.4043 0.92 0.2892E+01 0.0000 0.0000 0.12 1 3 1 0 14 0.3854E+00 0.3055E-01 0.9697E-02 415127 0.3604 0.4043 0.52 0.1625E+01 0.0000 0.0000 0.10 1 3 1 0 14 0.3240E+00 0.1032E-01 0.3276E-02 415137 0.3604 0.4043 0.63 0.1998E+01 0.0000 0.0000 0.13 1 3 1 0 14 0.4006E+00 0.1895E-01 0.6015E-02 415147 0.3604 0.4043 0.25 0.7936E+00 0.0000 0.0000 0.09 1 3 1 0 14 0.2959E+00 0.6317E-02 0.2005E-02 415157 0.3604 0.4043 0.12 0.3724E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2470E+00 0.8307E-02 0.2637E-02 415167 0.3604 0.4043 0.06 0.2037E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2318E+00 0.3816E-02 0.1211E-02 415177 0.3604 0.4043 0.04 0.1149E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2211E+00 0.1139E-01 0.3616E-02 415187 0.3604 0.4043 0.02 0.6411E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2160E+00 0.1001E-01 0.3177E-02 ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM tfn xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke tfw xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM tfn 63 log 2 add xfact mul 0 50 090 270 arc fill tfw 63 log 2 add xfact mul 0 50 -90 090 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 420017 0.3604 0.4043 4231.97 0.1333E+04 0.0000 0.0000 952.19 1 3 1 0 14 0.2999E+03 0.4613E+02 0.1465E+03 420027 0.3604 0.4043 1671.36 0.5265E+03 0.0000 0.0000 460.73 1 3 1 0 14 0.1451E+03 0.1056E+02 0.3354E+02 420037 0.3604 0.4043 769.85 0.2425E+03 0.0000 0.0000 121.54 1 3 1 0 14 0.3828E+02 0.9241E+00 0.2934E+01 420047 0.3604 0.4043 414.69 0.1306E+03 0.0000 0.0000 34.87 1 3 1 0 14 0.1098E+02 0.2045E+01 0.6493E+01 420057 0.3604 0.4043 229.56 0.7231E+02 0.0000 0.0000 14.40 1 3 1 0 14 0.4537E+01 0.8394E+00 0.2665E+01 420067 0.3604 0.4043 129.00 0.4064E+02 0.0000 0.0000 8.50 1 3 1 0 14 0.2679E+01 0.5477E+00 0.1739E+01 420077 0.3604 0.4043 169.28 0.5332E+02 0.0000 0.0000 20.42 1 3 1 0 14 0.6434E+01 0.2194E+00 0.6966E+00 420087 0.3604 0.4043 66.85 0.2106E+02 0.0000 0.0000 6.01 1 3 1 1 14 0.1892E+01 0.5315E-01 0.1687E+00 420097 0.3604 0.4043 30.79 0.9700E+01 0.0000 0.0000 2.70 1 3 1 1 14 0.8512E+00 0.2407E-01 0.7641E-01 420107 0.3604 0.4043 16.59 0.5225E+01 0.0000 0.0000 1.20 1 3 1 1 14 0.3772E+00 0.1617E-01 0.5132E-01 420117 0.3604 0.4043 9.18 0.2892E+01 0.0000 0.0000 0.57 1 3 1 1 14 0.1800E+00 0.1316E-01 0.4179E-01 420127 0.3604 0.4043 5.16 0.1625E+01 0.0000 0.0000 0.32 1 3 1 1 14 0.1004E+00 0.7650E-02 0.2429E-01 420137 0.3604 0.4043 6.34 0.1998E+01 0.0000 0.0000 0.57 1 3 1 1 14 0.1792E+00 0.1289E-01 0.4093E-01 420147 0.3604 0.4043 2.52 0.7936E+00 0.0000 0.0000 0.38 1 3 1 1 14 0.1196E+00 0.3634E-02 0.1154E-01 420157 0.3604 0.4043 1.18 0.3724E+00 0.0000 0.0000 0.27 1 3 1 0 14 0.8528E-01 0.5636E-02 0.1789E-01 420167 0.3604 0.4043 0.65 0.2037E+00 0.0000 0.0000 0.23 1 3 1 0 14 0.7141E-01 0.4095E-02 0.1300E-01 420177 0.3604 0.4043 0.36 0.1149E+00 0.0000 0.0000 0.21 1 3 1 0 14 0.6568E-01 0.3077E-02 0.9770E-02 420187 0.3604 0.4043 0.20 0.6411E-01 0.0000 0.0000 0.19 1 3 1 0 14 0.5890E-01 0.1772E-02 0.5626E-02 %499999 END,79 characters in any data line ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM tfn /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM 6.3 log 2 add xfact mul 0 50 00 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ % Programm: AVR2DA08.FOR 2014_01_03 % Output file: AVR2DA08.TXT 2014_01_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %410000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys 413017 0.5838 0.3232 2.14 0.6745E+02 0.0000 0.0000 0.11 1 3 1 0 14 0.3514E+01 0.1859E+00 0.5901E-02 413027 0.5838 0.3232 0.85 0.2664E+02 0.0000 0.0000 0.05 1 3 1 0 14 0.1730E+01 0.8818E-01 0.2799E-02 413037 0.5838 0.3232 0.39 0.1227E+02 0.0000 0.0000 0.04 1 3 1 0 14 0.1341E+01 0.3972E-01 0.1261E-02 413047 0.5838 0.3232 0.21 0.6610E+01 0.0000 0.0000 0.03 1 3 1 0 14 0.9577E+00 0.5336E-01 0.1694E-02 413057 0.5838 0.3232 0.12 0.3659E+01 0.0000 0.0000 0.03 1 3 1 0 14 0.8569E+00 0.1614E-01 0.5123E-03 413067 0.5838 0.3232 0.07 0.2056E+01 0.0000 0.0000 0.03 1 3 1 0 14 0.8734E+00 0.3095E-01 0.9824E-03 413077 0.5838 0.3232 0.09 0.2698E+01 0.0000 0.0000 0.03 1 3 1 0 14 0.1097E+01 0.6330E-01 0.2009E-02 413087 0.5838 0.3232 0.03 0.1066E+01 0.0000 0.0000 0.03 1 3 1 0 14 0.9209E+00 0.8438E-01 0.2679E-02 413097 0.5838 0.3232 0.02 0.4908E+00 0.0000 0.0000 0.03 1 3 1 0 14 0.9194E+00 0.2208E-01 0.7010E-03 413107 0.5838 0.3232 0.01 0.2644E+00 0.0000 0.0000 0.03 1 3 1 0 14 0.8005E+00 0.2893E-01 0.9183E-03 413117 0.5838 0.3232 0.00 0.1464E+00 0.0000 0.0000 0.03 1 3 1 0 14 0.8909E+00 0.2194E-01 0.6965E-03 413127 0.5838 0.3232 0.00 0.8225E-01 0.0000 0.0000 0.03 1 3 1 0 14 0.8291E+00 0.1284E-01 0.4077E-03 ] def /IM 11 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM /xfact 700 def /yfact 700 def tfr 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM %tfw %630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 418017 0.5838 0.3232 21.41 0.6745E+02 0.0000 0.0000 1.99 1 3 1 1 14 0.6269E+01 0.8815E+00 0.2799E+00 418027 0.5838 0.3232 8.46 0.2664E+02 0.0000 0.0000 0.71 1 3 1 1 14 0.2226E+01 0.1683E+00 0.5342E-01 418037 0.5838 0.3232 3.90 0.1227E+02 0.0000 0.0000 0.28 1 3 1 1 14 0.8676E+00 0.7266E-01 0.2307E-01 418047 0.5838 0.3232 2.10 0.6610E+01 0.0000 0.0000 0.15 1 3 1 0 14 0.4733E+00 0.3468E-01 0.1101E-01 418057 0.5838 0.3232 1.16 0.3659E+01 0.0000 0.0000 0.11 1 3 1 0 14 0.3486E+00 0.4892E-01 0.1553E-01 418067 0.5838 0.3232 0.65 0.2056E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2190E+00 0.2378E-01 0.7550E-02 418077 0.5838 0.3232 0.86 0.2698E+01 0.0000 0.0000 0.11 1 3 1 0 14 0.3401E+00 0.3070E-01 0.9747E-02 418087 0.5838 0.3232 0.34 0.1066E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2104E+00 0.1452E-01 0.4610E-02 418097 0.5838 0.3232 0.16 0.4908E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.1857E+00 0.6877E-02 0.2183E-02 418107 0.5838 0.3232 0.08 0.2644E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1543E+00 0.1257E-01 0.3990E-02 418117 0.5838 0.3232 0.05 0.1464E+00 0.0000 0.0000 0.04 1 3 1 0 14 0.1375E+00 0.7096E-02 0.2253E-02 418127 0.5838 0.3232 0.03 0.8225E-01 0.0000 0.0000 0.04 1 3 1 0 14 0.1257E+00 0.4114E-02 0.1306E-02 ] def /IM 11 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM /xfact 700 def /yfact 700 def 0.0 1.0 1.0 0.3 setcmyk_olvcolor 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM %tfw %630 log 2 add xfact mul 0 50 000 360 arc fill %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 423017 0.5838 0.3232 214.14 0.6745E+02 0.0000 0.0000 28.54 1 3 1 0 14 0.8991E+01 0.5812E+00 0.1845E+01 423027 0.5838 0.3232 84.57 0.2664E+02 0.0000 0.0000 10.64 1 3 1 1 14 0.3352E+01 0.9485E-01 0.3011E+00 423037 0.5838 0.3232 38.95 0.1227E+02 0.0000 0.0000 4.60 1 3 1 1 14 0.1450E+01 0.1137E+00 0.3608E+00 423047 0.5838 0.3232 20.98 0.6610E+01 0.0000 0.0000 1.76 1 3 1 1 14 0.5533E+00 0.4604E-01 0.1461E+00 423057 0.5838 0.3232 11.62 0.3659E+01 0.0000 0.0000 0.83 1 3 1 1 14 0.2615E+00 0.1213E-01 0.3852E-01 423067 0.5838 0.3232 6.53 0.2056E+01 0.0000 0.0000 0.41 1 3 1 1 14 0.1304E+00 0.2103E-02 0.6677E-02 423077 0.5838 0.3232 8.57 0.2698E+01 0.0000 0.0000 1.64 1 3 1 1 14 0.5169E+00 0.1450E-01 0.4604E-01 423087 0.5838 0.3232 3.38 0.1066E+01 0.0000 0.0000 0.47 1 3 1 1 14 0.1493E+00 0.5678E-02 0.1802E-01 423097 0.5838 0.3232 1.56 0.4908E+00 0.0000 0.0000 0.24 1 3 1 0 14 0.7608E-01 0.4316E-02 0.1370E-01 423107 0.5838 0.3232 0.84 0.2644E+00 0.0000 0.0000 0.16 1 3 1 0 14 0.5108E-01 0.2960E-02 0.9397E-02 423117 0.5838 0.3232 0.46 0.1464E+00 0.0000 0.0000 0.13 1 3 1 0 14 0.3965E-01 0.1821E-02 0.5782E-02 423127 0.5838 0.3232 0.26 0.8225E-01 0.0000 0.0000 0.10 1 3 1 0 14 0.3215E-01 0.1010E-02 0.3207E-02 423137 0.5838 0.3232 0.32 0.1011E+00 0.0000 0.0000 0.16 1 3 1 0 14 0.4934E-01 0.1778E-02 0.5644E-02 423147 0.5838 0.3232 0.13 0.4016E-01 0.0000 0.0000 0.16 1 3 1 0 14 0.5094E-01 0.2568E-02 0.8152E-02 423157 0.5838 0.3232 0.06 0.1884E-01 0.0000 0.0000 0.15 1 3 1 0 14 0.4847E-01 0.4454E-02 0.1414E-01 423167 0.5838 0.3232 0.03 0.1030E-01 0.0000 0.0000 0.14 1 3 1 0 14 0.4540E-01 0.4132E-02 0.1312E-01 423177 0.5838 0.3232 0.02 0.5813E-02 0.0000 0.0000 0.14 1 3 1 0 14 0.4505E-01 0.3590E-02 0.1140E-01 423187 0.5838 0.3232 0.01 0.3244E-02 0.0000 0.0000 0.14 1 3 1 0 14 0.4295E-01 0.3595E-02 0.1141E-01 %499999 END,79 characters in any data line ] def /IM 17 def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 4 add def /j2 i 16 mul 13 add def xgr i AVR2_10_7 j1 get put ygr i AVR2_10_7 j1 get AVR2_10_7 j2 get div put } for %i=0,IM 0.0 1.0 1.0 0.6 setcmyk_olvcolor /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 -50 rmoveto 100 100 rlineto stroke xgr i get log 2 add xfact mul ygr i get log 2 add yfact mul moveto -50 50 rmoveto 100 -100 rlineto stroke } for %i=0,IM showpage grestore %%Trailer