%!PS-Adobe-3.0 EPSF-3.0 TE371-4 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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 pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %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-4) 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 ishowG TBM (=0,25 ) show TBIM (y) show ishowG TBM (=0,44) 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 0 1 11 {/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 11 {/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 0 1 17 {/i exch def %i=0,17 /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,17 /xfact 700 def /yfact 700 def 0 1 17 {/i exch def %i=0,17 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,17 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 0 1 17 {/i exch def %i=0,17 /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,17 tfn /xfact 700 def /yfact 700 def 0 1 17 {/i exch def %i=0,17 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,17 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: AVR2DA09.FOR 2014_01_03 % Output file: AVR2DA09.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 414017 0.2552 0.4446 4.03 0.1269E+03 0.0000 0.0000 0.33 1 3 1 1 14 0.1055E+02 0.9698E+00 0.3079E-01 414027 0.2552 0.4446 1.59 0.5012E+02 0.0000 0.0000 0.19 1 3 1 0 14 0.6078E+01 0.3359E+00 0.1066E-01 414037 0.2552 0.4446 0.73 0.2309E+02 0.0000 0.0000 0.13 1 3 1 0 14 0.4042E+01 0.1787E+00 0.5673E-02 414047 0.2552 0.4446 0.39 0.1244E+02 0.0000 0.0000 0.11 1 3 1 0 14 0.3392E+01 0.4362E+00 0.1385E-01 414057 0.2552 0.4446 0.22 0.6884E+01 0.0000 0.0000 0.08 1 3 1 0 14 0.2482E+01 0.1958E+00 0.6217E-02 414067 0.2552 0.4446 0.12 0.3868E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2143E+01 0.2709E+00 0.8600E-02 414077 0.2552 0.4446 0.16 0.5076E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2236E+01 0.1620E+00 0.5144E-02 414087 0.2552 0.4446 0.06 0.2005E+01 0.0000 0.0000 0.06 1 3 1 0 14 0.1812E+01 0.1107E+00 0.3514E-02 414097 0.2552 0.4446 0.03 0.9235E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1662E+01 0.3124E-01 0.9919E-03 414107 0.2552 0.4446 0.02 0.4974E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1655E+01 0.3848E-01 0.1222E-02 414117 0.2552 0.4446 0.01 0.2754E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1633E+01 0.4376E-01 0.1389E-02 414127 0.2552 0.4446 0.00 0.1547E+00 0.0000 0.0000 0.05 1 3 1 0 14 0.1473E+01 0.1152E+00 0.3656E-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 tfg 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 [ 419017 0.2552 0.4446 40.29 0.1269E+03 0.0000 0.0000 3.22 1 3 1 1 14 0.1013E+02 0.7332E+00 0.2328E+00 419027 0.2552 0.4446 15.91 0.5012E+02 0.0000 0.0000 1.03 1 3 1 1 14 0.3256E+01 0.7361E-01 0.2337E-01 419037 0.2552 0.4446 7.33 0.2309E+02 0.0000 0.0000 0.48 1 3 1 1 14 0.1528E+01 0.4395E-01 0.1395E-01 419047 0.2552 0.4446 3.95 0.1244E+02 0.0000 0.0000 0.33 1 3 1 1 14 0.1048E+01 0.4447E-01 0.1412E-01 419057 0.2552 0.4446 2.19 0.6884E+01 0.0000 0.0000 0.21 1 3 1 0 14 0.6572E+00 0.2203E-01 0.6995E-02 419067 0.2552 0.4446 1.23 0.3868E+01 0.0000 0.0000 0.15 1 3 1 0 14 0.4761E+00 0.2533E-01 0.8041E-02 419077 0.2552 0.4446 1.61 0.5076E+01 0.0000 0.0000 0.19 1 3 1 0 14 0.6033E+00 0.3533E-01 0.1122E-01 419087 0.2552 0.4446 0.64 0.2005E+01 0.0000 0.0000 0.12 1 3 1 0 14 0.3651E+00 0.1268E-01 0.4026E-02 419097 0.2552 0.4446 0.29 0.9235E+00 0.0000 0.0000 0.10 1 3 1 0 14 0.3261E+00 0.4958E-02 0.1574E-02 419107 0.2552 0.4446 0.16 0.4974E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2268E+00 0.1766E-01 0.5607E-02 419117 0.2552 0.4446 0.09 0.2754E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2261E+00 0.1439E-01 0.4567E-02 419127 0.2552 0.4446 0.05 0.1547E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.2047E+00 0.1375E-01 0.4365E-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 1.0 0.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 [ 421017 0.2552 0.4446 402.88 0.1269E+03 0.0000 0.0000 70.63 1 3 1 0 14 0.2225E+02 0.1304E+01 0.4141E+01 424027 0.2552 0.4446 159.11 0.5012E+02 0.0000 0.0000 19.80 1 3 1 0 14 0.6238E+01 0.3039E+00 0.9646E+00 424037 0.2552 0.4446 73.29 0.2309E+02 0.0000 0.0000 7.89 1 3 1 1 14 0.2485E+01 0.9405E-01 0.2986E+00 424047 0.2552 0.4446 39.48 0.1244E+02 0.0000 0.0000 4.15 1 3 1 1 14 0.1306E+01 0.1245E+00 0.3952E+00 424057 0.2552 0.4446 21.85 0.6884E+01 0.0000 0.0000 2.04 1 3 1 1 14 0.6415E+00 0.2602E-01 0.8259E-01 424067 0.2552 0.4446 12.28 0.3868E+01 0.0000 0.0000 0.88 1 3 1 1 14 0.2765E+00 0.5557E-02 0.1764E-01 424077 0.2552 0.4446 16.12 0.5076E+01 0.0000 0.0000 1.67 1 3 1 1 14 0.5254E+00 0.5088E-01 0.1615E+00 424087 0.2552 0.4446 6.36 0.2005E+01 0.0000 0.0000 0.51 1 3 1 1 14 0.1607E+00 0.9218E-02 0.2926E-01 424097 0.2552 0.4446 2.93 0.9235E+00 0.0000 0.0000 0.36 1 3 1 1 14 0.1129E+00 0.3924E-02 0.1246E-01 424107 0.2552 0.4446 1.58 0.4974E+00 0.0000 0.0000 0.25 1 3 1 0 14 0.7751E-01 0.7864E-02 0.2496E-01 424117 0.2552 0.4446 0.87 0.2754E+00 0.0000 0.0000 0.21 1 3 1 0 14 0.6680E-01 0.3724E-02 0.1182E-01 424127 0.2552 0.4446 0.49 0.1547E+00 0.0000 0.0000 0.16 1 3 1 0 14 0.5072E-01 0.2592E-02 0.8229E-02 424137 0.2552 0.4446 0.60 0.1902E+00 0.0000 0.0000 0.24 1 3 1 0 14 0.7492E-01 0.6336E-02 0.2011E-01 424147 0.2552 0.4446 0.24 0.7555E-01 0.0000 0.0000 0.21 1 3 1 0 14 0.6605E-01 0.3027E-02 0.9608E-02 424157 0.2552 0.4446 0.11 0.3545E-01 0.0000 0.0000 0.20 1 3 1 0 14 0.6336E-01 0.3805E-02 0.1208E-01 424167 0.2552 0.4446 0.06 0.1939E-01 0.0000 0.0000 0.20 1 3 1 0 14 0.6368E-01 0.1096E-02 0.3480E-02 424177 0.2552 0.4446 0.03 0.1094E-01 0.0000 0.0000 0.21 1 3 1 0 14 0.6602E-01 0.7244E-02 0.2300E-01 424187 0.2552 0.4446 0.02 0.6103E-02 0.0000 0.0000 0.18 1 3 1 0 14 0.5798E-01 0.1602E-02 0.5085E-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 1.0 0.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