%!PS-Adobe-3.0 EPSF-3.0 TE370-7 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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 pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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-7) 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 /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 ishowB TBM (=0,25 ) show TBIM (y) show ishowB TBM (=0,19) 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 j2 get 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 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 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 j2 get 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: AVR2DA07.FOR 2014_01_03 % Output file: AVR2DA07.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 412017 0.1468 0.1914 1.21 0.3799E+02 0.0000 0.0000 0.15 1 3 1 0 14 0.4784E+01 0.2881E+00 0.9145E-02 412027 0.1468 0.1914 0.48 0.1500E+02 0.0000 0.0000 0.11 1 3 1 0 14 0.3347E+01 0.3463E+00 0.1099E-01 412037 0.1468 0.1914 0.22 0.6911E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2222E+01 0.1576E+00 0.5004E-02 412047 0.1468 0.1914 0.12 0.3723E+01 0.0000 0.0000 0.07 1 3 1 0 14 0.2057E+01 0.6874E-01 0.2182E-02 412057 0.1468 0.1914 0.07 0.2061E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1500E+01 0.1664E+00 0.5283E-02 412067 0.1468 0.1914 0.04 0.1158E+01 0.0000 0.0000 0.05 1 3 1 0 14 0.1634E+01 0.8418E-01 0.2672E-02 ] def /IM 05 def 0 1 05 {/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 tfb 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 [ 417017 0.1468 0.1914 12.06 0.3799E+02 0.0000 0.0000 1.55 1 3 1 1 14 0.4897E+01 0.7018E-01 0.2228E-01 417027 0.1468 0.1914 4.76 0.1500E+02 0.0000 0.0000 0.60 1 3 1 1 14 0.1892E+01 0.4799E-01 0.1524E-01 417037 0.1468 0.1914 2.19 0.6911E+01 0.0000 0.0000 0.35 1 3 1 0 14 0.1090E+01 0.3833E-01 0.1217E-01 417047 0.1468 0.1914 1.18 0.3723E+01 0.0000 0.0000 0.22 1 3 1 0 14 0.6962E+00 0.3542E-01 0.1124E-01 417057 0.1468 0.1914 0.65 0.2061E+01 0.0000 0.0000 0.15 1 3 1 0 14 0.4572E+00 0.2463E-01 0.7819E-02 417067 0.1468 0.1914 0.37 0.1158E+01 0.0000 0.0000 0.11 1 3 1 0 14 0.3568E+00 0.1620E-01 0.5144E-02 417077 0.1468 0.1914 0.48 0.1520E+01 0.0000 0.0000 0.12 1 3 1 0 14 0.3811E+00 0.1953E-01 0.6199E-02 417087 0.1468 0.1914 0.19 0.6002E+00 0.0000 0.0000 0.08 1 3 1 0 14 0.2525E+00 0.1242E-01 0.3942E-02 417097 0.1468 0.1914 0.09 0.2765E+00 0.0000 0.0000 0.07 1 3 1 0 14 0.2336E+00 0.7018E-02 0.2228E-02 417107 0.1468 0.1914 0.05 0.1489E+00 0.0000 0.0000 0.06 1 3 1 0 14 0.1911E+00 0.1880E-01 0.5967E-02 417117 0.1468 0.1914 0.03 0.8244E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2247E+00 0.8637E-02 0.2742E-02 417127 0.1468 0.1914 0.01 0.4632E-01 0.0000 0.0000 0.07 1 3 1 0 14 0.2082E+00 0.6027E-02 0.1913E-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 j2 get put } for %i=0,IM /xfact 700 def /yfact 700 def 1.0 1.0 0.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 [ 422017 0.1468 0.1914 120.61 0.3799E+02 0.0000 0.0000 21.68 1 3 1 0 14 0.6830E+01 0.2638E+00 0.8373E+00 422027 0.1468 0.1914 47.63 0.1500E+02 0.0000 0.0000 8.00 1 3 1 1 14 0.2520E+01 0.1722E+00 0.5467E+00 422037 0.1468 0.1914 21.94 0.6911E+01 0.0000 0.0000 3.19 1 3 1 1 14 0.1003E+01 0.2735E-01 0.8684E-01 422047 0.1468 0.1914 11.82 0.3723E+01 0.0000 0.0000 1.36 1 3 1 1 14 0.4286E+00 0.1457E-01 0.4626E-01 422057 0.1468 0.1914 6.54 0.2061E+01 0.0000 0.0000 0.64 1 3 1 1 14 0.2022E+00 0.6858E-02 0.2177E-01 422067 0.1468 0.1914 3.68 0.1158E+01 0.0000 0.0000 0.38 1 3 1 1 14 0.1204E+00 0.1452E-01 0.4610E-01 422077 0.1468 0.1914 4.82 0.1520E+01 0.0000 0.0000 0.64 1 3 1 1 14 0.2000E+00 0.1773E-01 0.5630E-01 422087 0.1468 0.1914 1.91 0.6002E+00 0.0000 0.0000 0.29 1 3 1 0 14 0.9109E-01 0.1821E-02 0.5782E-02 422097 0.1468 0.1914 0.88 0.2765E+00 0.0000 0.0000 0.20 1 3 1 0 14 0.6430E-01 0.5464E-02 0.1735E-01 422107 0.1468 0.1914 0.47 0.1489E+00 0.0000 0.0000 0.17 1 3 1 0 14 0.5501E-01 0.1912E-02 0.6071E-02 422117 0.1468 0.1914 0.26 0.8244E-01 0.0000 0.0000 0.14 1 3 1 0 14 0.4536E-01 0.4083E-02 0.1296E-01 422127 0.1468 0.1914 0.15 0.4632E-01 0.0000 0.0000 0.16 1 3 1 0 14 0.4894E-01 0.4083E-02 0.1296E-01 %499999 END,79 characters in any data line ] 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 j2 get put } for %i=0,IM 1.0 1.0 0.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