%!PS-Adobe-3.0 EPSF-3.0 TE370-1 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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 pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %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-1) 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 200 add def /yt0 3725 def /ytd 250 def 050 yt0 0 ytd mul sub moveto TBIM tfw TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde xt1 yt0 1 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) 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 [(-2) (-1) ( 0) ( 1) ( 2) ] def %!x-Achse: 1 log-Einheiten = 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 log-Einheiten = 700 Skalen-Einheiten 0 1 4 {/i exch def /iyt {-100 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 200 def /x1 500 def /x2 1100 def /y1 2500 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 newpath tfn 3100 y1 yd 7.5 mul sub 100 add 50 00 360 arc fill tfw 3200 y1 yd 7.5 mul sub moveto TBIM (L) show ishowg TBM (=6,3cd/m) show eshow2 newpath 3200 y1 yd 8.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 j2 get 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 2 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke tfw xgr i get log 3 add xfact mul ygr i get log 2 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 j2 get 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 2 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 2 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 j2 get 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 2 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 2 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 j2 get 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 2 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 2 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 j2 get 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 2 add yfact mul moveto 00 -50 rmoveto 0 100 rlineto stroke xgr i get log 3 add xfact mul ygr i get log 2 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