%!PS-Adobe-3.0 EPSF-3.0 TE370-2 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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 pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %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 (TE370-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 sensitivity) showen (Leuchtdichte\255Kontrast\255Empfindlich\255) showde xt1 yt0 1 ytd mul sub moveto TBM (threshold) showen TBM (keitsschwelle) 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 /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {0 100 rmoveto TBM (2) show 0 100 rmoveto} def /x0 3400 def /x1 3700 def /x2 4300 def /y1 2400 def /yd 300 def tfw x1 y1 moveto TBIM (x) show x2 y1 moveto TBIM (y) show tfw x0 y1 yd sub moveto (A) show tfy x0 y1 yd 2 mul sub moveto (Y) show tfb x0 y1 yd 3 mul sub moveto (B) show tfr x0 y1 yd 4 mul sub moveto (R) show tfg x0 y1 yd 5 mul sub moveto (G) show %C suround chromaticity: x=0.3442, y=0.4043, see page 13 %C central field chromaticity, page 13 %C Yellow x=0.4500 y=0.4693 %C Blue x=0.2468 y=0.1914 %C Red x=0.5838 y=0.3232 %C Green x=0.2552 y=0.4446 tfw x1 y1 yd sub moveto (0,34) show x2 y1 yd sub moveto (0,40) show x1 y1 yd 2 mul sub moveto (0,45) show x2 y1 yd 2 mul sub moveto (0,47) show x1 y1 yd 3 mul sub moveto (0,25) show x2 y1 yd 3 mul sub moveto (0,19) show x1 y1 yd 4 mul sub moveto (0,58) show x2 y1 yd 4 mul sub moveto (0,32) show x1 y1 yd 5 mul sub moveto (0,25) show x2 y1 yd 5 mul sub moveto (0,44) show 1400 y1 yd 6.5 mul sub moveto TBIM (L) show ishowg TBM (=6,3cd/m) show eshow2 newpath x0 y1 yd 6.5 mul sub moveto TBIM (t) show ishowp TBM (=26s) 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: AVR2DA04.FOR 2014_01_03 % Output file: AVR2DA04.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 420016 0.3604 0.4043 4231.97 0.1333E+04 0.0000 0.0000 135.66 1 3 1 0 14 0.4273E+02 0.8240E+00 0.2616E+01 420026 0.3604 0.4043 1671.36 0.5265E+03 0.0000 0.0000 55.93 1 3 1 0 14 0.1762E+02 0.1983E+01 0.6297E+01 420036 0.3604 0.4043 769.85 0.2425E+03 0.0000 0.0000 24.37 1 3 1 0 14 0.7677E+01 0.8809E+00 0.2797E+01 420046 0.3604 0.4043 414.69 0.1306E+03 0.0000 0.0000 12.44 1 3 1 0 14 0.3919E+01 0.1770E+00 0.5618E+00 420056 0.3604 0.4043 229.56 0.7231E+02 0.0000 0.0000 6.31 1 3 1 0 14 0.1987E+01 0.1177E+00 0.3736E+00 420066 0.3604 0.4043 129.00 0.4064E+02 0.0000 0.0000 4.49 1 3 1 0 14 0.1416E+01 0.2342E-01 0.7434E-01 420076 0.3604 0.4043 169.28 0.5332E+02 0.0000 0.0000 4.89 1 3 1 0 14 0.1540E+01 0.3256E-01 0.1034E+00 420086 0.3604 0.4043 66.85 0.2106E+02 0.0000 0.0000 1.90 1 3 1 1 14 0.5994E+00 0.9929E-02 0.3152E-01 420096 0.3604 0.4043 30.79 0.9700E+01 0.0000 0.0000 0.94 1 3 1 1 14 0.2958E+00 0.5625E-02 0.1786E-01 420106 0.3604 0.4043 16.59 0.5225E+01 0.0000 0.0000 0.52 1 3 1 1 14 0.1629E+00 0.7577E-02 0.2406E-01 420116 0.3604 0.4043 9.18 0.2892E+01 0.0000 0.0000 0.30 1 3 1 1 14 0.9502E-01 0.6670E-02 0.2117E-01 420126 0.3604 0.4043 5.16 0.1625E+01 0.0000 0.0000 0.23 1 3 1 1 14 0.7180E-01 0.5322E-02 0.1690E-01 420136 0.3604 0.4043 6.34 0.1998E+01 0.0000 0.0000 0.28 1 3 1 1 14 0.8945E-01 0.5413E-02 0.1718E-01 420146 0.3604 0.4043 2.52 0.7936E+00 0.0000 0.0000 0.15 1 3 1 1 14 0.4780E-01 0.9977E-03 0.3167E-02 420156 0.3604 0.4043 1.18 0.3724E+00 0.0000 0.0000 0.10 1 3 1 0 14 0.3225E-01 0.2639E-02 0.8378E-02 420166 0.3604 0.4043 0.65 0.2037E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2403E-01 0.1999E-03 0.6347E-03 420176 0.3604 0.4043 0.36 0.1149E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.1835E-01 0.9555E-03 0.3033E-02 420186 0.3604 0.4043 0.20 0.6411E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1782E-01 0.2857E-03 0.9071E-03 ] 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 3 add xfact mul ygr i get log 3 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke tfw xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 421016 0.4500 0.4693 1137.98 0.3585E+03 0.0000 0.0000 46.95 1 3 1 0 14 0.1479E+02 0.1753E+00 0.5565E+00 421026 0.4500 0.4693 449.43 0.1416E+03 0.0000 0.0000 19.88 1 3 1 0 14 0.6263E+01 0.1113E+00 0.3534E+00 421036 0.4500 0.4693 207.01 0.6521E+02 0.0000 0.0000 10.10 1 3 1 0 14 0.3182E+01 0.1225E+00 0.3889E+00 421046 0.4500 0.4693 111.51 0.3513E+02 0.0000 0.0000 5.03 1 3 1 0 14 0.1584E+01 0.5555E-01 0.1764E+00 421056 0.4500 0.4693 61.73 0.1944E+02 0.0000 0.0000 3.14 1 3 1 1 14 0.9902E+00 0.3544E-01 0.1125E+00 421066 0.4500 0.4693 34.69 0.1093E+02 0.0000 0.0000 1.78 1 3 1 1 14 0.5622E+00 0.2122E-01 0.6738E-01 421076 0.4500 0.4693 45.52 0.1434E+02 0.0000 0.0000 2.11 1 3 1 1 14 0.6662E+00 0.6495E-02 0.2062E-01 421086 0.4500 0.4693 17.98 0.5663E+01 0.0000 0.0000 0.95 1 3 1 1 14 0.2983E+00 0.1041E-01 0.3303E-01 421096 0.4500 0.4693 8.28 0.2608E+01 0.0000 0.0000 0.47 1 3 1 1 14 0.1475E+00 0.4906E-02 0.1558E-01 421106 0.4500 0.4693 4.46 0.1405E+01 0.0000 0.0000 0.30 1 3 1 1 14 0.9359E-01 0.7716E-03 0.2450E-02 421116 0.4500 0.4693 2.47 0.7778E+00 0.0000 0.0000 0.19 1 3 1 0 14 0.5965E-01 0.2103E-02 0.6677E-02 421126 0.4500 0.4693 1.39 0.4371E+00 0.0000 0.0000 0.15 1 3 1 0 14 0.4822E-01 0.1515E-02 0.4811E-02 421136 0.4500 0.4693 1.71 0.5372E+00 0.0000 0.0000 0.16 1 3 1 0 14 0.4980E-01 0.1847E-02 0.5865E-02 421146 0.4500 0.4693 0.68 0.2134E+00 0.0000 0.0000 0.09 1 3 1 0 14 0.2966E-01 0.2689E-03 0.8537E-03 421156 0.4500 0.4693 0.32 0.1001E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2218E-01 0.7792E-03 0.2474E-02 421166 0.4500 0.4693 0.17 0.5476E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1881E-01 0.1186E-02 0.3767E-02 421176 0.4500 0.4693 0.10 0.3089E-01 0.0000 0.0000 0.05 1 3 1 0 14 0.1608E-01 0.3209E-03 0.1019E-02 421186 0.4500 0.4693 0.05 0.1724E-01 0.0000 0.0000 0.05 1 3 1 0 14 0.1492E-01 0.3563E-03 0.1131E-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 tfy /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 422016 0.1468 0.1914 120.61 0.3799E+02 0.0000 0.0000 5.77 1 3 1 0 14 0.1819E+01 0.1166E+00 0.3702E+00 422026 0.1468 0.1914 47.63 0.1500E+02 0.0000 0.0000 2.80 1 3 1 1 14 0.8805E+00 0.4289E-01 0.1362E+00 422036 0.1468 0.1914 21.94 0.6911E+01 0.0000 0.0000 1.40 1 3 1 1 14 0.4404E+00 0.6449E-02 0.2047E-01 422046 0.1468 0.1914 11.82 0.3723E+01 0.0000 0.0000 0.82 1 3 1 1 14 0.2597E+00 0.5258E-02 0.1669E-01 422056 0.1468 0.1914 6.54 0.2061E+01 0.0000 0.0000 0.52 1 3 1 1 14 0.1625E+00 0.6821E-02 0.2165E-01 422066 0.1468 0.1914 3.68 0.1158E+01 0.0000 0.0000 0.33 1 3 1 1 14 0.1043E+00 0.1343E-01 0.4262E-01 422076 0.1468 0.1914 4.82 0.1520E+01 0.0000 0.0000 0.41 1 3 1 1 14 0.1289E+00 0.4584E-02 0.1455E-01 422086 0.1468 0.1914 1.91 0.6002E+00 0.0000 0.0000 0.23 1 3 1 0 14 0.7251E-01 0.1543E-02 0.4899E-02 422096 0.1468 0.1914 0.88 0.2765E+00 0.0000 0.0000 0.14 1 3 1 0 14 0.4322E-01 0.1052E-02 0.3338E-02 422106 0.1468 0.1914 0.47 0.1489E+00 0.0000 0.0000 0.10 1 3 1 0 14 0.3072E-01 0.1167E-02 0.3704E-02 422116 0.1468 0.1914 0.26 0.8244E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2358E-01 0.1010E-02 0.3207E-02 422126 0.1468 0.1914 0.15 0.4632E-01 0.0000 0.0000 0.05 1 3 1 0 14 0.1607E-01 0.5052E-03 0.1604E-02 422136 0.1468 0.1914 0.18 0.5693E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1764E-01 0.3759E-03 0.1193E-02 422146 0.1468 0.1914 0.07 0.2262E-01 0.0000 0.0000 0.05 1 3 1 0 14 0.1559E-01 0.2397E-03 0.7609E-03 422156 0.1468 0.1914 0.03 0.1061E-01 0.0000 0.0000 0.04 1 3 1 0 14 0.1358E-01 0.6850E-03 0.2175E-02 422166 0.1468 0.1914 0.02 0.5804E-02 0.0000 0.0000 0.04 1 3 1 0 14 0.1233E-01 0.7337E-03 0.2329E-02 422176 0.1468 0.1914 0.01 0.3274E-02 0.0000 0.0000 0.04 1 3 1 0 14 0.1195E-01 0.4658E-03 0.1479E-02 422186 0.1468 0.1914 0.01 0.1827E-02 0.0000 0.0000 0.04 1 3 1 0 14 0.1148E-01 0.8497E-03 0.2698E-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 tfb /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 423016 0.5838 0.3232 214.14 0.6745E+02 0.0000 0.0000 5.89 1 3 1 0 14 0.1854E+01 0.1798E-01 0.5708E-01 423026 0.5838 0.3232 84.57 0.2664E+02 0.0000 0.0000 2.32 1 3 1 1 14 0.7312E+00 0.5024E-01 0.1595E+00 423036 0.5838 0.3232 38.95 0.1227E+02 0.0000 0.0000 1.21 1 3 1 1 14 0.3811E+00 0.1896E-01 0.6018E-01 423046 0.5838 0.3232 20.98 0.6610E+01 0.0000 0.0000 0.64 1 3 1 1 14 0.2018E+00 0.4694E-02 0.1490E-01 423056 0.5838 0.3232 11.62 0.3659E+01 0.0000 0.0000 0.36 1 3 1 1 14 0.1147E+00 0.6683E-02 0.2121E-01 423066 0.5838 0.3232 6.53 0.2056E+01 0.0000 0.0000 0.25 1 3 1 1 14 0.7966E-01 0.2492E-02 0.7911E-02 423076 0.5838 0.3232 8.57 0.2698E+01 0.0000 0.0000 0.34 1 3 1 1 14 0.1061E+00 0.8750E-03 0.2778E-02 423086 0.5838 0.3232 3.38 0.1066E+01 0.0000 0.0000 0.14 1 3 1 1 14 0.4536E-01 0.4236E-02 0.1345E-01 423096 0.5838 0.3232 1.56 0.4908E+00 0.0000 0.0000 0.10 1 3 1 0 14 0.3036E-01 0.1543E-02 0.4899E-02 423106 0.5838 0.3232 0.84 0.2644E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.1929E-01 0.1821E-02 0.5782E-02 423116 0.5838 0.3232 0.46 0.1464E+00 0.0000 0.0000 0.04 1 3 1 0 14 0.1250E-01 0.7716E-03 0.2450E-02 423126 0.5838 0.3232 0.26 0.8225E-01 0.0000 0.0000 0.03 1 3 1 0 14 0.9644E-02 0.8750E-03 0.2778E-02 423136 0.5838 0.3232 0.32 0.1011E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.2000E-01 0.3535E-02 0.1122E-01 423146 0.5838 0.3232 0.13 0.4016E-01 0.0000 0.0000 0.04 1 3 1 0 14 0.1106E-01 0.5468E-03 0.1736E-02 423156 0.5838 0.3232 0.06 0.1884E-01 0.0000 0.0000 0.03 1 3 1 0 14 0.8832E-02 0.6206E-03 0.1970E-02 423166 0.5838 0.3232 0.03 0.1030E-01 0.0000 0.0000 0.03 1 3 1 0 14 0.8331E-02 0.1312E-03 0.4164E-03 423176 0.5838 0.3232 0.02 0.5813E-02 0.0000 0.0000 0.02 1 3 1 0 14 0.7829E-02 0.1652E-03 0.5245E-03 423186 0.5838 0.3232 0.01 0.3244E-02 0.0000 0.0000 0.02 1 3 1 0 14 0.7439E-02 0.3279E-03 0.1041E-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 tfr /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM %AVR2DAT.TXT 18*16 = 288 Daten /AVR2_10_7 288 array def /AVR2_10_7 [ 424016 0.2552 0.4446 402.88 0.1269E+03 0.0000 0.0000 21.19 1 3 1 0 14 0.6675E+01 0.2432E+00 0.7719E+00 424026 0.2552 0.4446 159.11 0.5012E+02 0.0000 0.0000 8.68 1 3 1 0 14 0.2733E+01 0.4233E-01 0.1344E+00 424036 0.2552 0.4446 73.29 0.2309E+02 0.0000 0.0000 4.60 1 3 1 1 14 0.1448E+01 0.4295E-01 0.1363E+00 424046 0.2552 0.4446 39.48 0.1244E+02 0.0000 0.0000 2.61 1 3 1 1 14 0.8237E+00 0.9395E-01 0.2983E+00 424056 0.2552 0.4446 21.85 0.6884E+01 0.0000 0.0000 1.36 1 3 1 1 14 0.4269E+00 0.1494E-01 0.4742E-01 424066 0.2552 0.4446 12.28 0.3868E+01 0.0000 0.0000 0.92 1 3 1 1 14 0.2890E+00 0.1254E-01 0.3981E-01 424076 0.2552 0.4446 16.12 0.5076E+01 0.0000 0.0000 0.76 1 3 1 1 14 0.2404E+00 0.1769E-01 0.5616E-01 424086 0.2552 0.4446 6.36 0.2005E+01 0.0000 0.0000 0.36 1 3 1 1 14 0.1132E+00 0.7650E-02 0.2429E-01 424096 0.2552 0.4446 2.93 0.9235E+00 0.0000 0.0000 0.24 1 3 1 1 14 0.7608E-01 0.1750E-02 0.5555E-02 424106 0.2552 0.4446 1.58 0.4974E+00 0.0000 0.0000 0.16 1 3 1 0 14 0.5072E-01 0.1912E-02 0.6071E-02 424116 0.2552 0.4446 0.87 0.2754E+00 0.0000 0.0000 0.12 1 3 1 0 14 0.3643E-01 0.2526E-02 0.8018E-02 424126 0.2552 0.4446 0.49 0.1547E+00 0.0000 0.0000 0.09 1 3 1 0 14 0.2786E-01 0.1515E-02 0.4811E-02 424136 0.2552 0.4446 0.60 0.1902E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2127E-01 0.9276E-03 0.2945E-02 424146 0.2552 0.4446 0.24 0.7555E-01 0.0000 0.0000 0.06 1 3 1 0 14 0.1846E-01 0.6206E-03 0.1970E-02 424156 0.2552 0.4446 0.11 0.3545E-01 0.0000 0.0000 0.04 1 3 1 0 14 0.1264E-01 0.1216E-02 0.3860E-02 424166 0.2552 0.4446 0.06 0.1939E-01 0.0000 0.0000 0.04 1 3 1 0 14 0.1198E-01 0.8129E-03 0.2580E-02 424176 0.2552 0.4446 0.03 0.1094E-01 0.0000 0.0000 0.03 1 3 1 0 14 0.1080E-01 0.8280E-03 0.2629E-02 424186 0.2552 0.4446 0.02 0.6103E-02 0.0000 0.0000 0.03 1 3 1 0 14 0.9041E-02 0.6783E-03 0.2153E-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 tfg /xfact 700 def /yfact 700 def 0 1 IM {/i exch def %i=0,IM xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 3 add yfact mul moveto -50 0 rmoveto 100 0 rlineto stroke } for %i=0,IM tfn 6.3 log 3 add xfact mul 0 50 00 360 arc fill showpage grestore %%Trailer