%!PS-Adobe-3.0 EPSF-3.0 TE660-4A %%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/TE66/) /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 /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 /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %For array: 28512=9504*3=3168*3*3=16*18*11*3*3 % =%16 data * 18 colours * 11 series * 3 luminances *3 repeats %For array: 9504=3168*3=16*18*11*3 % =%16 data * 18 colours * 11 series * 3 luminances %/AVR2DA05 28512 array def %3168*3*3=9504*3 %for this file: %For array: 9504=3168*3=16*18*11*3 % =%16 data * 18 colours * 11 series * 3 repeats %For array: 3168=16*18*11 * 1 average % =%16 data * 18 colours * 11 series * 1 average /AVR2DA05 3168 array def %3168 /AVR2DA05 [ % 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 2014_01_03 % Output file: AVR2DA18.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 %420000 xg yg Yg Lg SAn Sd Sp Lw Lg GAn _______2X Li delta_Li delta_Lis %430000 a* b* L* C*ab da* db* DL* dE*ab _____3 %440000 aJ bJ Y CJab daJ dbJ DLJ dEJab _____4 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 0 0 10161 1 18 %!18 KR26 A 6.3 410010 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1573E+03 1 3 1 0 14 0.4954E+02 0.2936E+01 0.9321E+01 410020 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.7135E+02 1 3 1 0 14 0.2248E+02 0.2125E+01 0.6746E+01 410030 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.3039E+02 1 3 1 0 14 0.9574E+01 0.6422E+00 0.2039E+01 410040 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1074E+02 1 3 1 0 14 0.3383E+01 0.7371E+00 0.2340E+01 410050 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.8046E+01 1 3 1 1 14 0.2534E+01 0.1072E+00 0.3405E+00 410060 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.3416E+01 1 3 1 1 14 0.1076E+01 0.2181E+00 0.6924E+00 410070 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.4387E+01 1 3 1 1 14 0.1382E+01 0.1654E-01 0.5251E-01 410080 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.1620E+01 1 3 1 1 14 0.5104E+00 0.4296E-02 0.1364E-01 410090 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.8709E+00 1 3 1 1 14 0.2743E+00 0.1290E-01 0.4095E-01 410100 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.4445E+00 1 3 1 1 14 0.1400E+00 0.4984E-02 0.1582E-01 410110 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.2279E+00 1 3 1 1 14 0.7180E-01 0.1821E-02 0.5782E-02 410120 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.1803E+00 1 3 1 1 14 0.5679E-01 0.3814E-02 0.1211E-01 410130 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2313E+00 1 3 1 1 14 0.7286E-01 0.5447E-02 0.1729E-01 410140 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1512E+00 1 3 1 1 14 0.4763E-01 0.6989E-03 0.2219E-02 410150 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1092E+00 1 3 1 1 14 0.3440E-01 0.2839E-02 0.9013E-02 410160 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.8695E-01 1 3 1 0 14 0.2739E-01 0.2607E-02 0.8278E-02 410170 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.7691E-01 1 3 1 0 14 0.2423E-01 0.1032E-02 0.3275E-02 410180 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.6399E-01 1 3 1 0 14 0.2016E-01 0.7223E-03 0.2293E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 1 0 10163 1 18 %!18 PO26 A 6.3 410011 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1644E+03 1 3 1 0 14 0.5178E+02 0.2737E+01 0.8690E+01 410021 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.6802E+02 1 3 1 0 14 0.2142E+02 0.9528E+00 0.3025E+01 410031 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.2823E+02 1 3 1 0 14 0.8894E+01 0.1559E+00 0.4949E+00 410041 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1439E+02 1 3 1 0 14 0.4533E+01 0.1326E+00 0.4209E+00 410051 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.8508E+01 1 3 1 1 14 0.2680E+01 0.9932E-01 0.3153E+00 410061 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.4772E+01 1 3 1 1 14 0.1503E+01 0.6493E-01 0.2061E+00 410071 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.6225E+01 1 3 1 1 14 0.1961E+01 0.1502E+00 0.4768E+00 410081 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.2656E+01 1 3 1 1 14 0.8366E+00 0.4547E-01 0.1443E+00 410091 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.1140E+01 1 3 1 1 14 0.3590E+00 0.1266E-01 0.4019E-01 410101 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.5454E+00 1 3 1 1 14 0.1718E+00 0.1017E-01 0.3229E-01 410111 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.3629E+00 1 3 1 1 14 0.1143E+00 0.8488E-02 0.2695E-01 410121 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.2223E+00 1 3 1 1 14 0.7001E-01 0.3087E-02 0.9799E-02 410131 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2931E+00 1 3 1 1 14 0.9232E-01 0.2306E-02 0.7320E-02 410141 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1538E+00 1 3 1 1 14 0.4844E-01 0.3289E-02 0.1044E-01 410151 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1101E+00 1 3 1 1 14 0.3469E-01 0.2941E-02 0.9337E-02 410161 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.9716E-01 1 3 1 0 14 0.3061E-01 0.2100E-02 0.6668E-02 410171 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.6700E-01 1 3 1 0 14 0.2111E-01 0.1104E-02 0.3505E-02 410181 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.5418E-01 1 3 1 0 14 0.1707E-01 0.8345E-03 0.2649E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 2 0 10165 1 18 %!18 BM26 A 6.3 410012 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1044E+03 1 3 1 0 14 0.3288E+02 0.3239E+01 0.1028E+02 410022 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.4263E+02 1 3 1 0 14 0.1343E+02 0.1776E+01 0.5637E+01 410032 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.2277E+02 1 3 1 0 14 0.7173E+01 0.9647E+00 0.3063E+01 410042 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1168E+02 1 3 1 0 14 0.3679E+01 0.3171E+00 0.1007E+01 410052 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.7270E+01 1 3 1 1 14 0.2290E+01 0.1718E+00 0.5453E+00 410062 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.4107E+01 1 3 1 1 14 0.1294E+01 0.2121E+00 0.6733E+00 410072 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.5966E+01 1 3 1 1 14 0.1879E+01 0.1738E+00 0.5518E+00 410082 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.2917E+01 1 3 1 1 14 0.9187E+00 0.1018E+00 0.3231E+00 410092 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.1251E+01 1 3 1 1 14 0.3940E+00 0.1901E-01 0.6035E-01 410102 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.6611E+00 1 3 1 1 14 0.2082E+00 0.1397E-01 0.4434E-01 410112 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.3527E+00 1 3 1 1 14 0.1111E+00 0.1624E-02 0.5155E-02 410122 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.2087E+00 1 3 1 1 14 0.6572E-01 0.6515E-02 0.2068E-01 410132 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2573E+00 1 3 1 1 14 0.8104E-01 0.8400E-02 0.2667E-01 410142 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1619E+00 1 3 1 1 14 0.5099E-01 0.5163E-02 0.1639E-01 410152 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1131E+00 1 3 1 1 14 0.3562E-01 0.1332E-02 0.4230E-02 410162 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.8115E-01 1 3 1 0 14 0.2556E-01 0.2247E-02 0.7133E-02 410172 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.6528E-01 1 3 1 0 14 0.2056E-01 0.2461E-03 0.7812E-03 410182 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.5829E-01 1 3 1 0 14 0.1836E-01 0.3251E-03 0.1032E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 3 0 10167 1 18 %!18 AD26 A 6.3 410013 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1357E+03 1 3 1 0 14 0.4273E+02 0.8240E+00 0.2616E+01 410023 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.5593E+02 1 3 1 0 14 0.1762E+02 0.1983E+01 0.6297E+01 410033 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.2437E+02 1 3 1 0 14 0.7677E+01 0.8809E+00 0.2797E+01 410043 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1244E+02 1 3 1 0 14 0.3919E+01 0.1770E+00 0.5618E+00 410053 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.6307E+01 1 3 1 1 14 0.1987E+01 0.1177E+00 0.3736E+00 410063 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.4494E+01 1 3 1 1 14 0.1416E+01 0.2342E-01 0.7434E-01 410073 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.4887E+01 1 3 1 1 14 0.1540E+01 0.3256E-01 0.1034E+00 410083 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.1903E+01 1 3 1 1 14 0.5994E+00 0.9929E-02 0.3152E-01 410093 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.9389E+00 1 3 1 1 14 0.2958E+00 0.5625E-02 0.1786E-01 410103 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.5171E+00 1 3 1 1 14 0.1629E+00 0.7577E-02 0.2406E-01 410113 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.3016E+00 1 3 1 1 14 0.9502E-01 0.6670E-02 0.2117E-01 410123 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.2279E+00 1 3 1 1 14 0.7180E-01 0.5322E-02 0.1690E-01 410133 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2840E+00 1 3 1 1 14 0.8945E-01 0.5413E-02 0.1718E-01 410143 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1517E+00 1 3 1 1 14 0.4780E-01 0.9977E-03 0.3167E-02 410153 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1024E+00 1 3 1 1 14 0.3225E-01 0.2639E-02 0.8378E-02 410163 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.7629E-01 1 3 1 0 14 0.2403E-01 0.1999E-03 0.6347E-03 410173 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.5824E-01 1 3 1 0 14 0.1835E-01 0.9555E-03 0.3033E-02 410183 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.5656E-01 1 3 1 0 14 0.1782E-01 0.2857E-03 0.9071E-03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 0 0 11177 1 18 %!18 KR26 Y 6.3 411010 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.4955E+02 1 3 1 0 14 0.1561E+02 0.4477E+00 0.1421E+01 411020 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.1693E+02 1 3 1 0 14 0.5333E+01 0.4351E+00 0.1381E+01 411030 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.8674E+01 1 3 1 1 14 0.2732E+01 0.2935E+00 0.9317E+00 411040 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.4416E+01 1 3 1 1 14 0.1391E+01 0.3240E-01 0.1028E+00 411050 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.2286E+01 1 3 1 1 14 0.7201E+00 0.2455E-01 0.7792E-01 411060 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.1475E+01 1 3 1 1 14 0.4647E+00 0.3193E-01 0.1014E+00 411070 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.1400E+01 1 3 1 1 14 0.4411E+00 0.2874E-01 0.9123E-01 411080 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.5851E+00 1 3 1 1 14 0.1843E+00 0.1821E-02 0.5782E-02 411090 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.2279E+00 1 3 1 1 14 0.7180E-01 0.5826E-02 0.1849E-01 411100 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.1746E+00 1 3 1 1 14 0.5501E-01 0.1052E-02 0.3338E-02 411110 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.1304E+00 1 3 1 1 14 0.4108E-01 0.2103E-02 0.6677E-02 411120 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.1066E+00 1 3 1 1 14 0.3358E-01 0.2917E-03 0.9259E-03 411130 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.1173E+00 1 3 1 1 14 0.3694E-01 0.3997E-02 0.1269E-01 411140 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.8907E-01 1 3 1 0 14 0.2806E-01 0.1494E-02 0.4744E-02 411150 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.7279E-01 1 3 1 0 14 0.2293E-01 0.8789E-03 0.2790E-02 411160 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.6483E-01 1 3 1 0 14 0.2042E-01 0.6406E-03 0.2034E-02 411170 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.6789E-01 1 3 1 0 14 0.2138E-01 0.1054E-02 0.3347E-02 411180 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.4701E-01 1 3 1 0 14 0.1481E-01 0.9453E-03 0.3001E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 1 0 11179 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 2 0 11181 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 3 0 11183 1 18 %!18 AD26 Y 6.3 411013 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.4695E+02 1 3 1 0 14 0.1479E+02 0.1753E+00 0.5565E+00 411023 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.1988E+02 1 3 1 0 14 0.6263E+01 0.1113E+00 0.3534E+00 411033 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.1010E+02 1 3 1 1 14 0.3182E+01 0.1225E+00 0.3889E+00 411043 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.5029E+01 1 3 1 1 14 0.1584E+01 0.5555E-01 0.1764E+00 411053 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.3143E+01 1 3 1 1 14 0.9902E+00 0.3544E-01 0.1125E+00 411063 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.1785E+01 1 3 1 1 14 0.5622E+00 0.2122E-01 0.6738E-01 411073 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.2115E+01 1 3 1 1 14 0.6662E+00 0.6495E-02 0.2062E-01 411083 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.9469E+00 1 3 1 1 14 0.2983E+00 0.1041E-01 0.3303E-01 411093 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.4683E+00 1 3 1 1 14 0.1475E+00 0.4906E-02 0.1558E-01 411103 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.2971E+00 1 3 1 1 14 0.9359E-01 0.7716E-03 0.2450E-02 411113 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.1894E+00 1 3 1 1 14 0.5965E-01 0.2103E-02 0.6677E-02 411123 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.1531E+00 1 3 1 1 14 0.4822E-01 0.1515E-02 0.4811E-02 411133 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.1581E+00 1 3 1 1 14 0.4980E-01 0.1847E-02 0.5865E-02 411143 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.9415E-01 1 3 1 0 14 0.2966E-01 0.2689E-03 0.8537E-03 411153 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.7041E-01 1 3 1 0 14 0.2218E-01 0.7792E-03 0.2474E-02 411163 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.5970E-01 1 3 1 0 14 0.1881E-01 0.1186E-02 0.3767E-02 411173 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.5104E-01 1 3 1 0 14 0.1608E-01 0.3209E-03 0.1019E-02 411183 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.4736E-01 1 3 1 0 14 0.1492E-01 0.3563E-03 0.1131E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 0 0 12193 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 1 0 12195 1 18 %!18 PO26 B 6.3 412011 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.6612E+01 1 3 1 1 14 0.2083E+01 0.1146E+00 0.3638E+00 412021 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.2487E+01 1 3 1 1 14 0.7833E+00 0.6843E-01 0.2172E+00 412031 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.1425E+01 1 3 1 1 14 0.4490E+00 0.5431E-01 0.1724E+00 412041 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.7643E+00 1 3 1 1 14 0.2408E+00 0.3208E-02 0.1018E-01 412051 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.4785E+00 1 3 1 1 14 0.1507E+00 0.3087E-02 0.9799E-02 412061 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.2824E+00 1 3 1 1 14 0.8894E-01 0.4010E-02 0.1273E-01 412071 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.3323E+00 1 3 1 1 14 0.1047E+00 0.6858E-02 0.2177E-01 412081 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.1565E+00 1 3 1 1 14 0.4929E-01 0.3536E-02 0.1123E-01 412091 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1111E+00 1 3 1 0 14 0.3501E-01 0.1052E-02 0.3338E-02 412101 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.7938E-01 1 3 1 0 14 0.2500E-01 0.7716E-03 0.2450E-02 412111 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.5783E-01 1 3 1 0 14 0.1822E-01 0.5052E-03 0.1604E-02 412121 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.4536E-01 1 3 1 0 14 0.1429E-01 0.5833E-03 0.1852E-02 412131 0.1468 0.1914 0.1834E+00 0.5779E-01 0.0000 0.0000 0.5643E-01 1 3 1 0 14 0.1778E-01 0.6882E-03 0.2185E-02 412141 0.1468 0.1914 0.7245E-01 0.2282E-01 0.0000 0.0000 0.4170E-01 1 3 1 0 14 0.1314E-01 0.1330E-02 0.4221E-02 412151 0.1468 0.1914 0.3337E-01 0.1051E-01 0.0000 0.0000 0.4630E-01 1 3 1 0 14 0.1459E-01 0.1569E-02 0.4981E-02 412161 0.1468 0.1914 0.1798E-01 0.5663E-02 0.0000 0.0000 0.4051E-01 1 3 1 0 14 0.1276E-01 0.4058E-03 0.1288E-02 412171 0.1468 0.1914 0.9951E-02 0.3135E-02 0.0000 0.0000 0.4582E-01 1 3 1 0 14 0.1443E-01 0.1727E-02 0.5483E-02 412181 0.1468 0.1914 0.5592E-02 0.1761E-02 0.0000 0.0000 0.4613E-01 1 3 1 0 14 0.1453E-01 0.5697E-03 0.1809E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 2 0 12197 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 3 0 12199 1 18 %!18 AD26 B 6.3 412013 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.5773E+01 1 3 1 1 14 0.1819E+01 0.1166E+00 0.3702E+00 412023 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.2795E+01 1 3 1 1 14 0.8805E+00 0.4289E-01 0.1362E+00 412033 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.1398E+01 1 3 1 1 14 0.4404E+00 0.6449E-02 0.2047E-01 412043 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.8244E+00 1 3 1 1 14 0.2597E+00 0.5258E-02 0.1669E-01 412053 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.5160E+00 1 3 1 1 14 0.1625E+00 0.6821E-02 0.2165E-01 412063 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.3311E+00 1 3 1 1 14 0.1043E+00 0.1343E-01 0.4262E-01 412073 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.4094E+00 1 3 1 1 14 0.1289E+00 0.4584E-02 0.1455E-01 412083 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.2302E+00 1 3 1 1 14 0.7251E-01 0.1543E-02 0.4899E-02 412093 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1372E+00 1 3 1 0 14 0.4322E-01 0.1052E-02 0.3338E-02 412103 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.9752E-01 1 3 1 0 14 0.3072E-01 0.1167E-02 0.3704E-02 412113 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.7484E-01 1 3 1 0 14 0.2358E-01 0.1010E-02 0.3207E-02 412123 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.5103E-01 1 3 1 0 14 0.1607E-01 0.5052E-03 0.1604E-02 412133 0.1468 0.1914 0.1834E+00 0.5779E-01 0.0000 0.0000 0.5599E-01 1 3 1 0 14 0.1764E-01 0.3759E-03 0.1193E-02 412143 0.1468 0.1914 0.7245E-01 0.2282E-01 0.0000 0.0000 0.4949E-01 1 3 1 0 14 0.1559E-01 0.2397E-03 0.7609E-03 412153 0.1468 0.1914 0.3337E-01 0.1051E-01 0.0000 0.0000 0.4312E-01 1 3 1 0 14 0.1358E-01 0.6850E-03 0.2175E-02 412163 0.1468 0.1914 0.1798E-01 0.5663E-02 0.0000 0.0000 0.3914E-01 1 3 1 0 14 0.1233E-01 0.7337E-03 0.2329E-02 412173 0.1468 0.1914 0.9951E-02 0.3135E-02 0.0000 0.0000 0.3794E-01 1 3 1 0 14 0.1195E-01 0.4658E-03 0.1479E-02 412183 0.1468 0.1914 0.5592E-02 0.1761E-02 0.0000 0.0000 0.3644E-01 1 3 1 0 14 0.1148E-01 0.8497E-03 0.2698E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 0 0 13209 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 1 0 13211 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 2 0 13213 1 18 %!18 BM26 R 6.3 413012 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.6527E+01 1 3 1 1 14 0.2056E+01 0.1152E+00 0.3658E+00 413022 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.3000E+01 1 3 1 1 14 0.9452E+00 0.5738E-01 0.1821E+00 413032 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.1346E+01 1 3 1 1 14 0.4240E+00 0.1852E-01 0.5880E-01 413042 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.7121E+00 1 3 1 1 14 0.2243E+00 0.1492E-01 0.4736E-01 413052 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.4445E+00 1 3 1 1 14 0.1400E+00 0.7600E-02 0.2413E-01 413062 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.2801E+00 1 3 1 1 14 0.8823E-01 0.4083E-02 0.1296E-01 413072 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.3674E+00 1 3 1 1 14 0.1157E+00 0.9273E-02 0.2944E-01 413082 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.1485E+00 1 3 1 1 14 0.4679E-01 0.2103E-02 0.6677E-02 413092 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.1052E-02 0.3338E-02 413102 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.6577E-01 1 3 1 0 14 0.2072E-01 0.1271E-02 0.4036E-02 413112 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.4649E-01 1 3 1 0 14 0.1465E-01 0.5833E-03 0.1852E-02 413122 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.3289E-01 1 3 1 0 14 0.1036E-01 0.2917E-03 0.9259E-03 413132 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.5577E-01 1 3 1 0 14 0.1757E-01 0.6826E-03 0.2167E-02 413142 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.4020E-01 1 3 1 0 14 0.1266E-01 0.7169E-03 0.2276E-02 413152 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.3175E-01 1 3 1 0 14 0.1000E-01 0.9335E-03 0.2964E-02 413162 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.2516E-01 1 3 1 0 14 0.7927E-02 0.1282E-03 0.4069E-03 413172 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.2547E-01 1 3 1 0 14 0.8024E-02 0.4591E-03 0.1457E-02 413182 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.2945E-01 1 3 1 0 14 0.9278E-02 0.5998E-03 0.1904E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 3 0 13215 1 18 %!18 AD26 R 6.3 413013 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.5885E+01 1 3 1 1 14 0.1854E+01 0.1798E-01 0.5708E-01 413023 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.2321E+01 1 3 1 1 14 0.7312E+00 0.5024E-01 0.1595E+00 413033 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.1210E+01 1 3 1 1 14 0.3811E+00 0.1896E-01 0.6018E-01 413043 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.6407E+00 1 3 1 1 14 0.2018E+00 0.4694E-02 0.1490E-01 413053 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.3640E+00 1 3 1 1 14 0.1147E+00 0.6683E-02 0.2121E-01 413063 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.2529E+00 1 3 1 1 14 0.7966E-01 0.2492E-02 0.7911E-02 413073 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.3368E+00 1 3 1 1 14 0.1061E+00 0.8750E-03 0.2778E-02 413083 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.1440E+00 1 3 1 1 14 0.4536E-01 0.4236E-02 0.1345E-01 413093 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.1543E-02 0.4899E-02 413103 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.6123E-01 1 3 1 0 14 0.1929E-01 0.1821E-02 0.5782E-02 413113 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.3969E-01 1 3 1 0 14 0.1250E-01 0.7716E-03 0.2450E-02 413123 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.3062E-01 1 3 1 0 14 0.9644E-02 0.8750E-03 0.2778E-02 413133 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.6351E-01 1 3 1 0 14 0.2000E-01 0.3535E-02 0.1122E-01 413143 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.3511E-01 1 3 1 0 14 0.1106E-01 0.5468E-03 0.1736E-02 413153 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.2804E-01 1 3 1 0 14 0.8832E-02 0.6206E-03 0.1970E-02 413163 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.2645E-01 1 3 1 0 14 0.8331E-02 0.1312E-03 0.4164E-03 413173 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.2485E-01 1 3 1 0 14 0.7829E-02 0.1652E-03 0.5245E-03 413183 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.2362E-01 1 3 1 0 14 0.7439E-02 0.3279E-03 0.1041E-02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 0 0 14225 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 1 0 14227 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 2 0 14229 0 0 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX= 0 3 0 14231 1 18 %!18 AD26 G 6.3 414013 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 414023 0.2552 0.4446 0.1591E+03 0.5012E+02 0.0000 0.0000 0.8676E+01 1 3 1 1 14 0.2733E+01 0.4233E-01 0.1344E+00 414033 0.2552 0.4446 0.7329E+02 0.2309E+02 0.0000 0.0000 0.4596E+01 1 3 1 1 14 0.1448E+01 0.4295E-01 0.1363E+00 414043 0.2552 0.4446 0.3948E+02 0.1244E+02 0.0000 0.0000 0.2615E+01 1 3 1 1 14 0.8237E+00 0.9395E-01 0.2983E+00 414053 0.2552 0.4446 0.2185E+02 0.6884E+01 0.0000 0.0000 0.1355E+01 1 3 1 1 14 0.4269E+00 0.1494E-01 0.4742E-01 414063 0.2552 0.4446 0.1228E+02 0.3868E+01 0.0000 0.0000 0.9174E+00 1 3 1 1 14 0.2890E+00 0.1254E-01 0.3981E-01 414073 0.2552 0.4446 0.1548E+02 0.4876E+01 0.0000 0.0000 0.7632E+00 1 3 1 1 14 0.2404E+00 0.1769E-01 0.5616E-01 414083 0.2552 0.4446 0.6150E+01 0.1937E+01 0.0000 0.0000 0.3595E+00 1 3 1 1 14 0.1132E+00 0.7650E-02 0.2429E-01 414093 0.2552 0.4446 0.2886E+01 0.9090E+00 0.0000 0.0000 0.2415E+00 1 3 1 1 14 0.7608E-01 0.1750E-02 0.5555E-02 414103 0.2552 0.4446 0.1578E+01 0.4971E+00 0.0000 0.0000 0.1610E+00 1 3 1 1 14 0.5072E-01 0.1912E-02 0.6071E-02 414113 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 414123 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 414133 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 414143 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 414153 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 414163 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 414173 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 414183 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 %499999 END,79 characters in any data line 99 ] 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 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 gsave /xchartl 3 def 0 1 2 {/xchart exch def %xchart=0,2 1x3 plots /MDK3 xchart def %0,1,2 for plots log dL, log L/dL, L/dL /MD 0 def %0=6.3cd/m**2 /MDK 0 def %0=6,3cd/m**2 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 (TE660-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 11 array def MDK 0 eq {%MDK=0: 6,3cd/m**2 /IMDAT %data of curve, 6, 12 or 18 values [17 17 17 17 17 17 17 17 17 17 17] def } if %MDK=0 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,15 gsave % 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 {(TE660-) show} {(TE661-) 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 MDK3 0 eq {%MDK3=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 %MDK3=0 MDK3 1 eq {%MDK3=1 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde xt2 yt0 ytd 1 mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde } if %MDK3=1 MDK3 2 eq {%MDK3=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 %MDK3=2 tfn MDK3 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 /eshow2 {-30 100 rmoveto TBK (2) show 0 100 rmoveto} def /eshowA2 {tfn 0 100 rmoveto TBK (A2) show 0 100 rmoveto tfw} 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 MDK 0 eq {(=6,3cd/m) show eshow2} if MDK 1 eq {(=63cd/m) show eshow2} if MDK 2 eq {(=630cd/m) show eshow2} 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 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 %!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 MDK3 1 le {%MDK3<=1 -450 iyt moveto ty i get exec show } if %MDK3<=1 MDK3 2 eq {%MDK3=2 -450 iyt moveto ty5 i get exec show } if %MDK3=2 -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 /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 /eshowA2 {tfn 0 100 rmoveto TBK (A2) show 0 100 rmoveto tfw} 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_HPPOTXY4_L5.LIS output of AUAV_HPPOTXY4_L5.FOR %wait after process start about 3 minutes, use TYPE AUAV_HPPOTXY4_L5.LIS %Least square fit of 3 parameters A1, A2, A3 %AUAV_HPPOTXY4_L5.FOR, IN/OUT AUAV_HPPOTXY4_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0014 1.1000 0.3200 0.0000 0.0000 0.0000 %% 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 2014_01_03 %% 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___ %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %18 KR26 A 6.3,LM0,KX,JM,JNR,IM: 40 10 3 0 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.2016E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.6426E+00 %END X(I),I=1,JM 0.7214E-04 0.8671E-04-0.1520E-04 %END X0K,J=1,6 0.1923E-01 0.1102E+01 0.2364E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.3096E-02 ALPHA 0 0.3096E-02 put A1 0 0.1923E-01 put A2 0 0.1102E+01 put A3 0 0.2364E-01 put % %18 PO26 A 6.3,LM0,KX,JM,JNR,IM: 40 10 3 1 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1707E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.7981E+00 %END X(I),I=1,JM 0.9678E-04 0.4179E-04-0.1727E-04 %END X0K,J=1,6 0.3401E-01 0.1018E+01 0.1857E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1588E-02 ALPHA 1 0.1588E-02 put A1 1 0.3401E-01 put A2 1 0.1018E+01 put A3 1 0.1857E-01 put % %18 BM26 A 6.3,LM0,KX,JM,JNR,IM: 40 10 3 2 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1836E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.7038E+00 %END X(I),I=1,JM 0.5833E-04 0.9554E-04-0.6490E-05 %END X0K,J=1,6 0.4035E-01 0.9393E+00 0.1580E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2296E-02 ALPHA 2 0.2296E-02 put A1 2 0.4035E-01 put A2 2 0.9393E+00 put A3 2 0.1580E-01 put % %18 AD26 A 6.3,LM0,KX,JM,JNR,IM: 40 10 3 3 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1782E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.6801E+00 %END X(I),I=1,JM 0.9287E-04-0.3692E-04-0.2471E-04 %END X0K,J=1,6 0.3071E-01 0.1000E+01 0.1721E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1445E-02 ALPHA 3 0.1445E-02 put A1 3 0.3071E-01 put A2 3 0.1000E+01 put A3 3 0.1721E-01 put % %18 KR26 Y 6.3,LM0,KX,JM,JNR,IM: 40 10 3 4 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1481E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.6464E+00 %END X(I),I=1,JM 0.3825E-04 0.9040E-04-0.3476E-07 %END X0K,J=1,6 0.2719E-01 0.1082E+01 0.1933E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2894E-02 ALPHA 4 0.2894E-02 put A1 4 0.2719E-01 put A2 4 0.1082E+01 put A3 4 0.1933E-01 put % %18 AD26 Y 6.3,LM0,KX,JM,JNR,IM: 40 10 3 5 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1492E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.8060E+00 %END X(I),I=1,JM 0.9468E-04 0.5711E-04-0.8451E-05 %END X0K,J=1,6 0.5933E-01 0.9350E+00 0.1456E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.4946E-03 ALPHA 5 0.4946E-03 put A1 5 0.5933E-01 put A2 5 0.9350E+00 put A3 5 0.1456E-01 put % %18 PO26 B 6.3,LM0,KX,JM,JNR,IM: 40 10 3 6 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1453E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.4807E+00 %END X(I),I=1,JM 0.2630E-04 0.9878E-04-0.2064E-06 %END X0K,J=1,6 0.6546E-01 0.9465E+00 0.1296E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.9754E-03 ALPHA 6 0.9754E-03 put A1 6 0.6546E-01 put A2 6 0.9465E+00 put A3 6 0.1296E-01 put % %18 AD26 B 6.3,LM0,KX,JM,JNR,IM: 40 10 3 7 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.1148E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.5943E+00 %END X(I),I=1,JM 0.5267E-04 0.9431E-04-0.3450E-06 %END X0K,J=1,6 0.8740E-01 0.8298E+00 0.1114E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.5304E-03 ALPHA 7 0.5304E-03 put A1 7 0.8740E-01 put A2 7 0.8298E+00 put A3 7 0.1114E-01 put % %18 BM26 R 6.3,LM0,KX,JM,JNR,IM: 40 10 3 8 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.9278E-02 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.4718E+00 %END X(I),I=1,JM 0.4676E-04 0.9906E-04-0.1534E-05 %END X0K,J=1,6 0.4106E-01 0.9270E+00 0.8551E-02 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2162E-02 ALPHA 8 0.2162E-02 put A1 8 0.4106E-01 put A2 8 0.9270E+00 put A3 8 0.8551E-02 put % %18 AD26 R 6.3,LM0,KX,JM,JNR,IM: 40 10 3 9 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.7439E-02 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.4739E+00 %END X(I),I=1,JM 0.9110E-04 0.6862E-04-0.3085E-05 %END X0K,J=1,6 0.3852E-01 0.8966E+00 0.7801E-02 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.3558E-02 ALPHA 9 0.3558E-02 put A1 9 0.3852E-01 put A2 9 0.8966E+00 put A3 9 0.7801E-02 put % %18 AD26 G 6.3,LM0,KX,JM,JNR,IM: 40 10 3 10 18 %BEG X0K,J=1,6 0.1400E-02 0.1100E+01 0.9041E-02 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.8643E+00 %END X(I),I=1,JM 0.9725E-04 0.1836E-04-0.4586E-05 %END X0K,J=1,6 0.7193E-01 0.9252E+00 0.9758E-02 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.3122E-02 ALPHA 10 0.3122E-02 put A1 10 0.7193E-01 put A2 10 0.9252E+00 put A3 10 0.9758E-02 put /yd 300 def MDK3 0 eq MDK3 2 eq or {%MDK3=0,2 %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 %MDK3=0,2 MDK3 1 eq {%MDK3=1 %table 1 right /xt10 3200 def /xt11 3500 def /xt12 4100 def /yt10 2050 def %table 2 left /xt20 200 def /yt20 2000 def } if %MDK3=1 tfw xt11 yt10 moveto TBIK (x) show xt12 yt10 moveto TBIK (y) show tfw xt10 yt10 yd sub moveto (A) show tfy xt10 yt10 yd 2 mul sub moveto (Y) show tfb xt10 yt10 yd 3 mul sub moveto (B) show tfr xt10 yt10 yd 4 mul sub moveto (R) show tfg xt10 yt10 yd 5 mul sub moveto (G) show TBK tfw xt11 yt10 yd sub moveto (0,34) show xt12 yt10 yd sub moveto (0,40) show xt11 yt10 yd 2 mul sub moveto (0,45) show xt12 yt10 yd 2 mul sub moveto (0,47) show xt11 yt10 yd 3 mul sub moveto (0,15) show xt12 yt10 yd 3 mul sub moveto (0,19) show xt11 yt10 yd 4 mul sub moveto (0,58) show xt12 yt10 yd 4 mul sub moveto (0,32) show xt11 yt10 yd 5 mul sub moveto (0,25) show xt12 yt10 yd 5 mul sub moveto (0,44) show tfn xt20 yt20 yd add moveto (L=A3+A1 L) show (A2) eshowA2 tfw xt20 yt20 moveto xchartl xchartl 2 idiv 2 mul eq {(Daten & P-A3-Fit) showde (data & P-A3-fit) showen} {(Daten & P-A3-pc-Fit) showde (data & P-A3-pc-fit) showen } ifelse xt20 yt20 yd sub moveto xchartl 00 eq xchartl 01 eq or {(AD 26s A&Y) show} if xchartl 02 eq xchartl 03 eq or {(AD 26s A&B) show} if xchartl 04 eq xchartl 05 eq or {(AD 26s A&R) show} if xchartl 06 eq xchartl 07 eq or {(AD 26s A&G) show} if xchartl 08 eq xchartl 09 eq or {(KR 26s A&Y) show} if xchartl 10 eq xchartl 11 eq or {(PO 26s A&B) show} if xchartl 12 eq xchartl 13 eq or {(BM 26s A&R) show} if xchartl 14 eq xchartl 15 eq or {(AD 26s A&G) show} if xt20 yt20 yd 2 mul sub moveto (average) showen (Mittel) showde newpath /xfact 700 def MDK3 0 eq MDK3 1 eq or {/yfact 700 def} if MDK3 2 eq {/yfact 70 def} if tfn MDK 0 eq {6.3} if MDK 1 eq {63} if MDK 2 eq {630} 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 xchartl 00 eq {/xchartx 03 def} if xchartl 01 eq {/xchartx 03 def} if xchartl 02 eq {/xchartx 03 def} if xchartl 03 eq {/xchartx 03 def} if xchartl 04 eq {/xchartx 03 def} if xchartl 05 eq {/xchartx 03 def} if xchartl 06 eq {/xchartx 03 def} if xchartl 07 eq {/xchartx 03 def} if xchartl 08 eq {/xchartx 00 def} if xchartl 09 eq {/xchartx 00 def} if xchartl 10 eq {/xchartx 01 def} if xchartl 11 eq {/xchartx 01 def} if xchartl 12 eq {/xchartx 02 def} if xchartl 13 eq {/xchartx 02 def} if xchartl 14 eq {/xchartx 03 def} if xchartl 15 eq {/xchartx 03 def} if %For array: 28512=9504*3=3168*3*3=16*18*11*3*3 % =%16 data * 18 colours * 11 series * 3 luminances *3 repeats %For array: 9504=3168*3=16*18*11*3 % =%16 data * 18 colours * 11 series * 3 luminances %for this file: %For array: 9504=3168*3=16*18*11*3 % =%16 data * 18 colours * 11 series * 3 luminances %For array: 3168=16*18*11 % =%16 data * 18 colours * 11 series /MDX 16 18 mul 11 mul def %3168=16*18*11 /k16_18 16 18 xchartx mul mul MD MDX mul add def %16 data * 18 colours * 11 series MDK 2 eq {/tfx {tfh} def} if %630cd/m**2 MDK 1 eq {/tfx {tfw} def} if %63dcd/m**2 MDK 0 eq {/tfx {tfd} def} if %6,3cd/m**2 0 1 JM {/j exch def %j=0,JM /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 MDK3 0 eq {%MDK3=0 dL ygr i AVR2DA05 j2 get put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put } if %MDK3=0 L/dL } for %i=0,IM 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 MDK3 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 MDK3 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM /jx MD 11 mul xchartx add def %for constants A1,A2,A3 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 MDK3 0 eq {%MDK3=0 dL ygr i A3 jx get A1 jx get xgr i get A2 jx get exp mul add put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i AVR2DA05 j1 get A3 jx get A1 jx get xgr i get A2 jx get exp mul add div put } if %MDK3=0 L/dL } for %i=0,IM 50 setlinewidth tfx 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul i 00 eq {moveto} if i 01 gt i IM lt and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } for %j=0,JM TBK tfn xa1 1000 moveto TBK (A1 A2 A3) show ( ) show SK (D) show TK xa1 100 sub 750 moveto TK A1 jx get cvsshow3 ( ) show A2 jx get cvsshow3 ( ) show A3 jx get cvsshow3 ( ) show ALPHA jx get cvsshow3 tfw /iout 1 def iout 1 eq {%iout=1 xchartl xchartl 2 idiv 2 mul eq {%xchartl even %theoretical rigth side xchartl 00 eq {/xchartx 05 def} if %AD01Y xchartl 02 eq {/xchartx 07 def} if %AD01B xchartl 04 eq {/xchartx 09 def} if %AD01R xchartl 06 eq {/xchartx 10 def} if %AD01G xchartl 08 eq {/xchartx 04 def} if %KR01Y xchartl 10 eq {/xchartx 06 def} if %PO01B xchartl 12 eq {/xchartx 08 def} if %BM01R xchartl 14 eq {/xchartx 10 def} if %AB01G /MDX 16 18 mul 11 mul def %9504=16*3*18*11 /k16_18 16 18 xchartx mul mul MD MDX mul add def %16 data * 18 colours * 11 series xchartl 00 eq xchartl 08 eq or {MDK 2 eq {/tfx {tfy } def} if MDK 1 eq {/tfx {tfy } def} if MDK 0 eq {/tfx {tfyz} def} if } if xchartl 02 eq xchartl 10 eq or {MDK 2 eq {/tfx {tfb } def} if MDK 1 eq {/tfx {tfb } def} if MDK 0 eq {/tfx {tfbz} def} if } if xchartl 04 eq xchartl 12 eq or {MDK 2 eq {/tfx {tfr } def} if MDK 1 eq {/tfx {tfr } def} if MDK 0 eq {/tfx {tfrz} def} if } if xchartl 06 eq xchartl 14 eq or {MDK 2 eq {/tfx {tfg } def} if MDK 1 eq {/tfx {tfg } def} if MDK 0 eq {/tfx {tfgz} def} if } if 0 1 JM {/j exch def %j=0,JM /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 MDK3 0 eq {%MDK3=0 dL ygr i AVR2DA05 j2 get put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put } if %MDK3=0 L/dL } for %i=0,IM 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 MDK3 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 MDK3 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM /jx MD 11 mul xchartx add def %for constants A1,A2,A3 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 MDK3 0 eq {%MDK3=0 dL ygr i A3 jx get A1 jx get xgr i get A2 jx get exp mul add put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i AVR2DA05 j1 get A3 jx get A1 jx get xgr i get A2 jx get exp mul add div put } if %MDK3=0 L/dL } for %i=0,IM 50 setlinewidth tfx 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul i 00 eq {moveto} if i 01 gt i IM lt and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } for %j=0,JM tfn xa1 100 sub 500 moveto TK A1 jx get cvsshow3 ( ) show A2 jx get cvsshow3 ( ) show A3 jx get cvsshow3 ( ) show ALPHA jx get cvsshow3 } if %xchartl even } if %iout=1 %***************************************************** /iout 1 def iout 1 eq {%iout=1 xchartl xchartl 2 idiv 2 mul ne {%xchart uneven %experimetal right side xchartl 01 eq {/xchartx 05 def} if %AD01Y xchartl 03 eq {/xchartx 07 def} if %AD01B xchartl 05 eq {/xchartx 09 def} if %AD01R xchartl 07 eq {/xchartx 10 def} if %AD01G xchartl 09 eq {/xchartx 04 def} if %KR01Y xchartl 11 eq {/xchartx 06 def} if %PO01B xchartl 13 eq {/xchartx 08 def} if %BM01R xchartl 15 eq {/xchartx 10 def} if %AB01G /MDX 16 18 mul 11 mul def %9504=16*3*18*11 /k16_18 16 18 xchartx mul mul MD MDX mul add def %16 data * 18 colours * 11 series /an 0.34 0.40 div def /bn 1.00 0.34 sub 0.40 sub 0.40 div 0.40 neg mul def xchartl 01 eq xchartl 09 eq or {%Y /ax 0.45 0.47 div def /bx 1.00 0.45 sub 0.47 sub 0.47 div 0.40 neg mul def /pr ax an sub dup mul bx bn sub dup mul add 0.5 exp def /pfak 1 7 93 mul 33 div 100 div pr mul sub def MDK 2 eq {/tfx {tfy } def} if MDK 1 eq {/tfx {tfy } def} if MDK 0 eq {/tfx {tfy } def} if } if xchartl 03 eq xchartl 11 eq or {%B /ax 0.15 0.19 div def /bx 1.00 0.15 sub 0.19 sub 0.19 div -0.40 mul def /pr ax an sub dup mul bx bn sub dup mul add 0.5 exp def /pfak 1 7 93 mul 33 div 100 div pr mul sub def MDK 2 eq {/tfx {tfb } def} if MDK 1 eq {/tfx {tfb } def} if MDK 0 eq {/tfx {tfb } def} if } if xchartl 05 eq xchartl 13 eq or {%R /ax 0.58 0.32 div def /bx 1.00 0.58 sub 0.32 sub 0.32 div -0.40 mul def /pr ax an sub dup mul bx bn sub dup mul add 0.5 exp def /pfak 1 10 90 mul 33 div 100 div pr mul sub def MDK 2 eq {/tfx {tfr } def} if MDK 1 eq {/tfx {tfr } def} if MDK 0 eq {/tfx {tfr } def} if } if xchartl 07 eq xchartl 15 eq or {%G /ax 0.25 0.44 div def /bx 1.00 0.25 sub 0.44 sub 0.44 div -0.40 mul def /pr ax an sub dup mul bx bn sub dup mul add 0.5 exp def /pfak 1 70 30 mul 33 div 100 div pr mul sub def MDK 2 eq {/tfx {tfg } def} if MDK 1 eq {/tfx {tfg } def} if MDK 0 eq {/tfx {tfg } def} if } if %/JM 0 def 0 1 JM {/j exch def %j=0,JM /IM IMDAT xchartx get def /jx MD 11 mul xchartx add def %for constants A1,A2,A3 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 MDK3 0 eq {%MDK3=0 dL ygr i A3 jx get A1 jx get xgr i get A2 jx get exp mul add pfak mul put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i AVR2DA05 j1 get A3 jx get A1 jx get xgr i get A2 jx get exp mul add pfak mul div put } if %MDK3=0 L/dL } for %i=0,IM 50 setlinewidth tfx 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul i 00 eq {moveto} if i 01 gt i IM lt and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } for %j=0,JM tfn xa1 100 sub 500 moveto TK A1 jx get cvsshow3 ( ) show A2 jx get cvsshow3 ( ) show A3 jx get cvsshow3 ( ) show ALPHA jx get cvsshow3 } if %xchart uneven } 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=630, 1=63, 2=6,3cd/m**2, 3x3 plots %%Trailer