%!PS-Adobe-3.0 EPSF-3.0 UG251-3A %%BoundingBox: 70 85 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/UG25/) /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 /ns {340 /Times-ISOL1 FS show} bind def /ks {340 /TimesI-ISOL1 FS show} bind def /bs {340 /TimesB-ISOL1 FS show} bind def /js {340 /TimesBI-ISOL1 FS show} bind def /ss {340 /Symbol FS show} bind def /is {290 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {290 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {290 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {290 /Times-ISOL1 FS show TM} bind def /ks2 {290 /TimesI-ISOL1 FS show TM} bind def /bs2 {290 /TimesB-ISOL1 FS show TK} bind def /js2 {290 /TimesBI-ISOL1 FS show TM} bind def /ss2 {290 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} 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 /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 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 %for this file: %For array: 2880=16*33*10 % =%16 data * 18 colours * 10 series (2 presentation times) /AVR2DA05 2880 array def /AVR2DA05 [ %DAAV_AVRMDA18.DAT %% CREATED BY DAAV_AVR2DA18.FOR, AND COPY DAAV_AVR2DA18.TXT DAAV_AVRMDA18.TXT %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1 %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0 %% Programm: AVR2DA18.FOR Output file: AVR2DA18.TXT 2014_01_03 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%410000 x y Y L delta_x delta_y delta_Y ObReJNSu___ % 18 18 0426 A 6.3 89 410014 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1404E+03 1 3 1 0 14 0.4423E+02 0.2434E+01 0.7727E+01 410024 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.5948E+02 1 3 1 0 14 0.1874E+02 0.1709E+01 0.5426E+01 410034 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.2644E+02 1 3 1 0 14 0.8330E+01 0.6609E+00 0.2098E+01 410044 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1231E+02 1 3 1 0 14 0.3878E+01 0.3410E+00 0.1082E+01 410054 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.7533E+01 1 3 1 0 14 0.2373E+01 0.1240E+00 0.3937E+00 410064 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.4197E+01 1 3 1 0 14 0.1322E+01 0.1296E+00 0.4115E+00 410074 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.5366E+01 1 3 1 0 14 0.1691E+01 0.9328E-01 0.2961E+00 410084 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.2274E+01 1 3 1 0 14 0.7163E+00 0.4037E-01 0.1281E+00 410094 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.1050E+01 1 3 1 0 14 0.3308E+00 0.1255E-01 0.3984E-01 410104 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.5420E+00 1 3 1 0 14 0.1707E+00 0.9175E-02 0.2913E-01 410114 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.3113E+00 1 3 1 0 14 0.9806E-01 0.4651E-02 0.1476E-01 410124 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.2098E+00 1 3 1 0 14 0.6608E-01 0.4685E-02 0.1487E-01 410134 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2664E+00 1 3 1 0 14 0.8392E-01 0.5391E-02 0.1712E-01 410144 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1547E+00 1 3 1 0 14 0.4872E-01 0.2537E-02 0.8054E-02 410154 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1087E+00 1 3 1 0 14 0.3424E-01 0.2438E-02 0.7740E-02 410164 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.8539E-01 1 3 1 0 14 0.2690E-01 0.1788E-02 0.5678E-02 410174 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.6686E-01 1 3 1 0 14 0.2106E-01 0.8344E-03 0.2649E-02 410184 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.5825E-01 1 3 1 0 14 0.1835E-01 0.5419E-03 0.1720E-02 % 18 18 0226 Y 6.3 89 410014 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.4825E+02 1 3 1 0 14 0.1520E+02 0.3115E+00 0.9888E+00 410024 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.1841E+02 1 3 1 0 14 0.5798E+01 0.2732E+00 0.8672E+00 410034 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.9387E+01 1 3 1 0 14 0.2957E+01 0.2080E+00 0.6603E+00 410044 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.4722E+01 1 3 1 0 14 0.1488E+01 0.4398E-01 0.1396E+00 410054 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.2714E+01 1 3 1 0 14 0.8551E+00 0.3000E-01 0.9521E-01 410064 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.1630E+01 1 3 1 0 14 0.5135E+00 0.2658E-01 0.8439E-01 410074 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.1758E+01 1 3 1 0 14 0.5537E+00 0.1762E-01 0.5593E-01 410084 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.7660E+00 1 3 1 0 14 0.2413E+00 0.6115E-02 0.1941E-01 410094 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.3481E+00 1 3 1 0 14 0.1097E+00 0.5366E-02 0.1704E-01 410104 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.2359E+00 1 3 1 0 14 0.7430E-01 0.9118E-03 0.2894E-02 410114 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.1599E+00 1 3 1 0 14 0.5037E-01 0.2103E-02 0.6677E-02 410124 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.1299E+00 1 3 1 0 14 0.4090E-01 0.9034E-03 0.2868E-02 410134 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.1377E+00 1 3 1 0 14 0.4337E-01 0.2922E-02 0.9278E-02 410144 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.9161E-01 1 3 1 0 14 0.2886E-01 0.8815E-03 0.2799E-02 410154 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.7160E-01 1 3 1 0 14 0.2256E-01 0.8291E-03 0.2632E-02 410164 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.6227E-01 1 3 1 0 14 0.1962E-01 0.9133E-03 0.2901E-02 410174 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.5947E-01 1 3 1 0 14 0.1873E-01 0.6874E-03 0.2183E-02 410184 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.4719E-01 1 3 1 0 14 0.1486E-01 0.6508E-03 0.2066E-02 % 18 18 0226 B 6.3 89 410014 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.6193E+01 1 3 1 1 14 0.1951E+01 0.1156E+00 0.3670E+00 410024 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.2641E+01 1 3 1 1 14 0.8319E+00 0.5566E-01 0.1767E+00 410034 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.1411E+01 1 3 1 1 14 0.4447E+00 0.3038E-01 0.9644E-01 410044 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.7944E+00 1 3 1 1 14 0.2503E+00 0.4233E-02 0.1344E-01 410054 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.4972E+00 1 3 1 1 14 0.1566E+00 0.4954E-02 0.1572E-01 410064 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.3067E+00 1 3 1 1 14 0.9662E-01 0.8720E-02 0.2767E-01 410074 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.3708E+00 1 3 1 1 14 0.1168E+00 0.5721E-02 0.1816E-01 410084 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.1934E+00 1 3 1 1 14 0.6090E-01 0.2539E-02 0.8065E-02 410094 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1242E+00 1 3 1 1 14 0.3912E-01 0.1052E-02 0.3338E-02 410104 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.8845E-01 1 3 1 1 14 0.2786E-01 0.9693E-03 0.3077E-02 410114 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.6634E-01 1 3 1 1 14 0.2090E-01 0.7576E-03 0.2406E-02 410124 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.4820E-01 1 3 1 1 14 0.1518E-01 0.5443E-03 0.1728E-02 410134 0.1468 0.1914 0.1834E+00 0.5779E-01 0.0000 0.0000 0.5621E-01 1 3 1 1 14 0.1771E-01 0.5321E-03 0.1689E-02 410144 0.1468 0.1914 0.7245E-01 0.2282E-01 0.0000 0.0000 0.4560E-01 1 3 1 1 14 0.1437E-01 0.7848E-03 0.2491E-02 410154 0.1468 0.1914 0.3337E-01 0.1051E-01 0.0000 0.0000 0.4471E-01 1 3 1 1 14 0.1409E-01 0.1127E-02 0.3578E-02 410164 0.1468 0.1914 0.1798E-01 0.5663E-02 0.0000 0.0000 0.3982E-01 1 3 1 1 14 0.1255E-01 0.5698E-03 0.1809E-02 410174 0.1468 0.1914 0.9951E-02 0.3135E-02 0.0000 0.0000 0.4188E-01 1 3 1 1 14 0.1319E-01 0.1096E-02 0.3481E-02 410184 0.1468 0.1914 0.5592E-02 0.1761E-02 0.0000 0.0000 0.4129E-01 1 3 1 1 14 0.1301E-01 0.7097E-03 0.2254E-02 % 18 18 0226 R 6.3 89 410014 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.6206E+01 1 3 1 1 14 0.1955E+01 0.6659E-01 0.2114E+00 410024 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.2661E+01 1 3 1 1 14 0.8382E+00 0.5381E-01 0.1708E+00 410034 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.1278E+01 1 3 1 1 14 0.4026E+00 0.1874E-01 0.5949E-01 410044 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.6764E+00 1 3 1 1 14 0.2131E+00 0.9807E-02 0.3113E-01 410054 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.4042E+00 1 3 1 1 14 0.1274E+00 0.7142E-02 0.2267E-01 410064 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.2665E+00 1 3 1 1 14 0.8394E-01 0.3288E-02 0.1044E-01 410074 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.3521E+00 1 3 1 1 14 0.1109E+00 0.5074E-02 0.1611E-01 410084 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.1462E+00 1 3 1 1 14 0.4608E-01 0.3170E-02 0.1006E-01 410094 0.5838 0.3232 0.1534E+01 0.4831E+00 0.0000 0.0000 0.9639E-01 1 3 1 1 14 0.3036E-01 0.1297E-02 0.4118E-02 410104 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.6350E-01 1 3 1 1 14 0.2001E-01 0.1546E-02 0.4909E-02 410114 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.4309E-01 1 3 1 1 14 0.1358E-01 0.6775E-03 0.2151E-02 410124 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.3176E-01 1 3 1 1 14 0.1000E-01 0.5834E-03 0.1852E-02 410134 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.5964E-01 1 3 1 1 14 0.1878E-01 0.2109E-02 0.6694E-02 410144 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.3765E-01 1 3 1 1 14 0.1186E-01 0.6318E-03 0.2006E-02 410154 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.2990E-01 1 3 1 1 14 0.9416E-02 0.7771E-03 0.2467E-02 410164 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.2581E-01 1 3 1 1 14 0.8129E-02 0.1297E-03 0.4117E-03 410174 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.2516E-01 1 3 1 1 14 0.7927E-02 0.3122E-03 0.9908E-03 410184 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.2654E-01 1 3 1 1 14 0.8358E-02 0.4639E-03 0.1473E-02 % 18 18 AD26 G 6.3 89 410014 0.2552 0.4446 0.4029E+03 0.1269E+03 0.0000 0.0000 0.2119E+02 1 3 1 0 14 0.6675E+01 0.2432E+00 0.7719E+00 410024 0.2552 0.4446 0.1591E+03 0.5012E+02 0.0000 0.0000 0.8676E+01 1 3 1 0 14 0.2733E+01 0.4233E-01 0.1344E+00 410034 0.2552 0.4446 0.7329E+02 0.2309E+02 0.0000 0.0000 0.4596E+01 1 3 1 0 14 0.1448E+01 0.4295E-01 0.1363E+00 410044 0.2552 0.4446 0.3948E+02 0.1244E+02 0.0000 0.0000 0.2615E+01 1 3 1 0 14 0.8237E+00 0.9395E-01 0.2983E+00 410054 0.2552 0.4446 0.2185E+02 0.6884E+01 0.0000 0.0000 0.1355E+01 1 3 1 0 14 0.4269E+00 0.1494E-01 0.4742E-01 410064 0.2552 0.4446 0.1228E+02 0.3868E+01 0.0000 0.0000 0.9174E+00 1 3 1 0 14 0.2890E+00 0.1254E-01 0.3981E-01 410074 0.2552 0.4446 0.1548E+02 0.4876E+01 0.0000 0.0000 0.7632E+00 1 3 1 0 14 0.2404E+00 0.1769E-01 0.5616E-01 410084 0.2552 0.4446 0.6150E+01 0.1937E+01 0.0000 0.0000 0.3595E+00 1 3 1 0 14 0.1132E+00 0.7650E-02 0.2429E-01 410094 0.2552 0.4446 0.2886E+01 0.9090E+00 0.0000 0.0000 0.2415E+00 1 3 1 0 14 0.7608E-01 0.1750E-02 0.5555E-02 410104 0.2552 0.4446 0.1578E+01 0.4971E+00 0.0000 0.0000 0.1610E+00 1 3 1 0 14 0.5072E-01 0.1912E-02 0.6071E-02 410114 0.2552 0.4446 0.8903E+00 0.2804E+00 0.0000 0.0000 0.1157E+00 1 3 1 0 14 0.3643E-01 0.2526E-02 0.8018E-02 410124 0.2552 0.4446 0.4968E+00 0.1565E+00 0.0000 0.0000 0.8845E-01 1 3 1 0 14 0.2786E-01 0.1515E-02 0.4811E-02 410134 0.2552 0.4446 0.6128E+00 0.1930E+00 0.0000 0.0000 0.6753E-01 1 3 1 0 14 0.2127E-01 0.9276E-03 0.2945E-02 410144 0.2552 0.4446 0.2420E+00 0.7623E-01 0.0000 0.0000 0.5860E-01 1 3 1 0 14 0.1846E-01 0.6206E-03 0.1970E-02 410154 0.2552 0.4446 0.1115E+00 0.3511E-01 0.0000 0.0000 0.4011E-01 1 3 1 0 14 0.1264E-01 0.1216E-02 0.3860E-02 410164 0.2552 0.4446 0.6005E-01 0.1891E-01 0.0000 0.0000 0.3803E-01 1 3 1 0 14 0.1198E-01 0.8129E-03 0.2580E-02 410174 0.2552 0.4446 0.3324E-01 0.1047E-01 0.0000 0.0000 0.3427E-01 1 3 1 0 14 0.1080E-01 0.8280E-03 0.2629E-02 410184 0.2552 0.4446 0.1868E-01 0.5884E-02 0.0000 0.0000 0.2870E-01 1 3 1 0 14 0.9041E-02 0.6783E-03 0.2153E-02 %DAAV_AVRMDA08.DAT NUR 6.3cm/m**2 %% CREATED BY DAAV_AVR2DA08.FOR, AND COPY DAAV_AVR2DA08.TXT DAAV_AVRMDA08.TXT %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1 %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0 %% Programm: AVR2DA08.FOR Output file: AVR2DA08.TXT 2014_01_03 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%410000 x y Y L delta_x delta_y delta_Y ObReJNSu___ % 18 18 0401 A 6.3 89 410018 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.9690E+03 1 3 1 0 14 0.3052E+03 0.6645E+02 0.2110E+03 410028 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.3781E+03 1 3 1 0 14 0.1191E+03 0.1115E+02 0.3540E+02 410038 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.1089E+03 1 3 1 0 14 0.3431E+02 0.4474E+01 0.1421E+02 410048 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.3613E+02 1 3 1 0 14 0.1138E+02 0.2259E+01 0.7171E+01 410058 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.1960E+02 1 3 1 0 14 0.6175E+01 0.8004E+00 0.2541E+01 410068 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.1069E+02 1 3 1 0 14 0.3367E+01 0.3492E+00 0.1109E+01 410078 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.1943E+02 1 3 1 0 14 0.6120E+01 0.6487E+00 0.2059E+01 410088 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.6109E+01 1 3 1 0 14 0.1924E+01 0.1748E+00 0.5548E+00 410098 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.2432E+01 1 3 1 0 14 0.7660E+00 0.5810E-01 0.1844E+00 410108 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.1172E+01 1 3 1 0 14 0.3694E+00 0.2347E-01 0.7449E-01 410118 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.5718E+00 1 3 1 0 14 0.1801E+00 0.1051E-01 0.3336E-01 410128 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.3379E+00 1 3 1 0 14 0.1065E+00 0.5319E-02 0.1688E-01 410138 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.5790E+00 1 3 1 0 14 0.1824E+00 0.1277E-01 0.4053E-01 410148 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.3308E+00 1 3 1 0 14 0.1042E+00 0.5160E-02 0.1639E-01 410158 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.2543E+00 1 3 1 0 14 0.8012E-01 0.6653E-02 0.2112E-01 410168 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.2358E+00 1 3 1 0 14 0.7426E-01 0.3461E-02 0.1099E-01 410178 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.2005E+00 1 3 1 0 14 0.6315E-01 0.3368E-02 0.1069E-01 410188 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.1817E+00 1 3 1 0 14 0.5724E-01 0.3769E-02 0.1196E-01 % 18 18 0201 Y 6.3 89 410018 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.3580E+03 1 3 1 0 14 0.1128E+03 0.2577E+01 0.8181E+01 410028 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.6709E+02 1 3 1 0 14 0.2113E+02 0.1478E+01 0.4694E+01 410038 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.2730E+02 1 3 1 0 14 0.8597E+01 0.1542E+01 0.4893E+01 410048 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.1093E+02 1 3 1 0 14 0.3445E+01 0.3964E+00 0.1259E+01 410058 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.5043E+01 1 3 1 0 14 0.1589E+01 0.9898E-01 0.3142E+00 410068 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.2453E+01 1 3 1 0 14 0.7725E+00 0.7002E-01 0.2223E+00 410078 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.5957E+01 1 3 1 0 14 0.1877E+01 0.1346E+00 0.4275E+00 410088 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.1465E+01 1 3 1 0 14 0.4613E+00 0.3333E-01 0.1058E+00 410098 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.6265E+00 1 3 1 0 14 0.1974E+00 0.9051E-02 0.2873E-01 410108 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.4173E+00 1 3 1 0 14 0.1314E+00 0.1021E-02 0.3240E-02 410118 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.3033E+00 1 3 1 0 14 0.9555E-01 0.4777E-02 0.1516E-01 410128 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.2490E+00 1 3 1 0 14 0.7841E-01 0.5257E-02 0.1669E-01 410138 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.3426E+00 1 3 1 0 14 0.1079E+00 0.1130E-01 0.3589E-01 410148 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.2512E+00 1 3 1 0 14 0.7914E-01 0.6754E-02 0.2144E-01 410158 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.2089E+00 1 3 1 0 14 0.6581E-01 0.3725E-02 0.1182E-01 410168 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.2120E+00 1 3 1 0 14 0.6678E-01 0.2228E-02 0.7071E-02 410178 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.2008E+00 1 3 1 0 14 0.6323E-01 0.3561E-02 0.1131E-01 410188 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.1867E+00 1 3 1 0 14 0.5881E-01 0.5114E-02 0.1623E-01 % 18 12 0201 B 6.3 89 410018 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.2019E+02 1 3 1 1 14 0.6359E+01 0.5155E+00 0.1636E+01 410028 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.7279E+01 1 3 1 1 14 0.2293E+01 0.1342E+00 0.4261E+00 410038 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.3167E+01 1 3 1 1 14 0.9973E+00 0.3783E-01 0.1201E+00 410048 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.1309E+01 1 3 1 1 14 0.4124E+00 0.2149E-01 0.6820E-01 410058 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.7240E+00 1 3 1 1 14 0.2281E+00 0.2205E-01 0.6999E-01 410068 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.4026E+00 1 3 1 1 14 0.1268E+00 0.1436E-01 0.4558E-01 410078 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.6384E+00 1 3 1 1 14 0.2011E+00 0.1226E-01 0.3892E-01 410088 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.2733E+00 1 3 1 1 14 0.8608E-01 0.3838E-02 0.1219E-01 410098 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1984E+00 1 3 1 1 14 0.6251E-01 0.8717E-02 0.2767E-01 410108 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.1673E+00 1 3 1 1 14 0.5269E-01 0.3392E-02 0.1077E-01 410118 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.1270E+00 1 3 1 1 14 0.4001E-01 0.3724E-02 0.1182E-01 410128 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410138 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410148 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410158 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410168 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410178 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 410188 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00 1 3 1 1 14 0.4233E-01 0.3433E-02 0.1090E-01 % 18 18 0201 R 6.3 89 410018 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.2061E+02 1 3 1 1 14 0.6491E+01 0.5694E+00 0.1808E+01 410028 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.8381E+01 1 3 1 1 14 0.2641E+01 0.7158E-01 0.2272E+00 410038 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.3800E+01 1 3 1 1 14 0.1197E+01 0.7391E-01 0.2345E+00 410048 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.1423E+01 1 3 1 1 14 0.4481E+00 0.4579E-01 0.1454E+00 410058 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.7178E+00 1 3 1 1 14 0.2261E+00 0.1908E-01 0.6056E-01 410068 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.3923E+00 1 3 1 1 14 0.1236E+00 0.5542E-02 0.1759E-01 410078 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.1539E+01 1 3 1 1 14 0.4845E+00 0.3164E-01 0.1004E+00 410088 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.4752E+00 1 3 1 1 14 0.1497E+00 0.8144E-02 0.2585E-01 410098 0.5838 0.3232 0.1534E+01 0.4831E+00 0.0000 0.0000 0.2478E+00 1 3 1 1 14 0.7805E-01 0.3179E-02 0.1009E-01 410108 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.1543E+00 1 3 1 1 14 0.4858E-01 0.2743E-02 0.8708E-02 410118 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.1429E+00 1 3 1 1 14 0.4501E-01 0.1821E-02 0.5782E-02 410128 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.1293E+00 1 3 1 1 14 0.4072E-01 0.1263E-02 0.4009E-02 410138 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.1231E+00 1 3 1 1 14 0.3879E-01 0.4180E-02 0.1327E-01 410148 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.1324E+00 1 3 1 1 14 0.4171E-01 0.1998E-02 0.6344E-02 410158 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.1287E+00 1 3 1 1 14 0.4054E-01 0.4778E-02 0.1517E-01 410168 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.1312E+00 1 3 1 1 14 0.4134E-01 0.3160E-02 0.1003E-01 410178 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.1173E+00 1 3 1 1 14 0.3697E-01 0.4552E-02 0.1446E-01 410188 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.1117E+00 1 3 1 1 14 0.3519E-01 0.4525E-02 0.1436E-01 % 18 18 AD01 G 6.3 89 410018 0.2552 0.4446 0.4029E+03 0.1269E+03 0.0000 0.0000 0.7063E+02 1 3 1 0 14 0.2225E+02 0.1304E+01 0.4141E+01 410028 0.2552 0.4446 0.1591E+03 0.5012E+02 0.0000 0.0000 0.1980E+02 1 3 1 0 14 0.6238E+01 0.3039E+00 0.9646E+00 410038 0.2552 0.4446 0.7329E+02 0.2309E+02 0.0000 0.0000 0.7890E+01 1 3 1 0 14 0.2485E+01 0.9405E-01 0.2986E+00 410048 0.2552 0.4446 0.3948E+02 0.1244E+02 0.0000 0.0000 0.4147E+01 1 3 1 0 14 0.1306E+01 0.1245E+00 0.3952E+00 410058 0.2552 0.4446 0.2185E+02 0.6884E+01 0.0000 0.0000 0.2037E+01 1 3 1 0 14 0.6415E+00 0.2602E-01 0.8259E-01 410068 0.2552 0.4446 0.1228E+02 0.3868E+01 0.0000 0.0000 0.8777E+00 1 3 1 0 14 0.2765E+00 0.5557E-02 0.1764E-01 410078 0.2552 0.4446 0.1548E+02 0.4876E+01 0.0000 0.0000 0.1668E+01 1 3 1 0 14 0.5254E+00 0.5088E-01 0.1615E+00 410088 0.2552 0.4446 0.6150E+01 0.1937E+01 0.0000 0.0000 0.5103E+00 1 3 1 0 14 0.1607E+00 0.9218E-02 0.2926E-01 410098 0.2552 0.4446 0.2886E+01 0.9090E+00 0.0000 0.0000 0.3583E+00 1 3 1 0 14 0.1129E+00 0.3924E-02 0.1246E-01 410108 0.2552 0.4446 0.1578E+01 0.4971E+00 0.0000 0.0000 0.2461E+00 1 3 1 0 14 0.7751E-01 0.7864E-02 0.2496E-01 410118 0.2552 0.4446 0.8903E+00 0.2804E+00 0.0000 0.0000 0.2121E+00 1 3 1 0 14 0.6680E-01 0.3724E-02 0.1182E-01 410128 0.2552 0.4446 0.4968E+00 0.1565E+00 0.0000 0.0000 0.1610E+00 1 3 1 0 14 0.5072E-01 0.2592E-02 0.8229E-02 410138 0.2552 0.4446 0.6128E+00 0.1930E+00 0.0000 0.0000 0.2378E+00 1 3 1 0 14 0.7492E-01 0.6336E-02 0.2011E-01 410148 0.2552 0.4446 0.2420E+00 0.7623E-01 0.0000 0.0000 0.2097E+00 1 3 1 0 14 0.6605E-01 0.3027E-02 0.9608E-02 410158 0.2552 0.4446 0.1115E+00 0.3511E-01 0.0000 0.0000 0.2011E+00 1 3 1 0 14 0.6336E-01 0.3805E-02 0.1208E-01 410168 0.2552 0.4446 0.6005E-01 0.1891E-01 0.0000 0.0000 0.2022E+00 1 3 1 0 14 0.6368E-01 0.1096E-02 0.3480E-02 410178 0.2552 0.4446 0.3324E-01 0.1047E-01 0.0000 0.0000 0.2096E+00 1 3 1 0 14 0.6602E-01 0.7244E-02 0.2300E-01 410188 0.2552 0.4446 0.1868E-01 0.5884E-02 0.0000 0.0000 0.1841E+00 1 3 1 0 14 0.5798E-01 0.1602E-02 0.5085E-02 ] def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} 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 0 def /lanind2 0 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 gsave /xchartl 10 def 0 1 3 {/xchart exch def %xchart=0,2 1x3 plots /xchart xchart def %0,1,2 for plots log dL, log L/dL, L/dL gsave 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 5 /Times-ISOL1 FS %175 85 moveto (UG251-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth /IMDAT 16 array def /IMDAT %data of curve, 6, 12 or 18 values [17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17] def 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz %0 1 15 {/xchartl exch def %xchartl=0,04 gsave xchartl 00 ge xchartl 04 le and {/MDK 2 def} if xchartl 05 ge xchartl 09 le and {/MDK 2 def} if xchartl 10 ge xchartl 14 le and {/MDK 2 def} if xchartl 15 eq {/MDK 2 def} if /MD MDK def /xchartl5 xchart xchart 5 idiv 5 mul sub def % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UG251-) show} {(UG251-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black %******************************************** /xt0 50 def /yt0 3750 def /xt1 1000 def /xt2 1250 def /ytd 250 def xt0 yt0 moveto TBM tfw xchart 0 eq {%xchart=0 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffenz\255) showde xt1 yt0 ytd 1 mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde } if %xchart=0 xchart 1 eq {%xchart=1 TBM (log\050) show TBIM (L/) show SM (D) show TBIM (L) show TBM (\051 ) show (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde xt2 yt0 ytd 1 mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde } if %xchart=1 xchart 2 eq {%xchart=2 TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde xt1 150 sub yt0 ytd 1 mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde } if %xchart=2 xchart 3 eq {%xchart=3 TBIM (T* ) show TBM (luminance difference) showen (Leuchtdichte\255Diffenz\255) showde xt0 400 add yt0 ytd 1 mul sub moveto TBM (threshold sum) showen TBM (renzschwellensumme) showde } if %xchart=3 tfn xchart 0 eq {/xa1 2500 def} %for tables {/xa1 200 def} ifelse /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def newpath /xa2 3950 def /ya2 yt0 100 sub def xa2 100 sub ya2 130 add 50 00 360 arc fill newpath tfw xa2 ya2 moveto TBIK (L) show ishowg TBK (=) ns xchartl 00 ge xchartl 04 le and {(6,3cd/m) ns4 (2) es4} if xchartl 05 ge xchartl 09 le and {(6,3cd/m) ns4 (2) es4} if xchartl 10 ge xchartl 14 le and {(6,3cd/m) ns4 (2) es4} if xchartl 15 eq {(6,3cd/m) ns4 (2) es4} if tfw 550 400 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke tfg [100] 0 setdash 2.885 700 mul 0 moveto 5.447 700 mul 0 lineto stroke [ ] 0 setdash tfw TBM /tx [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty5 [( 0) (10) (20) (30) (40) (50) (60) (70)] def /ty6 [( 0) (20) (40) (60) (80) (100) (120) (140)] def %!x-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 5 {/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 {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def xchart 1 le {%xchart<=1 -450 iyt moveto ty i get exec show } if %xchart<=1 xchart 2 eq {%xchart=2 -450 iyt moveto ty5 i get exec show } if %xchart=2 xchart 3 eq {%xchart=3 -450 iyt moveto ty6 i get exec show } if %xchart=3 -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth 3900 -250 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /ishow {0 -50 rmoveto TBM show 0 50 rmoveto} def /eshow {0 100 rmoveto TBM show 0 -100 rmoveto} def /ip {0 50 rmoveto TBM (\267) show 0 -50 rmoveto} def /A1 33 array def %for 11 data sets for 3 illuminants (630, 63, 6.3cd/m**2) /A2 33 array def /A3 33 array def /ALPHA 33 array def %produced with RUN/OUTPUT=AUAV_HPEXP4M2_L1.LIS output of AUAV_HPEXP4M2_L1.FOR %wait after process start about 3 minutes, use TYPE AUAV_HPEXP4M2_L1.LIS %Least square fit of 4 parameters A1 to A4, stop with data of AD 26 R %AUAV_HPHYP318_L1.FOR, IN/OUT AUAV_HPHYP318_L1.DAT'/.TXT/.LIS % %DAAV_AVRMDA18.DAT % %% CREATED BY DAAV_AVR2DA18.FOR, AND COPY DAAV_AVR2DA18.TXT DAAV_AVRMDA18.T % %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1 % %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0 % %% Programm: AVR2DA18.FOR Output file: AVR2DA18.TXT 2014_01_03 % %%000000 1 2 3 4 5 6 7 % %%1234567890123456789012345678901234567890123456789012345678901234567890123 % %%410000 x y Y L delta_x delta_y delta_Y ObReJNSu_ %EQUATIONS USED %SEIM RESPONSE FUNCTION %R(I)=A1*L**A3/(L**A3+A2) %XYI=Y(I)=L %XX=XYI**A3 %d/dxx a**xx = a**xx * ln(a) %DXXA3=XX*ALOG(XYI) %L/dL=A1*A2*t*XX/(XX+A2)**2 %F(I)=A1*A2*A3*XX/(XX+A2)**2 %A(I,1)=A2*A3*XX/(XX+A2)**2 %A(I,2)=A1*A3*XX*(XX+A2)**(-2) %1 +A1*A2*A3*XX*(-2)*(XX+A2)**(-3) %A(I,3)=A1*A2*XX*(XX+A2)**(-2) %1 +A1*A2*A3*(DXXA3*(XX+A2)**(-2) %2 +XX*(-2)*(XX+A2)**(-3)*DXXA3) %A(I,JMP)=V(I)-F(I) % % 18 18 0426 A ,LM0,KX,JM,JNR,IM: 40 9 2 0 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.3013E+03 %END ALPHA= 0.9101E+02 ALPHA 0 0.9101E+02 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.7076E-04 0.9472E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.2019E+03 0.1288E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.2080E+04 0.2440E+02 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 0 def /X0K0 10 array def /X0K0 [ 0.2019E+03 0.1288E+02 0.8000E+00 0.0000E+00 0.0000E+00 0.2080E+04 0.2440E+02 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 0226 Y ,LM0,KX,JM,JNR,IM: 40 9 2 1 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.9902E+02 %END ALPHA= 0.3578E+02 ALPHA 1 0.3578E+02 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.4471E-04 -0.8973E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.1450E+03 0.8542E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.9912E+03 0.1460E+02 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 1 def /X0K1 10 array def /X0K1 [ 0.1450E+03 0.8542E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.9912E+03 0.1460E+02 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 0226 B ,LM0,KX,JM,JNR,IM: 40 9 2 2 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1587E+02 %END ALPHA= 0.4677E+01 ALPHA 2 0.4677E+01 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.9014E-04 -0.3115E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.9867E+02 0.6142E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.4848E+03 0.9668E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 2 def /X0K2 10 array def /X0K2 [ 0.9867E+02 0.6142E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.4848E+03 0.9668E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 0226 R ,LM0,KX,JM,JNR,IM: 40 9 2 3 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1651E+03 %END ALPHA= 0.2219E+02 ALPHA 3 0.2219E+02 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.7720E-04 -0.2521E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.1845E+03 0.7100E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.1048E+04 0.1159E+02 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 3 def /X0K3 10 array def /X0K3 [ 0.1845E+03 0.7100E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.1048E+04 0.1159E+02 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 AD26 G ,LM0,KX,JM,JNR,IM: 40 9 2 4 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.3002E+02 %END ALPHA= 0.1673E+02 ALPHA 4 0.1673E+02 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.1011E-03 -0.7111E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.1033E+03 0.6519E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.5385E+03 0.1042E+02 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 4 def /X0K4 10 array def /X0K4 [ 0.1033E+03 0.6519E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.5385E+03 0.1042E+02 0.0000E+00 0.0000E+00 0.0000E+00 ] def %AUAV_HPHYP308_L2.FOR, IN/OUT AUAV_HPHYP308_L1.DAT'/.TXT/.LIS % %DAAV_AVRMDA08.DAT % %% CREATED BY DAAV_AVR2DA08.FOR, AND COPY DAAV_AVR2DA08.TXT DAAV_AVRMDA08.T % %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1 % %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0 % %% Programm: AVR2DA08.FOR Output file: AVR2DA08.TXT 2014_01_03 % %%000000 1 2 3 4 5 6 7 % %%1234567890123456789012345678901234567890123456789012345678901234567890123 % %%410000 x y Y L delta_x delta_y delta_Y ObReJNSu_ %EQUATIONS USED %SEIM RESPONSE FUNCTION %R(I)=A1*L**A3/(L**A3+A2) %XYI=Y(I)=L %XX=XYI**A3 %d/dxx a**xx = a**xx * ln(a) %DXXA3=XX*ALOG(XYI) %L/dL=A1*A2*t*XX/(XX+A2)**2 %F(I)=A1*A2*A3*XX/(XX+A2)**2 %A(I,1)=A2*A3*XX/(XX+A2)**2 %A(I,2)=A1*A3*XX*(XX+A2)**(-2) %1 +A1*A2*A3*XX*(-2)*(XX+A2)**(-3) %A(I,3)=A1*A2*XX*(XX+A2)**(-2) %1 +A1*A2*A3*(DXXA3*(XX+A2)**(-2) %2 +XX*(-2)*(XX+A2)**(-3)*DXXA3) %A(I,JMP)=V(I)-F(I) % % 18 18 0401 A ,LM0,KX,JM,JNR,IM: 40 9 2 10 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1349E+02 %END ALPHA= 0.7289E+01 ALPHA 05 0.7289E+01 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.3191E-04 -0.8447E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.8189E+02 0.5597E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.3666E+03 0.8608E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 05 def /X0K5 10 array def /X0K5 [ 0.8189E+02 0.5597E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.3666E+03 0.8608E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 0201 Y ,LM0,KX,JM,JNR,IM: 40 9 2 11 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1137E+02 %END ALPHA= 0.2677E+01 ALPHA 06 0.2677E+01 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % 0.2263E-04 -0.8541E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.6798E+02 0.4495E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.2445E+03 0.6546E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 06 def /X0K6 10 array def /X0K6 [ 0.6798E+02 0.4495E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.2445E+03 0.6546E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 12 0201 B ,LM0,KX,JM,JNR,IM: 40 9 2 12 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1314E+02 %END ALPHA= 0.5569E+00 ALPHA 07 0.5569E+00 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.7955E-04 -0.4332E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.4624E+02 0.2451E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.9066E+02 0.3067E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 07 def /X0K7 10 array def /X0K7 [ 0.4624E+02 0.2451E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.9066E+02 0.3067E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 0201 R ,LM0,KX,JM,JNR,IM: 40 9 2 13 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1258E+02 %END ALPHA= 0.6400E+01 ALPHA 08 0.6400E+01 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.9076E-04 -0.7118E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.7062E+02 0.4494E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.2539E+03 0.6544E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 08 def /X0K8 10 array def /X0K8 [ 0.7062E+02 0.4494E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.2539E+03 0.6544E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % % 18 18 AD01 G ,LM0,KX,JM,JNR,IM: 40 9 2 14 18 % %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 9 2 % 0.7800E+02 0.1100E+02 0.8000E+00 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1095E+02 %END ALPHA= 0.1703E+01 ALPHA 09 0.1703E+01 put % %LM0,KX,JM,(%END X(J),J=1,10): 40 9 2 % -0.3042E-04 -0.8924E-04 -0.1000E+01 0.0000E+00 0.0000E+00 % 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 % %LM0,KX,JM,(%END X0K(J),J=1,10): 40 9 2 % 0.6144E+02 0.3736E+01 0.8000E+00 0.0000E+00 0.0000E+00 % 0.1837E+03 0.5195E+01 0.0000E+00 0.0000E+00 0.0000E+00 %END /JNR 09 def /X0K9 10 array def /X0K9 [ 0.6144E+02 0.3736E+01 0.8000E+00 0.0000E+00 0.0000E+00 0.1837E+03 0.5195E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def /X0K 10 array def 0 1 9 {/j exch def %j=0,9 xchartl 00 eq {X0K j X0K0 j get put} if %0426 A 6.3 xchartl 01 eq {X0K j X0K1 j get put} if %0226 Y xchartl 02 eq {X0K j X0K2 j get put} if %0226 B xchartl 03 eq {X0K j X0K3 j get put} if %0226 R xchartl 04 eq {X0K j X0K4 j get put} if %AD26 G xchartl 05 eq {X0K j X0K5 j get put} if %0401 A 6.3 xchartl 06 eq {X0K j X0K6 j get put} if %0201 Y xchartl 07 eq {X0K j X0K7 j get put} if %0201 B xchartl 08 eq {X0K j X0K8 j get put} if %0201 R xchartl 09 eq {X0K j X0K9 j get put} if %AD01 G xchartl 10 eq {X0K j X0K0 j get put} if %0426/01 A 6.3 xchartl 11 eq {X0K j X0K1 j get put} if %0226/01 Y xchartl 12 eq {X0K j X0K2 j get put} if %0226/01 B xchartl 13 eq {X0K j X0K3 j get put} if %0226/01 R xchartl 14 eq {X0K j X0K4 j get put} if %AD26/01 G xchartl 15 eq {X0K j X0K0 j get put} if %0426 A/B 6.3 } for %j=0,9 /A1 X0K 0 get def /A2 X0K 1 get def /A3 X0K 2 get def /A4 X0K 3 get def /A5 X0K 4 get def /A6 X0K 5 get def /A7 X0K 6 get def /A8 X0K 7 get def /A9 X0K 8 get def /yd 300 def %xchart 0 eq %xchart 2 eq or %xchart 3 eq or {%xchart=0,2,3 %table 1 left /xt10 200 def /xt11 500 def /xt12 1100 def /yt10 2750 def %table 2 right /xt20 1800 def /yt20 2350 def %} if %xchart=0,2 %xchart 1 eq {%xchart=1 %table 1 left %/xt10 200 def %3200 def %/xt11 3500 def %/xt12 4100 def %/yt10 2050 def %table 2 left %/xt20 200 def %/yt20 2000 def %} if %xchart=1 xt10 yt10 yd 0 mul sub moveto xchartl 00 eq {(04 26s A 6,3) show} if xchartl 01 eq {(02 26s Y 6,3) show} if xchartl 02 eq {(02 26s B 6,3) show} if xchartl 03 eq {(02 26s R 6,3) show} if xchartl 04 eq {(AD 26s G 6,3) show} if xchartl 05 eq {(04 0,1s A 6,3) show} if xchartl 06 eq {(02 0,1s Y 6,3) show} if xchartl 07 eq {(02 0,1s B 6,3) show} if xchartl 08 eq {(02 0,1s R 6,3) show} if xchartl 09 eq {(AD 0,1s G 6,3) show} if xchartl 10 eq {(04 26&0,1s A 6,3) show} if xchartl 11 eq {(02 26&0,1s Y 6,3) show} if xchartl 12 eq {(02 26&0,1s B 6,3) show} if xchartl 13 eq {(02 26&0,1s R 6,3) show} if xchartl 14 eq {(AD 26&0,1s G 6,3) show} if xchartl 15 eq {(04 26s A/B 6,3) show} if %xchartl=15 (cd/m) show (2) eshow (; hyp3) showen (; hyp3) showde tfn xt10 yt10 yd 1.3 mul sub moveto xchartl5 0 eq {%(dL=A1*A2*A3*X/(X+A2)**A3) (D) ss2 (L) js2 ( = ) bs2 (A) js2 (1) is2 ip2 (A) js2 (2) is2 ip2 (A) js2 (3) is2 ip2 (L) js2 (t) es2 ( / \050) bs2 (L) js2 (t) es2 (+) bs2 (A) js2 (2) is2 (\051) bs2 (2) es2 } if xchartl5 1 eq {%(L/dL=A1*A2*A3*X/(X+A2)**A3) show (log\050) bs2 (L/) js2 (D) ss2 (L) js2 (\051 = ) bs2 (A) js2 (1) is2 ip2 (A) js2 (2) is2 ip (t) js2 ip2 (L) js2 ( / \050) bs2 (L) js2 (t) es2 (+) bs2 (A) js2 (2) is2 (\051) bs2 (2) es2 } if xchartl5 2 eq {%(L/dL=A1*A2*A3*X/(X+A2)**A3) show (L/) js2 (D) ss2 (L) js2 ( = ) bs2 (A) js2 (1) is2 ip2 (A) js2 (2) is2 ip (t) js2 ip2 (L) js2 ( / \050) bs2 (L) js2 (t) es2 (+) bs2 (A) js2 (2) is2(\051) bs2 (2) es2 } if xchartl5 3 eq {(T*) js2 ( = ) bs2 (A) js2 (1) is2 ip (L) js2 (t) es2 ( / \050) bs2 (L) js2 (t) es2 (+) bs2 (A) js2 (2) is2 (\051) bs2 } if xchartl 09 le {/xchartx xchartl def} if xchartl 10 ge xchartl 14 le and {/xchartx xchartl 10 sub def} if xchartl 15 eq {/xchartx 0 def} if xt10 yt10 yd 2.5 mul sub moveto (A) ks4 (1) is4 (=) ns4 X0K 0 get cvsshow2 xt10 yt10 yd 3.5 mul sub moveto (A) ks4 (2) is4 (=) ns4 X0K 1 get cvsshow2 xt10 yt10 yd 4.5 mul sub moveto (A) ks4 (3) is4 (=) ns4 X0K 2 get cvsshow2 (=) ns4 (t) ks4 xt10 yt10 yd 5.5 mul sub moveto (A) ks4 (6) is4 (=) ns4 X0K 5 get cvsshow2 xt10 yt10 yd 6.5 mul sub moveto (A) ks4 (7) is4 (=) ns4 X0K 6 get cvsshow2 xt10 yt10 yd 7.5 mul sub moveto (D) ss4 (=) ns4 ALPHA xchartx get cvsshow3 newpath /xfact 700 def /yfact 700 def xchartl5 2 eq {/yfact 70 def} if xchartl5 3 eq {/yfact 35 def} if tfn MDK 0 eq {630} if MDK 1 eq {63} if MDK 2 eq {6.3} if MDK 3 eq {63} if log 3 add xfact mul 0 50 00 360 arc fill /xgr 33 array def /ygr 33 array def /ygs 33 array def /ygp 33 array def /ygm 33 array def /ver {00 -70 rmoveto 0 140 rlineto stroke} def /hor {-70 0 rmoveto 140 0 rlineto stroke} def /dgr {-50 -50 rmoveto 100 100 rlineto stroke} def /dgl {-50 50 rmoveto 100 -100 rlineto stroke} def /xs2 2 def /ys2 2 def /xs3 3 def /ys3 3 def /IM 32 def /JM 00 def %for this file: %For array: 4320=16*18*5*3=1440*3 % =%16 data * 18 colours * 10 series * (2xtp) %/MDX 16 18 mul 10 mul def %2880=16*18*10 /k16_18 16 18 xchartx mul mul def % MD MDX mul add def %16 data * 18 colours * 10 series xchartl 00 eq {/tfx {tfh} def} if %26s 6,3 cd/m**2 xchartl 01 eq {/tfx {tfy} def} if %26s 6,3 cd/m**2 xchartl 02 eq {/tfx {tfb} def} if %26s 6,3 cd/m**2 xchartl 03 eq {/tfx {tfr} def} if %26s 6,3 cd/m**2 xchartl 04 eq {/tfx {tfg} def} if %26s 6,3 cd/m**2 xchartl 05 eq {/tfx {tfw} def} if %0,1s 6,3 cd/m**2 xchartl 06 eq {/tfx {tfyz} def} if %0,1s 6,3 cd/m**2 xchartl 07 eq {/tfx {tfbz} def} if %0,1s 6,3 cd/m**2 xchartl 08 eq {/tfx {tfrz} def} if %0,1s 6,3 cd/m**2 xchartl 09 eq {/tfx {tfgz} def} if %0,1s 6,3 cd/m**2 xchartl 10 eq {/tfx {tfw} def} if %26&0,1s 6,3cd/m**2 xchartl 11 eq {/tfx {tfy} def} if %26&0,1s 6,3cd/m**2 xchartl 12 eq {/tfx {tfb} def} if %26&0,1s 6,3cd/m**2 xchartl 13 eq {/tfx {tfr} def} if %26&0,1s 6,3cd/m**2 xchartl 14 eq {/tfx {tfg} def} if %26&0,1s 6,3cd/m**2 xchartl 15 eq {/tfx {tfw} def} if %26s A,B 6,3cd/m**2 /j 0 def /IM IMDAT xchartx get def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 04 add k16_18 add def /j2 i 16 mul 13 add k16_18 add def xgr i AVR2DA05 j1 get put xchart 0 eq {%xchart=0 dL ygr i AVR2DA05 j2 get put } if %xchart=0 dL xchart 1 eq xchart 2 eq or {%xchart=1,2 L/dL log and linear ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put } if %xchart=0 L/dL } for %i=0,IM xchart 2 le {%xchart<=2, single data plot T* not possible 0 1 IM {/i exch def %i=0,IM i 05 le i 12 ge or {tfn} {tfx} ifelse xgr i get log xs3 add xfact mul ygr i get 0.001 add xchart 1 le {log} if ys2 add yfact mul moveto dgr i 05 le i 12 ge or {tfx} {tfn} ifelse xgr i get log xs3 add xfact mul ygr i get 0.001 add xchart 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM } if %xchart<=2 %************************************************************* /iout0 1 def iout0 1 eq {%iout0=1 %FIT by hyperbolic equations with 3 constants %C A ' %EQUATIONS USED',/, %C 1 ' %SEIM RESPONSE FUNCTION',/, %C 1 ' %FR=R(I)=A1*L**A3/(L**A3+A2)',/, %C 1 ' =A1*XXY',/, %C 2 ' %X=Y(I)=L',/, %C 3 ' %XX=X**A3',/, %C 4 ' %XXY=XX/(XX+A2)**2',/, %C 6 ' %L/dL=A1*A2*t*XX/(XX+A2)**2',/, %C 6 ' % =A1*A2*t*XXY',/, %C 7 ' %FLDDL=F(I)=A1*A2*A3*XX/(XX+A2)**2',/, %C 7 ' % =A1*A2*A3*XXY',/, %C 8 ' %FDL=dL =L/FLDDL %C 5 ' %A(I,JMP)=V(I)-F(I)') tfx 0 1 IM {/i exch def %i=0,IM /X xgr i get def /XX X A3 exp def /XXY XX XX A2 add 2 exp div def /FLDDL A1 A2 mul A3 mul XXY mul def /FDL X FLDDL div def /FR A1 XX XX A2 add div mul def xgr i get log xs3 add xfact mul xchart 0 eq {FDL log ys2 add yfact mul} if xchart 1 eq {FLDDL 0.001 add log ys2 add yfact mul} if xchart 2 eq {FLDDL 0.001 add ys2 add yfact mul} if xchart 3 eq {FR ys2 add yfact mul} if i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM %STOP2 %*********************************************************** /iout 1 def iout 1 eq {%iout=1 xchartl 10 ge {%BEG second curve xchartl 10 ge xchartl 14 le and {/xchartx xchartl 5 sub def} if xchartl 15 eq {/xchartx 2 def} if /k16_18 16 18 xchartx mul mul def % MD MDX mul add def %16 data * 18 colours * 10 series (2 x tp) xchartl 10 eq {/tfx {tfw } def} if %0,1s 6,3 cd/m**2 xchartl 11 eq {/tfx {tfyz} def} if %0,1s 6,3 cd/m**2 xchartl 12 eq {/tfx {tfbz} def} if %0,1s 6,3 cd/m**2 xchartl 13 eq {/tfx {tfrz} def} if %0,1s 6,3 cd/m**2 xchartl 14 eq {/tfx {tfgz} def} if %0,1s 6,3 cd/m**2 xchartl 15 eq {/tfx {tfb } def} if %xchartl=9 /j 0 def /IM IMDAT xchartx get def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 04 add k16_18 add def /j2 i 16 mul 13 add k16_18 add def xgr i AVR2DA05 j1 get put xchart 0 eq {%xchart=0 dL ygr i AVR2DA05 j2 get put } if %xchart=0 dL xchart 1 eq xchart 2 eq or {%xchart=1,2 L/dL log and linear ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put } if %xchart=0 L/dL } for %i=0,IM xchart 2 le {%xchart<=2, single data plot T* not possible 0 1 IM {/i exch def %i=0,IM i 05 le i 12 ge or {tfn} {tfx} ifelse xgr i get log xs3 add xfact mul ygr i get 0.001 add xchart 1 le {log} if ys2 add yfact mul moveto dgr i 05 le i 12 ge or {tfx} {tfn} ifelse xgr i get log xs3 add xfact mul ygr i get 0.001 add xchart 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM } if %xchart<=2, single data plot T* not possible } if %iout0=1 %************************************************************* %FOR SECOND CURVE FIT xchartl 10 ge {%xchartl>=10 0 1 9 {/j exch def %j=0,9 xchartl 10 eq {X0K j X0K5 j get put} if xchartl 11 eq {X0K j X0K6 j get put} if xchartl 12 eq {X0K j X0K7 j get put} if xchartl 13 eq {X0K j X0K8 j get put} if xchartl 14 eq {X0K j X0K9 j get put} if xchartl 15 eq {X0K j X0K2 j get put} if %AD26 G4 } for %j=0,9 /xt1x xt10 1200 add def tfn xt1x yt10 yd 2.5 mul sub moveto (A) ks4 (1) is4 (=) ns4 X0K 0 get cvsshow2 xt1x yt10 yd 3.5 mul sub moveto (A) ks4 (2) is4 (=) ns4 X0K 1 get cvsshow2 xt1x yt10 yd 4.5 mul sub moveto (A) ks4 (3) is4 (=) ns4 X0K 2 get cvsshow2 (=) ns4 (t) ks4 xt1x yt10 yd 5.5 mul sub moveto (A) ks4 (6) is4 (=) ns4 X0K 5 get cvsshow2 xt1x yt10 yd 6.5 mul sub moveto (A) ks4 (7) is4 (=) ns4 X0K 6 get cvsshow2 xt1x yt10 yd 7.5 mul sub moveto (D) ss4 (=) ns4 ALPHA xchartx get cvsshow3 xchartl 15 eq {/tfx {tfb } def} if /A1 X0K 0 get def /A2 X0K 1 get def /A3 X0K 2 get def tfx 0 1 IM {/i exch def %i=0,IM /X xgr i get def /XX X A3 exp def /XXY XX XX A2 add 2 exp div def /FLDDL A1 A2 mul A3 mul XXY mul def /FDL X FLDDL div def /FR A1 XX XX A2 add div mul def xgr i get log xs3 add xfact mul xchart 0 eq {FDL log ys2 add yfact mul} if xchart 1 eq {FLDDL 0.001 add log ys2 add yfact mul} if xchart 2 eq {FLDDL 0.001 add ys2 add yfact mul} if xchart 3 eq {FR ys2 add yfact mul} if i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } if %xchartl>=10 } if %END second curve } if %iout=1 550 neg 400 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore } for %xchart=0,8 for MDK: 0=6,3cd/m**2, 1x3 plots %%Trailer