%!PS-Adobe-3.0 EPSF-3.0 TG200-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/TG20/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %For array: 2560=512*5=16*32*1*5 % =%16 data * 32 colours * 1 series * 5 luminances /AVR1DA05 2560 array def %512*5=2560 /AVR1DA05 [ % 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: LINGDA03.FOR 2014_03_03 % Output file: LINGDA03.TXT 2014_03_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %610000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys %620000 xg yg Yg Lg SAn Sd Sp Lw Lg GAn _______2X Li delta_Li delta_Lis %630000 a* b* L* C*ab da* db* DL* dE*ab _____3 %640000 aJ bJ Y CJab daJ dbJ DLJ dEJab _____4 % 120 DLX(I) 0.001 0.002 0.003 0.006 % 120 DLX(I) 0.010 0.018 0.032 0.056 % 120 DLX(I) 0.100 0.180 0.320 0.560 % 120 DLX(I) 1.000 1.800 3.200 5.600 % 120 DLX(I) 10.000 18.000 32.000 56.000 % 120 DLX(I) 100.000 180.000 320.000 560.000 % 120 DLX(I) 1000.000 1800.000 3200.000 5600.000 % 120 DLX(I) 10000.000 18000.000 32000.000 56000.000 % EN,V1,YS,S,VGR -0.2500E+00 -0.5569E+02 0.4931E-02 0.4034E-01 -0.9418E+02 %129: ILU,ILL,DLL,DELTL 1 1 0.001 0.005 %129: ILU,ILL,DLL,DELTL 1 2 0.002 0.005 %129: ILU,ILL,DLL,DELTL 1 3 0.003 0.005 %129: ILU,ILL,DLL,DELTL 1 4 0.006 0.005 %129: ILU,ILL,DLL,DELTL 1 5 0.010 0.005 %129: ILU,ILL,DLL,DELTL 1 6 0.018 0.006 %129: ILU,ILL,DLL,DELTL 1 7 0.032 0.007 %129: ILU,ILL,DLL,DELTL 1 8 0.056 0.008 %129: ILU,ILL,DLL,DELTL 1 9 0.100 0.011 %129: ILU,ILL,DLL,DELTL 1 10 0.180 0.016 %129: ILU,ILL,DLL,DELTL 1 11 0.320 0.026 %129: ILU,ILL,DLL,DELTL 1 12 0.560 0.044 %129: ILU,ILL,DLL,DELTL 1 13 1.000 0.083 %129: ILU,ILL,DLL,DELTL 1 14 1.800 0.162 %129: ILU,ILL,DLL,DELTL 1 15 3.200 0.322 %129: ILU,ILL,DLL,DELTL 1 16 5.600 0.635 %129: ILU,ILL,DLL,DELTL 1 17 10.000 1.296 %129: ILU,ILL,DLL,DELTL 1 18 18.000 2.685 %129: ILU,ILL,DLL,DELTL 1 19 32.000 5.492 %129: ILU,ILL,DLL,DELTL 1 20 56.000 11.032 %129: ILU,ILL,DLL,DELTL 1 21 100.000 22.748 %129: ILU,ILL,DLL,DELTL 1 22 180.000 47.397 %129: ILU,ILL,DLL,DELTL 1 23 320.000 97.261 %129: ILU,ILL,DLL,DELTL 1 24 560.000 195.727 %129: ILU,ILL,DLL,DELTL 1 25 1000.000 403.986 %129: ILU,ILL,DLL,DELTL 1 26 1800.000 842.226 %129: ILU,ILL,DLL,DELTL 1 27 3200.000 1728.860 %129: ILU,ILL,DLL,DELTL 1 28 5600.000 3479.757 %129: ILU,ILL,DLL,DELTL 1 29 10000.000 7183.051 %129: ILU,ILL,DLL,DELTL 1 30 18000.000 14976.030 %129: ILU,ILL,DLL,DELTL 1 31 32000.000 30742.699 %129: ILU,ILL,DLL,DELTL 1 32 56000.000 61878.352 % EN,V1,YS,S,VGR -0.2500E+00 -0.1111E+03 0.2500E-01 0.3238E-01 -0.1185E+03 %129: ILU,ILL,DLL,DELTL 2 1 0.001 0.025 %129: ILU,ILL,DLL,DELTL 2 2 0.002 0.025 %129: ILU,ILL,DLL,DELTL 2 3 0.003 0.025 %129: ILU,ILL,DLL,DELTL 2 4 0.006 0.025 %129: ILU,ILL,DLL,DELTL 2 5 0.010 0.025 %129: ILU,ILL,DLL,DELTL 2 6 0.018 0.026 %129: ILU,ILL,DLL,DELTL 2 7 0.032 0.026 %129: ILU,ILL,DLL,DELTL 2 8 0.056 0.027 %129: ILU,ILL,DLL,DELTL 2 9 0.100 0.029 %129: ILU,ILL,DLL,DELTL 2 10 0.180 0.033 %129: ILU,ILL,DLL,DELTL 2 11 0.320 0.039 %129: ILU,ILL,DLL,DELTL 2 12 0.560 0.050 %129: ILU,ILL,DLL,DELTL 2 13 1.000 0.072 %129: ILU,ILL,DLL,DELTL 2 14 1.800 0.116 %129: ILU,ILL,DLL,DELTL 2 15 3.200 0.200 %129: ILU,ILL,DLL,DELTL 2 16 5.600 0.363 %129: ILU,ILL,DLL,DELTL 2 17 10.000 0.701 %129: ILU,ILL,DLL,DELTL 2 18 18.000 1.404 %129: ILU,ILL,DLL,DELTL 2 19 32.000 2.820 %129: ILU,ILL,DLL,DELTL 2 20 56.000 5.607 %129: ILU,ILL,DLL,DELTL 2 21 100.000 11.491 %129: ILU,ILL,DLL,DELTL 2 22 180.000 23.858 %129: ILU,ILL,DLL,DELTL 2 23 320.000 48.866 %129: ILU,ILL,DLL,DELTL 2 24 560.000 98.234 %129: ILU,ILL,DLL,DELTL 2 25 1000.000 202.632 %129: ILU,ILL,DLL,DELTL 2 26 1800.000 422.297 %129: ILU,ILL,DLL,DELTL 2 27 3200.000 866.696 %129: ILU,ILL,DLL,DELTL 2 28 5600.000 1744.255 %129: ILU,ILL,DLL,DELTL 2 29 10000.000 3600.336 %129: ILU,ILL,DLL,DELTL 2 30 18000.000 7506.122 %129: ILU,ILL,DLL,DELTL 2 31 32000.000 15408.226 %129: ILU,ILL,DLL,DELTL 2 32 56000.000 31013.072 % EN,V1,YS,S,VGR -0.2500E+00 -0.2217E+03 0.1267E+00 0.2595E-01 -0.1491E+03 %129: ILU,ILL,DLL,DELTL 3 1 0.001 0.127 %129: ILU,ILL,DLL,DELTL 3 2 0.002 0.127 %129: ILU,ILL,DLL,DELTL 3 3 0.003 0.127 %129: ILU,ILL,DLL,DELTL 3 4 0.006 0.127 %129: ILU,ILL,DLL,DELTL 3 5 0.010 0.127 %129: ILU,ILL,DLL,DELTL 3 6 0.018 0.127 %129: ILU,ILL,DLL,DELTL 3 7 0.032 0.128 %129: ILU,ILL,DLL,DELTL 3 8 0.056 0.129 %129: ILU,ILL,DLL,DELTL 3 9 0.100 0.130 %129: ILU,ILL,DLL,DELTL 3 10 0.180 0.133 %129: ILU,ILL,DLL,DELTL 3 11 0.320 0.137 %129: ILU,ILL,DLL,DELTL 3 12 0.560 0.146 %129: ILU,ILL,DLL,DELTL 3 13 1.000 0.161 %129: ILU,ILL,DLL,DELTL 3 14 1.800 0.189 %129: ILU,ILL,DLL,DELTL 3 15 3.200 0.241 %129: ILU,ILL,DLL,DELTL 3 16 5.600 0.335 %129: ILU,ILL,DLL,DELTL 3 17 10.000 0.522 %129: ILU,ILL,DLL,DELTL 3 18 18.000 0.897 %129: ILU,ILL,DLL,DELTL 3 19 32.000 1.633 %129: ILU,ILL,DLL,DELTL 3 20 56.000 3.061 %129: ILU,ILL,DLL,DELTL 3 21 100.000 6.047 %129: ILU,ILL,DLL,DELTL 3 22 180.000 12.290 %129: ILU,ILL,DLL,DELTL 3 23 320.000 24.874 %129: ILU,ILL,DLL,DELTL 3 24 560.000 49.674 %129: ILU,ILL,DLL,DELTL 3 25 1000.000 102.065 %129: ILU,ILL,DLL,DELTL 3 26 1800.000 212.239 %129: ILU,ILL,DLL,DELTL 3 27 3200.000 435.057 %129: ILU,ILL,DLL,DELTL 3 28 5600.000 874.980 %129: ILU,ILL,DLL,DELTL 3 29 10000.000 1805.347 %129: ILU,ILL,DLL,DELTL 3 30 18000.000 3763.020 %129: ILU,ILL,DLL,DELTL 3 31 32000.000 7723.615 %129: ILU,ILL,DLL,DELTL 3 32 56000.000 15544.744 % EN,V1,YS,S,VGR -0.2500E+00 -0.4423E+03 0.6426E+00 0.2077E-01 -0.1876E+03 %129: ILU,ILL,DLL,DELTL 4 1 0.001 0.643 %129: ILU,ILL,DLL,DELTL 4 2 0.002 0.643 %129: ILU,ILL,DLL,DELTL 4 3 0.003 0.643 %129: ILU,ILL,DLL,DELTL 4 4 0.006 0.643 %129: ILU,ILL,DLL,DELTL 4 5 0.010 0.643 %129: ILU,ILL,DLL,DELTL 4 6 0.018 0.643 %129: ILU,ILL,DLL,DELTL 4 7 0.032 0.643 %129: ILU,ILL,DLL,DELTL 4 8 0.056 0.644 %129: ILU,ILL,DLL,DELTL 4 9 0.100 0.645 %129: ILU,ILL,DLL,DELTL 4 10 0.180 0.647 %129: ILU,ILL,DLL,DELTL 4 11 0.320 0.651 %129: ILU,ILL,DLL,DELTL 4 12 0.560 0.657 %129: ILU,ILL,DLL,DELTL 4 13 1.000 0.669 %129: ILU,ILL,DLL,DELTL 4 14 1.800 0.691 %129: ILU,ILL,DLL,DELTL 4 15 3.200 0.729 %129: ILU,ILL,DLL,DELTL 4 16 5.600 0.794 %129: ILU,ILL,DLL,DELTL 4 17 10.000 0.918 %129: ILU,ILL,DLL,DELTL 4 18 18.000 1.151 %129: ILU,ILL,DLL,DELTL 4 19 32.000 1.582 %129: ILU,ILL,DLL,DELTL 4 20 56.000 2.378 %129: ILU,ILL,DLL,DELTL 4 21 100.000 3.981 %129: ILU,ILL,DLL,DELTL 4 22 180.000 7.241 %129: ILU,ILL,DLL,DELTL 4 23 320.000 13.704 %129: ILU,ILL,DLL,DELTL 4 24 560.000 26.311 %129: ILU,ILL,DLL,DELTL 4 25 1000.000 52.784 %129: ILU,ILL,DLL,DELTL 4 26 1800.000 108.256 %129: ILU,ILL,DLL,DELTL 4 27 3200.000 220.219 %129: ILU,ILL,DLL,DELTL 4 28 5600.000 441.028 %129: ILU,ILL,DLL,DELTL 4 29 10000.000 907.704 %129: ILU,ILL,DLL,DELTL 4 30 18000.000 1889.322 %129: ILU,ILL,DLL,DELTL 4 31 32000.000 3874.838 %129: ILU,ILL,DLL,DELTL 4 32 56000.000 7795.269 % EN,V1,YS,S,VGR -0.2500E+00 -0.8826E+03 0.3258E+01 0.1661E-01 -0.2358E+03 %129: ILU,ILL,DLL,DELTL 5 1 0.001 3.258 %129: ILU,ILL,DLL,DELTL 5 2 0.002 3.258 %129: ILU,ILL,DLL,DELTL 5 3 0.003 3.258 %129: ILU,ILL,DLL,DELTL 5 4 0.006 3.258 %129: ILU,ILL,DLL,DELTL 5 5 0.010 3.258 %129: ILU,ILL,DLL,DELTL 5 6 0.018 3.258 %129: ILU,ILL,DLL,DELTL 5 7 0.032 3.259 %129: ILU,ILL,DLL,DELTL 5 8 0.056 3.259 %129: ILU,ILL,DLL,DELTL 5 9 0.100 3.260 %129: ILU,ILL,DLL,DELTL 5 10 0.180 3.262 %129: ILU,ILL,DLL,DELTL 5 11 0.320 3.265 %129: ILU,ILL,DLL,DELTL 5 12 0.560 3.270 %129: ILU,ILL,DLL,DELTL 5 13 1.000 3.279 %129: ILU,ILL,DLL,DELTL 5 14 1.800 3.296 %129: ILU,ILL,DLL,DELTL 5 15 3.200 3.326 %129: ILU,ILL,DLL,DELTL 5 16 5.600 3.377 %129: ILU,ILL,DLL,DELTL 5 17 10.000 3.470 %129: ILU,ILL,DLL,DELTL 5 18 18.000 3.642 %129: ILU,ILL,DLL,DELTL 5 19 32.000 3.947 %129: ILU,ILL,DLL,DELTL 5 20 56.000 4.480 %129: ILU,ILL,DLL,DELTL 5 21 100.000 5.491 %129: ILU,ILL,DLL,DELTL 5 22 180.000 7.426 %129: ILU,ILL,DLL,DELTL 5 23 320.000 11.062 %129: ILU,ILL,DLL,DELTL 5 24 560.000 17.874 %129: ILU,ILL,DLL,DELTL 5 25 1000.000 31.773 %129: ILU,ILL,DLL,DELTL 5 26 1800.000 60.347 %129: ILU,ILL,DLL,DELTL 5 27 3200.000 117.359 %129: ILU,ILL,DLL,DELTL 5 28 5600.000 229.045 %129: ILU,ILL,DLL,DELTL 5 29 10000.000 464.167 %129: ILU,ILL,DLL,DELTL 5 30 18000.000 957.590 %129: ILU,ILL,DLL,DELTL 5 31 32000.000 1954.350 %129: ILU,ILL,DLL,DELTL 5 32 56000.000 3921.066 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 0 1 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 0.1 600010 0.3900 0.4100 0.1000E+01 0.1000E-02 0.0000 0.0000 0.4984E+01 1 1 1 0 14 0.4984E-02 0.1000E-03 -0.773E+00 600020 0.3900 0.4100 0.1800E+01 0.1800E-02 0.0000 0.0000 0.5026E+01 1 1 1 1 14 0.5026E-02 0.1000E-03 -0.613E+00 600030 0.3900 0.4100 0.3200E+01 0.3200E-02 0.0000 0.0000 0.5100E+01 1 1 1 1 14 0.5100E-02 0.1000E-03 -0.336E+00 600040 0.3900 0.4100 0.5600E+01 0.5600E-02 0.0000 0.0000 0.5227E+01 1 1 1 1 14 0.5227E-02 0.1000E-03 0.128E+00 600050 0.3900 0.4100 0.1000E+02 0.1000E-01 0.0000 0.0000 0.5462E+01 1 1 1 1 14 0.5462E-02 0.1000E-03 0.952E+00 600060 0.3900 0.4100 0.1800E+02 0.1800E-01 0.0000 0.0000 0.5894E+01 1 1 1 1 14 0.5894E-02 0.1000E-03 0.236E+01 600070 0.3900 0.4100 0.3200E+02 0.3200E-01 0.0000 0.0000 0.6666E+01 1 1 1 1 14 0.6666E-02 0.1000E-03 0.459E+01 600080 0.3900 0.4100 0.5600E+02 0.5600E-01 0.0000 0.0000 0.8032E+01 1 1 1 1 14 0.8032E-02 0.1000E-03 0.787E+01 600090 0.3900 0.4100 0.1000E+03 0.1000E+00 0.0000 0.0000 0.1066E+02 1 1 1 1 14 0.1066E-01 0.1000E-03 0.126E+02 600100 0.3900 0.4100 0.1800E+03 0.1800E+00 0.0000 0.0000 0.1577E+02 1 1 1 1 14 0.1577E-01 0.1000E-03 0.188E+02 600110 0.3900 0.4100 0.3200E+03 0.3200E+00 0.0000 0.0000 0.2554E+02 1 1 1 0 14 0.2554E-01 0.1000E-03 0.257E+02 600120 0.3900 0.4100 0.5600E+03 0.5600E+00 0.0000 0.0000 0.4413E+02 1 1 1 0 14 0.4413E-01 0.1000E-03 0.328E+02 600130 0.3900 0.4100 0.1000E+04 0.1000E+01 0.0000 0.0000 0.8251E+02 1 1 1 0 14 0.8251E-01 0.1000E-03 0.400E+02 600140 0.3900 0.4100 0.1800E+04 0.1800E+01 0.0000 0.0000 0.1621E+03 1 1 1 0 14 0.1621E+00 0.1000E-03 0.469E+02 600150 0.3900 0.4100 0.3200E+04 0.3200E+01 0.0000 0.0000 0.3216E+03 1 1 1 0 14 0.3216E+00 0.1000E-03 0.529E+02 600160 0.3900 0.4100 0.5600E+04 0.5600E+01 0.0000 0.0000 0.6350E+03 1 1 1 0 14 0.6350E+00 0.1000E-03 0.582E+02 600170 0.3900 0.4100 0.1000E+05 0.1000E+02 0.0000 0.0000 0.1296E+04 1 1 1 0 14 0.1296E+01 0.1000E-03 0.630E+02 600180 0.3900 0.4100 0.1800E+05 0.1800E+02 0.0000 0.0000 0.2685E+04 1 1 1 0 14 0.2685E+01 0.1000E-03 0.672E+02 600190 0.3900 0.4100 0.3200E+05 0.3200E+02 0.0000 0.0000 0.5492E+04 1 1 1 0 14 0.5492E+01 0.1000E-03 0.708E+02 600200 0.3900 0.4100 0.5600E+05 0.5600E+02 0.0000 0.0000 0.1103E+05 1 1 1 0 14 0.1103E+02 0.1000E-03 0.738E+02 600210 0.3900 0.4100 0.1000E+06 0.1000E+03 0.0000 0.0000 0.2275E+05 1 1 1 0 14 0.2275E+02 0.1000E-03 0.766E+02 600220 0.3900 0.4100 0.1800E+06 0.1800E+03 0.0000 0.0000 0.4740E+05 1 1 1 0 14 0.4740E+02 0.1000E-03 0.790E+02 600230 0.3900 0.4100 0.3200E+06 0.3200E+03 0.0000 0.0000 0.9726E+05 1 1 1 0 14 0.9726E+02 0.1000E-03 0.810E+02 600240 0.3900 0.4100 0.5600E+06 0.5600E+03 0.0000 0.0000 0.1957E+06 1 1 1 0 14 0.1957E+03 0.1000E-03 0.827E+02 600250 0.3900 0.4100 0.1000E+07 0.1000E+04 0.0000 0.0000 0.4040E+06 1 1 1 0 14 0.4040E+03 0.1000E-03 0.843E+02 600260 0.3900 0.4100 0.1800E+07 0.1800E+04 0.0000 0.0000 0.8422E+06 1 1 1 0 14 0.8422E+03 0.1000E-03 0.856E+02 600270 0.3900 0.4100 0.3200E+07 0.3200E+04 0.0000 0.0000 0.1729E+07 1 1 1 0 14 0.1729E+04 0.1000E-03 0.868E+02 600280 0.3900 0.4100 0.5600E+07 0.5600E+04 0.0000 0.0000 0.3480E+07 1 1 1 0 14 0.3480E+04 0.1000E-03 0.877E+02 600290 0.3900 0.4100 0.1000E+08 0.1000E+05 0.0000 0.0000 0.7183E+07 1 1 1 0 14 0.7183E+04 0.1000E-03 0.886E+02 600300 0.3900 0.4100 0.1800E+08 0.1800E+05 0.0000 0.0000 0.1498E+08 1 1 1 0 14 0.1498E+05 0.1000E-03 0.894E+02 600310 0.3900 0.4100 0.3200E+08 0.3200E+05 0.0000 0.0000 0.3074E+08 1 1 1 0 14 0.3074E+05 0.1000E-03 0.900E+02 600320 0.3900 0.4100 0.5600E+08 0.5600E+05 0.0000 0.0000 0.6188E+08 1 1 1 0 14 0.6188E+05 0.1000E-03 0.906E+02 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 1 3 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 1.0 601010 0.3900 0.4100 0.1000E+00 0.1000E-02 0.0000 0.0000 0.2504E+01 1 1 1 0 14 0.2504E-01 0.1000E-03 -0.940E+00 601020 0.3900 0.4100 0.1800E+00 0.1800E-02 0.0000 0.0000 0.2508E+01 1 1 1 0 14 0.2508E-01 0.1000E-03 -0.908E+00 601030 0.3900 0.4100 0.3200E+00 0.3200E-02 0.0000 0.0000 0.2513E+01 1 1 1 0 14 0.2513E-01 0.1000E-03 -0.852E+00 601040 0.3900 0.4100 0.5600E+00 0.5600E-02 0.0000 0.0000 0.2523E+01 1 1 1 0 14 0.2523E-01 0.1000E-03 -0.757E+00 601050 0.3900 0.4100 0.1000E+01 0.1000E-01 0.0000 0.0000 0.2542E+01 1 1 1 0 14 0.2542E-01 0.1000E-03 -0.583E+00 601060 0.3900 0.4100 0.1800E+01 0.1800E-01 0.0000 0.0000 0.2576E+01 1 1 1 1 14 0.2576E-01 0.1000E-03 -0.270E+00 601070 0.3900 0.4100 0.3200E+01 0.3200E-01 0.0000 0.0000 0.2635E+01 1 1 1 1 14 0.2635E-01 0.1000E-03 0.267E+00 601080 0.3900 0.4100 0.5600E+01 0.5600E-01 0.0000 0.0000 0.2736E+01 1 1 1 1 14 0.2736E-01 0.1000E-03 0.116E+01 601090 0.3900 0.4100 0.1000E+02 0.1000E+00 0.0000 0.0000 0.2925E+01 1 1 1 1 14 0.2925E-01 0.1000E-03 0.272E+01 601100 0.3900 0.4100 0.1800E+02 0.1800E+00 0.0000 0.0000 0.3274E+01 1 1 1 1 14 0.3274E-01 0.1000E-03 0.530E+01 601110 0.3900 0.4100 0.3200E+02 0.3200E+00 0.0000 0.0000 0.3904E+01 1 1 1 1 14 0.3904E-01 0.1000E-03 0.921E+01 601120 0.3900 0.4100 0.5600E+02 0.5600E+00 0.0000 0.0000 0.5031E+01 1 1 1 1 14 0.5031E-01 0.1000E-03 0.146E+02 601130 0.3900 0.4100 0.1000E+03 0.1000E+01 0.0000 0.0000 0.7230E+01 1 1 1 1 14 0.7230E-01 0.1000E-03 0.219E+02 601140 0.3900 0.4100 0.1800E+03 0.1800E+01 0.0000 0.0000 0.1158E+02 1 1 1 1 14 0.1158E+00 0.1000E-03 0.306E+02 601150 0.3900 0.4100 0.3200E+03 0.3200E+01 0.0000 0.0000 0.2003E+02 1 1 1 0 14 0.2003E+00 0.1000E-03 0.397E+02 601160 0.3900 0.4100 0.5600E+03 0.5600E+01 0.0000 0.0000 0.3627E+02 1 1 1 0 14 0.3627E+00 0.1000E-03 0.485E+02 601170 0.3900 0.4100 0.1000E+04 0.1000E+02 0.0000 0.0000 0.7005E+02 1 1 1 0 14 0.7005E+00 0.1000E-03 0.572E+02 601180 0.3900 0.4100 0.1800E+04 0.1800E+02 0.0000 0.0000 0.1404E+03 1 1 1 0 14 0.1404E+01 0.1000E-03 0.651E+02 601190 0.3900 0.4100 0.3200E+04 0.3200E+02 0.0000 0.0000 0.2820E+03 1 1 1 0 14 0.2820E+01 0.1000E-03 0.721E+02 601200 0.3900 0.4100 0.5600E+04 0.5600E+02 0.0000 0.0000 0.5607E+03 1 1 1 0 14 0.5607E+01 0.1000E-03 0.781E+02 601210 0.3900 0.4100 0.1000E+05 0.1000E+03 0.0000 0.0000 0.1149E+04 1 1 1 0 14 0.1149E+02 0.1000E-03 0.835E+02 601220 0.3900 0.4100 0.1800E+05 0.1800E+03 0.0000 0.0000 0.2386E+04 1 1 1 0 14 0.2386E+02 0.1000E-03 0.882E+02 601230 0.3900 0.4100 0.3200E+05 0.3200E+03 0.0000 0.0000 0.4887E+04 1 1 1 0 14 0.4887E+02 0.1000E-03 0.923E+02 601240 0.3900 0.4100 0.5600E+05 0.5600E+03 0.0000 0.0000 0.9823E+04 1 1 1 0 14 0.9823E+02 0.1000E-03 0.957E+02 601250 0.3900 0.4100 0.1000E+06 0.1000E+04 0.0000 0.0000 0.2026E+05 1 1 1 0 14 0.2026E+03 0.1000E-03 0.988E+02 601260 0.3900 0.4100 0.1800E+06 0.1800E+04 0.0000 0.0000 0.4223E+05 1 1 1 0 14 0.4223E+03 0.1000E-03 0.101E+03 601270 0.3900 0.4100 0.3200E+06 0.3200E+04 0.0000 0.0000 0.8667E+05 1 1 1 0 14 0.8667E+03 0.1000E-03 0.104E+03 601280 0.3900 0.4100 0.5600E+06 0.5600E+04 0.0000 0.0000 0.1744E+06 1 1 1 0 14 0.1744E+04 0.1000E-03 0.106E+03 601290 0.3900 0.4100 0.1000E+07 0.1000E+05 0.0000 0.0000 0.3600E+06 1 1 1 0 14 0.3600E+04 0.1000E-03 0.107E+03 601300 0.3900 0.4100 0.1800E+07 0.1800E+05 0.0000 0.0000 0.7506E+06 1 1 1 0 14 0.7506E+04 0.1000E-03 0.109E+03 601310 0.3900 0.4100 0.3200E+07 0.3200E+05 0.0000 0.0000 0.1541E+07 1 1 1 0 14 0.1541E+05 0.1000E-03 0.110E+03 601320 0.3900 0.4100 0.5600E+07 0.5600E+05 0.0000 0.0000 0.3101E+07 1 1 1 0 14 0.3101E+05 0.1000E-03 0.111E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 2 5 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 10.0 602010 0.3900 0.4100 0.1000E-01 0.1000E-02 0.0000 0.0000 0.1268E+01 1 1 1 0 14 0.1268E+00 0.1000E-03 -0.976E+00 602020 0.3900 0.4100 0.1800E-01 0.1800E-02 0.0000 0.0000 0.1268E+01 1 1 1 0 14 0.1268E+00 0.1000E-03 -0.969E+00 602030 0.3900 0.4100 0.3200E-01 0.3200E-02 0.0000 0.0000 0.1269E+01 1 1 1 0 14 0.1269E+00 0.1000E-03 -0.958E+00 602040 0.3900 0.4100 0.5600E-01 0.5600E-02 0.0000 0.0000 0.1269E+01 1 1 1 0 14 0.1269E+00 0.1000E-03 -0.940E+00 602050 0.3900 0.4100 0.1000E+00 0.1000E-01 0.0000 0.0000 0.1271E+01 1 1 1 0 14 0.1271E+00 0.1000E-03 -0.905E+00 602060 0.3900 0.4100 0.1800E+00 0.1800E-01 0.0000 0.0000 0.1273E+01 1 1 1 0 14 0.1273E+00 0.1000E-03 -0.842E+00 602070 0.3900 0.4100 0.3200E+00 0.3200E-01 0.0000 0.0000 0.1278E+01 1 1 1 0 14 0.1278E+00 0.1000E-03 -0.732E+00 602080 0.3900 0.4100 0.5600E+00 0.5600E-01 0.0000 0.0000 0.1286E+01 1 1 1 0 14 0.1286E+00 0.1000E-03 -0.545E+00 602090 0.3900 0.4100 0.1000E+01 0.1000E+00 0.0000 0.0000 0.1301E+01 1 1 1 0 14 0.1301E+00 0.1000E-03 -0.205E+00 602100 0.3900 0.4100 0.1800E+01 0.1800E+00 0.0000 0.0000 0.1328E+01 1 1 1 1 14 0.1328E+00 0.1000E-03 0.404E+00 602110 0.3900 0.4100 0.3200E+01 0.3200E+00 0.0000 0.0000 0.1375E+01 1 1 1 1 14 0.1375E+00 0.1000E-03 0.144E+01 602120 0.3900 0.4100 0.5600E+01 0.5600E+00 0.0000 0.0000 0.1457E+01 1 1 1 1 14 0.1457E+00 0.1000E-03 0.314E+01 602130 0.3900 0.4100 0.1000E+02 0.1000E+01 0.0000 0.0000 0.1609E+01 1 1 1 1 14 0.1609E+00 0.1000E-03 0.601E+01 602140 0.3900 0.4100 0.1800E+02 0.1800E+01 0.0000 0.0000 0.1893E+01 1 1 1 1 14 0.1893E+00 0.1000E-03 0.106E+02 602150 0.3900 0.4100 0.3200E+02 0.3200E+01 0.0000 0.0000 0.2411E+01 1 1 1 1 14 0.2411E+00 0.1000E-03 0.171E+02 602160 0.3900 0.4100 0.5600E+02 0.5600E+01 0.0000 0.0000 0.3352E+01 1 1 1 1 14 0.3352E+00 0.1000E-03 0.256E+02 602170 0.3900 0.4100 0.1000E+03 0.1000E+02 0.0000 0.0000 0.5218E+01 1 1 1 1 14 0.5218E+00 0.1000E-03 0.360E+02 602180 0.3900 0.4100 0.1800E+03 0.1800E+02 0.0000 0.0000 0.8968E+01 1 1 1 1 14 0.8968E+00 0.1000E-03 0.476E+02 602190 0.3900 0.4100 0.3200E+03 0.3200E+02 0.0000 0.0000 0.1633E+02 1 1 1 0 14 0.1633E+01 0.1000E-03 0.591E+02 602200 0.3900 0.4100 0.5600E+03 0.5600E+02 0.0000 0.0000 0.3061E+02 1 1 1 0 14 0.3061E+01 0.1000E-03 0.697E+02 602210 0.3900 0.4100 0.1000E+04 0.1000E+03 0.0000 0.0000 0.6047E+02 1 1 1 0 14 0.6047E+01 0.1000E-03 0.798E+02 602220 0.3900 0.4100 0.1800E+04 0.1800E+03 0.0000 0.0000 0.1229E+03 1 1 1 0 14 0.1229E+02 0.1000E-03 0.890E+02 602230 0.3900 0.4100 0.3200E+04 0.3200E+03 0.0000 0.0000 0.2487E+03 1 1 1 0 14 0.2487E+02 0.1000E-03 0.969E+02 602240 0.3900 0.4100 0.5600E+04 0.5600E+03 0.0000 0.0000 0.4967E+03 1 1 1 0 14 0.4967E+02 0.1000E-03 0.104E+03 602250 0.3900 0.4100 0.1000E+05 0.1000E+04 0.0000 0.0000 0.1021E+04 1 1 1 0 14 0.1021E+03 0.1000E-03 0.110E+03 602260 0.3900 0.4100 0.1800E+05 0.1800E+04 0.0000 0.0000 0.2122E+04 1 1 1 0 14 0.2122E+03 0.1000E-03 0.115E+03 602270 0.3900 0.4100 0.3200E+05 0.3200E+04 0.0000 0.0000 0.4351E+04 1 1 1 0 14 0.4351E+03 0.1000E-03 0.120E+03 602280 0.3900 0.4100 0.5600E+05 0.5600E+04 0.0000 0.0000 0.8750E+04 1 1 1 0 14 0.8750E+03 0.1000E-03 0.124E+03 602290 0.3900 0.4100 0.1000E+06 0.1000E+05 0.0000 0.0000 0.1805E+05 1 1 1 0 14 0.1805E+04 0.1000E-03 0.127E+03 602300 0.3900 0.4100 0.1800E+06 0.1800E+05 0.0000 0.0000 0.3763E+05 1 1 1 0 14 0.3763E+04 0.1000E-03 0.130E+03 602310 0.3900 0.4100 0.3200E+06 0.3200E+05 0.0000 0.0000 0.7724E+05 1 1 1 0 14 0.7724E+04 0.1000E-03 0.133E+03 602320 0.3900 0.4100 0.5600E+06 0.5600E+05 0.0000 0.0000 0.1554E+06 1 1 1 0 14 0.1554E+05 0.1000E-03 0.135E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 3 7 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 100.0 603010 0.3900 0.4100 0.1000E-02 0.1000E-02 0.0000 0.0000 0.6426E+00 1 1 1 0 14 0.6426E+00 0.1000E-03 -0.985E+00 603020 0.3900 0.4100 0.1800E-02 0.1800E-02 0.0000 0.0000 0.6426E+00 1 1 1 0 14 0.6426E+00 0.1000E-03 -0.984E+00 603030 0.3900 0.4100 0.3200E-02 0.3200E-02 0.0000 0.0000 0.6427E+00 1 1 1 0 14 0.6427E+00 0.1000E-03 -0.982E+00 603040 0.3900 0.4100 0.5600E-02 0.5600E-02 0.0000 0.0000 0.6427E+00 1 1 1 0 14 0.6427E+00 0.1000E-03 -0.978E+00 603050 0.3900 0.4100 0.1000E-01 0.1000E-01 0.0000 0.0000 0.6429E+00 1 1 1 0 14 0.6429E+00 0.1000E-03 -0.971E+00 603060 0.3900 0.4100 0.1800E-01 0.1800E-01 0.0000 0.0000 0.6431E+00 1 1 1 0 14 0.6431E+00 0.1000E-03 -0.959E+00 603070 0.3900 0.4100 0.3200E-01 0.3200E-01 0.0000 0.0000 0.6434E+00 1 1 1 0 14 0.6434E+00 0.1000E-03 -0.937E+00 603080 0.3900 0.4100 0.5600E-01 0.5600E-01 0.0000 0.0000 0.6441E+00 1 1 1 0 14 0.6441E+00 0.1000E-03 -0.900E+00 603090 0.3900 0.4100 0.1000E+00 0.1000E+00 0.0000 0.0000 0.6453E+00 1 1 1 0 14 0.6453E+00 0.1000E-03 -0.832E+00 603100 0.3900 0.4100 0.1800E+00 0.1800E+00 0.0000 0.0000 0.6474E+00 1 1 1 0 14 0.6474E+00 0.1000E-03 -0.708E+00 603110 0.3900 0.4100 0.3200E+00 0.3200E+00 0.0000 0.0000 0.6511E+00 1 1 1 0 14 0.6511E+00 0.1000E-03 -0.492E+00 603120 0.3900 0.4100 0.5600E+00 0.5600E+00 0.0000 0.0000 0.6575E+00 1 1 1 0 14 0.6575E+00 0.1000E-03 -0.125E+00 603130 0.3900 0.4100 0.1000E+01 0.1000E+01 0.0000 0.0000 0.6692E+00 1 1 1 0 14 0.6692E+00 0.1000E-03 0.538E+00 603140 0.3900 0.4100 0.1800E+01 0.1800E+01 0.0000 0.0000 0.6907E+00 1 1 1 1 14 0.6907E+00 0.1000E-03 0.171E+01 603150 0.3900 0.4100 0.3200E+01 0.3200E+01 0.0000 0.0000 0.7285E+00 1 1 1 1 14 0.7285E+00 0.1000E-03 0.369E+01 603160 0.3900 0.4100 0.5600E+01 0.5600E+01 0.0000 0.0000 0.7944E+00 1 1 1 1 14 0.7944E+00 0.1000E-03 0.684E+01 603170 0.3900 0.4100 0.1000E+02 0.1000E+02 0.0000 0.0000 0.9179E+00 1 1 1 1 14 0.9179E+00 0.1000E-03 0.120E+02 603180 0.3900 0.4100 0.1800E+02 0.1800E+02 0.0000 0.0000 0.1151E+01 1 1 1 1 14 0.1151E+01 0.1000E-03 0.198E+02 603190 0.3900 0.4100 0.3200E+02 0.3200E+02 0.0000 0.0000 0.1582E+01 1 1 1 1 14 0.1582E+01 0.1000E-03 0.301E+02 603200 0.3900 0.4100 0.5600E+02 0.5600E+02 0.0000 0.0000 0.2378E+01 1 1 1 1 14 0.2378E+01 0.1000E-03 0.424E+02 603210 0.3900 0.4100 0.1000E+03 0.1000E+03 0.0000 0.0000 0.3981E+01 1 1 1 1 14 0.3981E+01 0.1000E-03 0.566E+02 603220 0.3900 0.4100 0.1800E+03 0.1800E+03 0.0000 0.0000 0.7241E+01 1 1 1 1 14 0.7241E+01 0.1000E-03 0.714E+02 603230 0.3900 0.4100 0.3200E+03 0.3200E+03 0.0000 0.0000 0.1370E+02 1 1 1 0 14 0.1370E+02 0.1000E-03 0.853E+02 603240 0.3900 0.4100 0.5600E+03 0.5600E+03 0.0000 0.0000 0.2631E+02 1 1 1 0 14 0.2631E+02 0.1000E-03 0.978E+02 603250 0.3900 0.4100 0.1000E+04 0.1000E+04 0.0000 0.0000 0.5278E+02 1 1 1 0 14 0.5278E+02 0.1000E-03 0.109E+03 603260 0.3900 0.4100 0.1800E+04 0.1800E+04 0.0000 0.0000 0.1083E+03 1 1 1 0 14 0.1083E+03 0.1000E-03 0.120E+03 603270 0.3900 0.4100 0.3200E+04 0.3200E+04 0.0000 0.0000 0.2202E+03 1 1 1 0 14 0.2202E+03 0.1000E-03 0.129E+03 603280 0.3900 0.4100 0.5600E+04 0.5600E+04 0.0000 0.0000 0.4410E+03 1 1 1 0 14 0.4410E+03 0.1000E-03 0.136E+03 603290 0.3900 0.4100 0.1000E+05 0.1000E+05 0.0000 0.0000 0.9077E+03 1 1 1 0 14 0.9077E+03 0.1000E-03 0.143E+03 603300 0.3900 0.4100 0.1800E+05 0.1800E+05 0.0000 0.0000 0.1889E+04 1 1 1 0 14 0.1889E+04 0.1000E-03 0.149E+03 603310 0.3900 0.4100 0.3200E+05 0.3200E+05 0.0000 0.0000 0.3875E+04 1 1 1 0 14 0.3875E+04 0.1000E-03 0.154E+03 603320 0.3900 0.4100 0.5600E+05 0.5600E+05 0.0000 0.0000 0.7795E+04 1 1 1 0 14 0.7795E+04 0.1000E-03 0.159E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 4 9 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 1000.0 604010 0.3900 0.4100 0.1000E-03 0.1000E-02 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.989E+00 604020 0.3900 0.4100 0.1800E-03 0.1800E-02 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.989E+00 604030 0.3900 0.4100 0.3200E-03 0.3200E-02 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.989E+00 604040 0.3900 0.4100 0.5600E-03 0.5600E-02 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.988E+00 604050 0.3900 0.4100 0.1000E-02 0.1000E-01 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.987E+00 604060 0.3900 0.4100 0.1800E-02 0.1800E-01 0.0000 0.0000 0.3258E+00 1 1 1 0 14 0.3258E+01 0.1000E-03 -0.984E+00 604070 0.3900 0.4100 0.3200E-02 0.3200E-01 0.0000 0.0000 0.3259E+00 1 1 1 0 14 0.3259E+01 0.1000E-03 -0.980E+00 604080 0.3900 0.4100 0.5600E-02 0.5600E-01 0.0000 0.0000 0.3259E+00 1 1 1 0 14 0.3259E+01 0.1000E-03 -0.972E+00 604090 0.3900 0.4100 0.1000E-01 0.1000E+00 0.0000 0.0000 0.3260E+00 1 1 1 0 14 0.3260E+01 0.1000E-03 -0.959E+00 604100 0.3900 0.4100 0.1800E-01 0.1800E+00 0.0000 0.0000 0.3262E+00 1 1 1 0 14 0.3262E+01 0.1000E-03 -0.934E+00 604110 0.3900 0.4100 0.3200E-01 0.3200E+00 0.0000 0.0000 0.3265E+00 1 1 1 0 14 0.3265E+01 0.1000E-03 -0.891E+00 604120 0.3900 0.4100 0.5600E-01 0.5600E+00 0.0000 0.0000 0.3270E+00 1 1 1 0 14 0.3270E+01 0.1000E-03 -0.818E+00 604130 0.3900 0.4100 0.1000E+00 0.1000E+01 0.0000 0.0000 0.3279E+00 1 1 1 0 14 0.3279E+01 0.1000E-03 -0.684E+00 604140 0.3900 0.4100 0.1800E+00 0.1800E+01 0.0000 0.0000 0.3296E+00 1 1 1 0 14 0.3296E+01 0.1000E-03 -0.440E+00 604150 0.3900 0.4100 0.3200E+00 0.3200E+01 0.0000 0.0000 0.3326E+00 1 1 1 0 14 0.3326E+01 0.1000E-03 -0.174E-01 604160 0.3900 0.4100 0.5600E+00 0.5600E+01 0.0000 0.0000 0.3377E+00 1 1 1 0 14 0.3377E+01 0.1000E-03 0.699E+00 604170 0.3900 0.4100 0.1000E+01 0.1000E+02 0.0000 0.0000 0.3470E+00 1 1 1 0 14 0.3470E+01 0.1000E-03 0.198E+01 604180 0.3900 0.4100 0.1800E+01 0.1800E+02 0.0000 0.0000 0.3642E+00 1 1 1 1 14 0.3642E+01 0.1000E-03 0.423E+01 604190 0.3900 0.4100 0.3200E+01 0.3200E+02 0.0000 0.0000 0.3947E+00 1 1 1 1 14 0.3947E+01 0.1000E-03 0.793E+01 604200 0.3900 0.4100 0.5600E+01 0.5600E+02 0.0000 0.0000 0.4480E+00 1 1 1 1 14 0.4480E+01 0.1000E-03 0.136E+02 604210 0.3900 0.4100 0.1000E+02 0.1000E+03 0.0000 0.0000 0.5491E+00 1 1 1 1 14 0.5491E+01 0.1000E-03 0.225E+02 604220 0.3900 0.4100 0.1800E+02 0.1800E+03 0.0000 0.0000 0.7426E+00 1 1 1 1 14 0.7426E+01 0.1000E-03 0.350E+02 604230 0.3900 0.4100 0.3200E+02 0.3200E+03 0.0000 0.0000 0.1106E+01 1 1 1 1 14 0.1106E+02 0.1000E-03 0.504E+02 604240 0.3900 0.4100 0.5600E+02 0.5600E+03 0.0000 0.0000 0.1787E+01 1 1 1 1 14 0.1787E+02 0.1000E-03 0.673E+02 604250 0.3900 0.4100 0.1000E+03 0.1000E+04 0.0000 0.0000 0.3177E+01 1 1 1 1 14 0.3177E+02 0.1000E-03 0.857E+02 604260 0.3900 0.4100 0.1800E+03 0.1800E+04 0.0000 0.0000 0.6035E+01 1 1 1 1 14 0.6035E+02 0.1000E-03 0.104E+03 604270 0.3900 0.4100 0.3200E+03 0.3200E+04 0.0000 0.0000 0.1174E+02 1 1 1 0 14 0.1174E+03 0.1000E-03 0.120E+03 604280 0.3900 0.4100 0.5600E+03 0.5600E+04 0.0000 0.0000 0.2290E+02 1 1 1 0 14 0.2290E+03 0.1000E-03 0.135E+03 604290 0.3900 0.4100 0.1000E+04 0.1000E+05 0.0000 0.0000 0.4642E+02 1 1 1 0 14 0.4642E+03 0.1000E-03 0.148E+03 604300 0.3900 0.4100 0.1800E+04 0.1800E+05 0.0000 0.0000 0.9576E+02 1 1 1 0 14 0.9576E+03 0.1000E-03 0.160E+03 604310 0.3900 0.4100 0.3200E+04 0.3200E+05 0.0000 0.0000 0.1954E+03 1 1 1 0 14 0.1954E+04 0.1000E-03 0.170E+03 604320 0.3900 0.4100 0.5600E+04 0.5600E+05 0.0000 0.0000 0.3921E+03 1 1 1 0 14 0.3921E+04 0.1000E-03 0.179E+03 %699999END,79 characters in any data line 99 ] def /AVR1DA06 2560 array def %512*5=2560 /AVR1DA06 [ % 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: LINGDA04.FOR 2014_03_03 % Output file: LINGDA04.TXT 2014_03_03 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %710000 x y Y L delta_x delta_y delta_Y ObReJNSu______1X delta_L delta_Ls delta_Ys %720000 xg yg Yg Lg SAn Sd Sp Lw Lg GAn _______2X Li delta_Li delta_Lis %730000 a* b* L* C*ab da* db* DL* dE*ab _____3 %740000 aJ bJ Y CJab daJ dbJ DLJ dEJab _____4 % 120 DLX(I) 0.001 0.002 0.003 0.006 % 120 DLX(I) 0.010 0.018 0.032 0.056 % 120 DLX(I) 0.100 0.180 0.320 0.560 % 120 DLX(I) 1.000 1.800 3.200 5.600 % 120 DLX(I) 10.000 18.000 32.000 56.000 % 120 DLX(I) 100.000 180.000 320.000 560.000 % 120 DLX(I) 1000.000 1800.000 3200.000 5600.000 % 120 DLX(I) 10000.000 18000.000 32000.000 56000.000 % EN,V1,YS,S,VGR -0.2500E+00 -0.9532E+02 0.1744E-01 0.3401E-01 -0.1126E+03 %129: ILU,ILL,DLL,DELTL 1 1 0.001 0.017 %129: ILU,ILL,DLL,DELTL 1 2 0.002 0.018 %129: ILU,ILL,DLL,DELTL 1 3 0.003 0.018 %129: ILU,ILL,DLL,DELTL 1 4 0.006 0.018 %129: ILU,ILL,DLL,DELTL 1 5 0.010 0.018 %129: ILU,ILL,DLL,DELTL 1 6 0.018 0.018 %129: ILU,ILL,DLL,DELTL 1 7 0.032 0.019 %129: ILU,ILL,DLL,DELTL 1 8 0.056 0.020 %129: ILU,ILL,DLL,DELTL 1 9 0.100 0.022 %129: ILU,ILL,DLL,DELTL 1 10 0.180 0.026 %129: ILU,ILL,DLL,DELTL 1 11 0.320 0.033 %129: ILU,ILL,DLL,DELTL 1 12 0.560 0.045 %129: ILU,ILL,DLL,DELTL 1 13 1.000 0.069 %129: ILU,ILL,DLL,DELTL 1 14 1.800 0.119 %129: ILU,ILL,DLL,DELTL 1 15 3.200 0.215 %129: ILU,ILL,DLL,DELTL 1 16 5.600 0.402 %129: ILU,ILL,DLL,DELTL 1 17 10.000 0.793 %129: ILU,ILL,DLL,DELTL 1 18 18.000 1.609 %129: ILU,ILL,DLL,DELTL 1 19 32.000 3.256 %129: ILU,ILL,DLL,DELTL 1 20 56.000 6.499 %129: ILU,ILL,DLL,DELTL 1 21 100.000 13.352 %129: ILU,ILL,DLL,DELTL 1 22 180.000 27.761 %129: ILU,ILL,DLL,DELTL 1 23 320.000 56.903 %129: ILU,ILL,DLL,DELTL 1 24 560.000 114.438 %129: ILU,ILL,DLL,DELTL 1 25 1000.000 236.116 %129: ILU,ILL,DLL,DELTL 1 26 1800.000 492.150 %129: ILU,ILL,DLL,DELTL 1 27 3200.000 1010.133 %129: ILU,ILL,DLL,DELTL 1 28 5600.000 2033.013 %129: ILU,ILL,DLL,DELTL 1 29 10000.000 4196.469 %129: ILU,ILL,DLL,DELTL 1 30 18000.000 8749.086 %129: ILU,ILL,DLL,DELTL 1 31 32000.000 17959.861 %129: ILU,ILL,DLL,DELTL 1 32 56000.000 36149.055 % EN,V1,YS,S,VGR -0.2500E+00 -0.1902E+03 0.8842E-01 0.2726E-01 -0.1417E+03 %129: ILU,ILL,DLL,DELTL 2 1 0.001 0.088 %129: ILU,ILL,DLL,DELTL 2 2 0.002 0.088 %129: ILU,ILL,DLL,DELTL 2 3 0.003 0.089 %129: ILU,ILL,DLL,DELTL 2 4 0.006 0.089 %129: ILU,ILL,DLL,DELTL 2 5 0.010 0.089 %129: ILU,ILL,DLL,DELTL 2 6 0.018 0.089 %129: ILU,ILL,DLL,DELTL 2 7 0.032 0.090 %129: ILU,ILL,DLL,DELTL 2 8 0.056 0.090 %129: ILU,ILL,DLL,DELTL 2 9 0.100 0.092 %129: ILU,ILL,DLL,DELTL 2 10 0.180 0.095 %129: ILU,ILL,DLL,DELTL 2 11 0.320 0.100 %129: ILU,ILL,DLL,DELTL 2 12 0.560 0.108 %129: ILU,ILL,DLL,DELTL 2 13 1.000 0.125 %129: ILU,ILL,DLL,DELTL 2 14 1.800 0.155 %129: ILU,ILL,DLL,DELTL 2 15 3.200 0.212 %129: ILU,ILL,DLL,DELTL 2 16 5.600 0.317 %129: ILU,ILL,DLL,DELTL 2 17 10.000 0.527 %129: ILU,ILL,DLL,DELTL 2 18 18.000 0.954 %129: ILU,ILL,DLL,DELTL 2 19 32.000 1.800 %129: ILU,ILL,DLL,DELTL 2 20 56.000 3.450 %129: ILU,ILL,DLL,DELTL 2 21 100.000 6.914 %129: ILU,ILL,DLL,DELTL 2 22 180.000 14.170 %129: ILU,ILL,DLL,DELTL 2 23 320.000 28.815 %129: ILU,ILL,DLL,DELTL 2 24 560.000 57.695 %129: ILU,ILL,DLL,DELTL 2 25 1000.000 118.732 %129: ILU,ILL,DLL,DELTL 2 26 1800.000 247.115 %129: ILU,ILL,DLL,DELTL 2 27 3200.000 506.792 %129: ILU,ILL,DLL,DELTL 2 28 5600.000 1019.525 %129: ILU,ILL,DLL,DELTL 2 29 10000.000 2103.916 %129: ILU,ILL,DLL,DELTL 2 30 18000.000 4385.740 %129: ILU,ILL,DLL,DELTL 2 31 32000.000 9002.188 %129: ILU,ILL,DLL,DELTL 2 32 56000.000 18118.521 % EN,V1,YS,S,VGR -0.2500E+00 -0.3795E+03 0.4483E+00 0.2183E-01 -0.1783E+03 %129: ILU,ILL,DLL,DELTL 3 1 0.001 0.448 %129: ILU,ILL,DLL,DELTL 3 2 0.002 0.448 %129: ILU,ILL,DLL,DELTL 3 3 0.003 0.448 %129: ILU,ILL,DLL,DELTL 3 4 0.006 0.448 %129: ILU,ILL,DLL,DELTL 3 5 0.010 0.449 %129: ILU,ILL,DLL,DELTL 3 6 0.018 0.449 %129: ILU,ILL,DLL,DELTL 3 7 0.032 0.449 %129: ILU,ILL,DLL,DELTL 3 8 0.056 0.450 %129: ILU,ILL,DLL,DELTL 3 9 0.100 0.451 %129: ILU,ILL,DLL,DELTL 3 10 0.180 0.453 %129: ILU,ILL,DLL,DELTL 3 11 0.320 0.457 %129: ILU,ILL,DLL,DELTL 3 12 0.560 0.464 %129: ILU,ILL,DLL,DELTL 3 13 1.000 0.476 %129: ILU,ILL,DLL,DELTL 3 14 1.800 0.499 %129: ILU,ILL,DLL,DELTL 3 15 3.200 0.539 %129: ILU,ILL,DLL,DELTL 3 16 5.600 0.610 %129: ILU,ILL,DLL,DELTL 3 17 10.000 0.743 %129: ILU,ILL,DLL,DELTL 3 18 18.000 0.997 %129: ILU,ILL,DLL,DELTL 3 19 32.000 1.475 %129: ILU,ILL,DLL,DELTL 3 20 56.000 2.369 %129: ILU,ILL,DLL,DELTL 3 21 100.000 4.190 %129: ILU,ILL,DLL,DELTL 3 22 180.000 7.932 %129: ILU,ILL,DLL,DELTL 3 23 320.000 15.394 %129: ILU,ILL,DLL,DELTL 3 24 560.000 30.007 %129: ILU,ILL,DLL,DELTL 3 25 1000.000 60.765 %129: ILU,ILL,DLL,DELTL 3 26 1800.000 125.306 %129: ILU,ILL,DLL,DELTL 3 27 3200.000 255.677 %129: ILU,ILL,DLL,DELTL 3 28 5600.000 512.904 %129: ILU,ILL,DLL,DELTL 3 29 10000.000 1056.687 %129: ILU,ILL,DLL,DELTL 3 30 18000.000 2200.661 %129: ILU,ILL,DLL,DELTL 3 31 32000.000 4514.766 %129: ILU,ILL,DLL,DELTL 3 32 56000.000 9084.204 % EN,V1,YS,S,VGR -0.2500E+00 -0.7572E+03 0.2273E+01 0.1746E-01 -0.2242E+03 %129: ILU,ILL,DLL,DELTL 4 1 0.001 2.273 %129: ILU,ILL,DLL,DELTL 4 2 0.002 2.273 %129: ILU,ILL,DLL,DELTL 4 3 0.003 2.273 %129: ILU,ILL,DLL,DELTL 4 4 0.006 2.273 %129: ILU,ILL,DLL,DELTL 4 5 0.010 2.273 %129: ILU,ILL,DLL,DELTL 4 6 0.018 2.273 %129: ILU,ILL,DLL,DELTL 4 7 0.032 2.273 %129: ILU,ILL,DLL,DELTL 4 8 0.056 2.274 %129: ILU,ILL,DLL,DELTL 4 9 0.100 2.275 %129: ILU,ILL,DLL,DELTL 4 10 0.180 2.277 %129: ILU,ILL,DLL,DELTL 4 11 0.320 2.280 %129: ILU,ILL,DLL,DELTL 4 12 0.560 2.285 %129: ILU,ILL,DLL,DELTL 4 13 1.000 2.295 %129: ILU,ILL,DLL,DELTL 4 14 1.800 2.313 %129: ILU,ILL,DLL,DELTL 4 15 3.200 2.344 %129: ILU,ILL,DLL,DELTL 4 16 5.600 2.398 %129: ILU,ILL,DLL,DELTL 4 17 10.000 2.497 %129: ILU,ILL,DLL,DELTL 4 18 18.000 2.679 %129: ILU,ILL,DLL,DELTL 4 19 32.000 3.004 %129: ILU,ILL,DLL,DELTL 4 20 56.000 3.578 %129: ILU,ILL,DLL,DELTL 4 21 100.000 4.678 %129: ILU,ILL,DLL,DELTL 4 22 180.000 6.814 %129: ILU,ILL,DLL,DELTL 4 23 320.000 10.886 %129: ILU,ILL,DLL,DELTL 4 24 560.000 18.611 %129: ILU,ILL,DLL,DELTL 4 25 1000.000 34.531 %129: ILU,ILL,DLL,DELTL 4 26 1800.000 67.487 %129: ILU,ILL,DLL,DELTL 4 27 3200.000 133.528 %129: ILU,ILL,DLL,DELTL 4 28 5600.000 263.241 %129: ILU,ILL,DLL,DELTL 4 29 10000.000 536.732 %129: ILU,ILL,DLL,DELTL 4 30 18000.000 1111.200 %129: ILU,ILL,DLL,DELTL 4 31 32000.000 2272.272 %129: ILU,ILL,DLL,DELTL 4 32 56000.000 4563.844 % EN,V1,YS,S,VGR -0.2500E+00 -0.1511E+04 0.1152E+02 0.1395E-01 -0.2818E+03 %129: ILU,ILL,DLL,DELTL 5 1 0.001 11.522 %129: ILU,ILL,DLL,DELTL 5 2 0.002 11.522 %129: ILU,ILL,DLL,DELTL 5 3 0.003 11.522 %129: ILU,ILL,DLL,DELTL 5 4 0.006 11.522 %129: ILU,ILL,DLL,DELTL 5 5 0.010 11.522 %129: ILU,ILL,DLL,DELTL 5 6 0.018 11.523 %129: ILU,ILL,DLL,DELTL 5 7 0.032 11.523 %129: ILU,ILL,DLL,DELTL 5 8 0.056 11.523 %129: ILU,ILL,DLL,DELTL 5 9 0.100 11.524 %129: ILU,ILL,DLL,DELTL 5 10 0.180 11.525 %129: ILU,ILL,DLL,DELTL 5 11 0.320 11.528 %129: ILU,ILL,DLL,DELTL 5 12 0.560 11.532 %129: ILU,ILL,DLL,DELTL 5 13 1.000 11.540 %129: ILU,ILL,DLL,DELTL 5 14 1.800 11.554 %129: ILU,ILL,DLL,DELTL 5 15 3.200 11.579 %129: ILU,ILL,DLL,DELTL 5 16 5.600 11.621 %129: ILU,ILL,DLL,DELTL 5 17 10.000 11.699 %129: ILU,ILL,DLL,DELTL 5 18 18.000 11.841 %129: ILU,ILL,DLL,DELTL 5 19 32.000 12.091 %129: ILU,ILL,DLL,DELTL 5 20 56.000 12.521 %129: ILU,ILL,DLL,DELTL 5 21 100.000 13.317 %129: ILU,ILL,DLL,DELTL 5 22 180.000 14.788 %129: ILU,ILL,DLL,DELTL 5 23 320.000 17.435 %129: ILU,ILL,DLL,DELTL 5 24 560.000 22.160 %129: ILU,ILL,DLL,DELTL 5 25 1000.000 31.357 %129: ILU,ILL,DLL,DELTL 5 26 1800.000 49.501 %129: ILU,ILL,DLL,DELTL 5 27 3200.000 84.608 %129: ILU,ILL,DLL,DELTL 5 28 5600.000 151.991 %129: ILU,ILL,DLL,DELTL 5 29 10000.000 291.991 %129: ILU,ILL,DLL,DELTL 5 30 18000.000 583.413 %129: ILU,ILL,DLL,DELTL 5 31 32000.000 1169.340 %129: ILU,ILL,DLL,DELTL 5 32 56000.000 2322.373 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 0 1 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 0.6 700010 0.3900 0.4100 0.1667E+00 0.1000E-02 0.0000 0.0000 0.2914E+01 1 1 1 0 14 0.1748E-01 0.1000E-03 -0.921E+00 700020 0.3900 0.4100 0.3000E+00 0.1800E-02 0.0000 0.0000 0.2920E+01 1 1 1 0 14 0.1752E-01 0.1000E-03 -0.876E+00 700030 0.3900 0.4100 0.5333E+00 0.3200E-02 0.0000 0.0000 0.2930E+01 1 1 1 0 14 0.1758E-01 0.1000E-03 -0.796E+00 700040 0.3900 0.4100 0.9333E+00 0.5600E-02 0.0000 0.0000 0.2948E+01 1 1 1 0 14 0.1769E-01 0.1000E-03 -0.660E+00 700050 0.3900 0.4100 0.1667E+01 0.1000E-01 0.0000 0.0000 0.2980E+01 1 1 1 1 14 0.1788E-01 0.1000E-03 -0.412E+00 700060 0.3900 0.4100 0.3000E+01 0.1800E-01 0.0000 0.0000 0.3039E+01 1 1 1 1 14 0.1824E-01 0.1000E-03 0.308E-01 700070 0.3900 0.4100 0.5333E+01 0.3200E-01 0.0000 0.0000 0.3143E+01 1 1 1 1 14 0.1886E-01 0.1000E-03 0.786E+00 700080 0.3900 0.4100 0.9333E+01 0.5600E-01 0.0000 0.0000 0.3323E+01 1 1 1 1 14 0.1994E-01 0.1000E-03 0.202E+01 700090 0.3900 0.4100 0.1667E+02 0.1000E+00 0.0000 0.0000 0.3658E+01 1 1 1 1 14 0.2195E-01 0.1000E-03 0.413E+01 700100 0.3900 0.4100 0.3000E+02 0.1800E+00 0.0000 0.0000 0.4282E+01 1 1 1 1 14 0.2569E-01 0.1000E-03 0.749E+01 700110 0.3900 0.4100 0.5333E+02 0.3200E+00 0.0000 0.0000 0.5419E+01 1 1 1 1 14 0.3251E-01 0.1000E-03 0.123E+02 700120 0.3900 0.4100 0.9333E+02 0.5600E+00 0.0000 0.0000 0.7481E+01 1 1 1 1 14 0.4489E-01 0.1000E-03 0.186E+02 700130 0.3900 0.4100 0.1667E+03 0.1000E+01 0.0000 0.0000 0.1157E+02 1 1 1 1 14 0.6939E-01 0.1000E-03 0.264E+02 700140 0.3900 0.4100 0.3000E+03 0.1800E+01 0.0000 0.0000 0.1976E+02 1 1 1 0 14 0.1186E+00 0.1000E-03 0.352E+02 700150 0.3900 0.4100 0.5333E+03 0.3200E+01 0.0000 0.0000 0.3583E+02 1 1 1 0 14 0.2150E+00 0.1000E-03 0.439E+02 700160 0.3900 0.4100 0.9333E+03 0.5600E+01 0.0000 0.0000 0.6698E+02 1 1 1 0 14 0.4019E+00 0.1000E-03 0.520E+02 700170 0.3900 0.4100 0.1667E+04 0.1000E+02 0.0000 0.0000 0.1321E+03 1 1 1 0 14 0.7927E+00 0.1000E-03 0.597E+02 700180 0.3900 0.4100 0.3000E+04 0.1800E+02 0.0000 0.0000 0.2682E+03 1 1 1 0 14 0.1609E+01 0.1000E-03 0.667E+02 700190 0.3900 0.4100 0.5333E+04 0.3200E+02 0.0000 0.0000 0.5426E+03 1 1 1 0 14 0.3256E+01 0.1000E-03 0.727E+02 700200 0.3900 0.4100 0.9333E+04 0.5600E+02 0.0000 0.0000 0.1083E+04 1 1 1 0 14 0.6499E+01 0.1000E-03 0.779E+02 700210 0.3900 0.4100 0.1667E+05 0.1000E+03 0.0000 0.0000 0.2225E+04 1 1 1 0 14 0.1335E+02 0.1000E-03 0.825E+02 700220 0.3900 0.4100 0.3000E+05 0.1800E+03 0.0000 0.0000 0.4627E+04 1 1 1 0 14 0.2776E+02 0.1000E-03 0.866E+02 700230 0.3900 0.4100 0.5333E+05 0.3200E+03 0.0000 0.0000 0.9484E+04 1 1 1 0 14 0.5690E+02 0.1000E-03 0.901E+02 700240 0.3900 0.4100 0.9333E+05 0.5600E+03 0.0000 0.0000 0.1907E+05 1 1 1 0 14 0.1144E+03 0.1000E-03 0.931E+02 700250 0.3900 0.4100 0.1667E+06 0.1000E+04 0.0000 0.0000 0.3935E+05 1 1 1 0 14 0.2361E+03 0.1000E-03 0.957E+02 700260 0.3900 0.4100 0.3000E+06 0.1800E+04 0.0000 0.0000 0.8202E+05 1 1 1 0 14 0.4921E+03 0.1000E-03 0.980E+02 700270 0.3900 0.4100 0.5333E+06 0.3200E+04 0.0000 0.0000 0.1684E+06 1 1 1 0 14 0.1010E+04 0.1000E-03 0.100E+03 700280 0.3900 0.4100 0.9333E+06 0.5600E+04 0.0000 0.0000 0.3388E+06 1 1 1 0 14 0.2033E+04 0.1000E-03 0.102E+03 700290 0.3900 0.4100 0.1667E+07 0.1000E+05 0.0000 0.0000 0.6994E+06 1 1 1 0 14 0.4196E+04 0.1000E-03 0.103E+03 700300 0.3900 0.4100 0.3000E+07 0.1800E+05 0.0000 0.0000 0.1458E+07 1 1 1 0 14 0.8749E+04 0.1000E-03 0.104E+03 700310 0.3900 0.4100 0.5333E+07 0.3200E+05 0.0000 0.0000 0.2993E+07 1 1 1 0 14 0.1796E+05 0.1000E-03 0.106E+03 700320 0.3900 0.4100 0.9333E+07 0.5600E+05 0.0000 0.0000 0.6025E+07 1 1 1 0 14 0.3615E+05 0.1000E-03 0.106E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 1 3 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 6.0 701010 0.3900 0.4100 0.1667E-01 0.1000E-02 0.0000 0.0000 0.1474E+01 1 1 1 0 14 0.8845E-01 0.1000E-03 -0.972E+00 701020 0.3900 0.4100 0.3000E-01 0.1800E-02 0.0000 0.0000 0.1475E+01 1 1 1 0 14 0.8848E-01 0.1000E-03 -0.962E+00 701030 0.3900 0.4100 0.5333E-01 0.3200E-02 0.0000 0.0000 0.1475E+01 1 1 1 0 14 0.8853E-01 0.1000E-03 -0.947E+00 701040 0.3900 0.4100 0.9333E-01 0.5600E-02 0.0000 0.0000 0.1477E+01 1 1 1 0 14 0.8861E-01 0.1000E-03 -0.920E+00 701050 0.3900 0.4100 0.1667E+00 0.1000E-01 0.0000 0.0000 0.1479E+01 1 1 1 0 14 0.8877E-01 0.1000E-03 -0.870E+00 701060 0.3900 0.4100 0.3000E+00 0.1800E-01 0.0000 0.0000 0.1484E+01 1 1 1 0 14 0.8905E-01 0.1000E-03 -0.780E+00 701070 0.3900 0.4100 0.5333E+00 0.3200E-01 0.0000 0.0000 0.1492E+01 1 1 1 0 14 0.8954E-01 0.1000E-03 -0.623E+00 701080 0.3900 0.4100 0.9333E+00 0.5600E-01 0.0000 0.0000 0.1506E+01 1 1 1 0 14 0.9038E-01 0.1000E-03 -0.356E+00 701090 0.3900 0.4100 0.1667E+01 0.1000E+00 0.0000 0.0000 0.1532E+01 1 1 1 1 14 0.9193E-01 0.1000E-03 0.126E+00 701100 0.3900 0.4100 0.3000E+01 0.1800E+00 0.0000 0.0000 0.1579E+01 1 1 1 1 14 0.9477E-01 0.1000E-03 0.983E+00 701110 0.3900 0.4100 0.5333E+01 0.3200E+00 0.0000 0.0000 0.1663E+01 1 1 1 1 14 0.9977E-01 0.1000E-03 0.242E+01 701120 0.3900 0.4100 0.9333E+01 0.5600E+00 0.0000 0.0000 0.1808E+01 1 1 1 1 14 0.1085E+00 0.1000E-03 0.473E+01 701130 0.3900 0.4100 0.1667E+02 0.1000E+01 0.0000 0.0000 0.2079E+01 1 1 1 1 14 0.1247E+00 0.1000E-03 0.851E+01 701140 0.3900 0.4100 0.3000E+02 0.1800E+01 0.0000 0.0000 0.2591E+01 1 1 1 1 14 0.1555E+00 0.1000E-03 0.142E+02 701150 0.3900 0.4100 0.5333E+02 0.3200E+01 0.0000 0.0000 0.3536E+01 1 1 1 1 14 0.2122E+00 0.1000E-03 0.219E+02 701160 0.3900 0.4100 0.9333E+02 0.5600E+01 0.0000 0.0000 0.5278E+01 1 1 1 1 14 0.3167E+00 0.1000E-03 0.312E+02 701170 0.3900 0.4100 0.1667E+03 0.1000E+02 0.0000 0.0000 0.8781E+01 1 1 1 1 14 0.5269E+00 0.1000E-03 0.419E+02 701180 0.3900 0.4100 0.3000E+03 0.1800E+02 0.0000 0.0000 0.1590E+02 1 1 1 0 14 0.9541E+00 0.1000E-03 0.530E+02 701190 0.3900 0.4100 0.5333E+03 0.3200E+02 0.0000 0.0000 0.3000E+02 1 1 1 0 14 0.1800E+01 0.1000E-03 0.636E+02 701200 0.3900 0.4100 0.9333E+03 0.5600E+02 0.0000 0.0000 0.5750E+02 1 1 1 0 14 0.3450E+01 0.1000E-03 0.731E+02 701210 0.3900 0.4100 0.1667E+04 0.1000E+03 0.0000 0.0000 0.1152E+03 1 1 1 0 14 0.6914E+01 0.1000E-03 0.821E+02 701220 0.3900 0.4100 0.3000E+04 0.1800E+03 0.0000 0.0000 0.2362E+03 1 1 1 0 14 0.1417E+02 0.1000E-03 0.900E+02 701230 0.3900 0.4100 0.5333E+04 0.3200E+03 0.0000 0.0000 0.4803E+03 1 1 1 0 14 0.2882E+02 0.1000E-03 0.969E+02 701240 0.3900 0.4100 0.9333E+04 0.5600E+03 0.0000 0.0000 0.9616E+03 1 1 1 0 14 0.5770E+02 0.1000E-03 0.103E+03 701250 0.3900 0.4100 0.1667E+05 0.1000E+04 0.0000 0.0000 0.1979E+04 1 1 1 0 14 0.1187E+03 0.1000E-03 0.108E+03 701260 0.3900 0.4100 0.3000E+05 0.1800E+04 0.0000 0.0000 0.4119E+04 1 1 1 0 14 0.2471E+03 0.1000E-03 0.113E+03 701270 0.3900 0.4100 0.5333E+05 0.3200E+04 0.0000 0.0000 0.8447E+04 1 1 1 0 14 0.5068E+03 0.1000E-03 0.116E+03 701280 0.3900 0.4100 0.9333E+05 0.5600E+04 0.0000 0.0000 0.1699E+05 1 1 1 0 14 0.1020E+04 0.1000E-03 0.120E+03 701290 0.3900 0.4100 0.1667E+06 0.1000E+05 0.0000 0.0000 0.3507E+05 1 1 1 0 14 0.2104E+04 0.1000E-03 0.123E+03 701300 0.3900 0.4100 0.3000E+06 0.1800E+05 0.0000 0.0000 0.7310E+05 1 1 1 0 14 0.4386E+04 0.1000E-03 0.125E+03 701310 0.3900 0.4100 0.5333E+06 0.3200E+05 0.0000 0.0000 0.1500E+06 1 1 1 0 14 0.9002E+04 0.1000E-03 0.128E+03 701320 0.3900 0.4100 0.9333E+06 0.5600E+05 0.0000 0.0000 0.3020E+06 1 1 1 0 14 0.1812E+05 0.1000E-03 0.129E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 2 5 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 60.0 702010 0.3900 0.4100 0.1667E-02 0.1000E-02 0.0000 0.0000 0.7472E+00 1 1 1 0 14 0.4483E+00 0.1000E-03 -0.984E+00 702020 0.3900 0.4100 0.3000E-02 0.1800E-02 0.0000 0.0000 0.7472E+00 1 1 1 0 14 0.4483E+00 0.1000E-03 -0.982E+00 702030 0.3900 0.4100 0.5333E-02 0.3200E-02 0.0000 0.0000 0.7473E+00 1 1 1 0 14 0.4484E+00 0.1000E-03 -0.979E+00 702040 0.3900 0.4100 0.9333E-02 0.5600E-02 0.0000 0.0000 0.7474E+00 1 1 1 0 14 0.4484E+00 0.1000E-03 -0.974E+00 702050 0.3900 0.4100 0.1667E-01 0.1000E-01 0.0000 0.0000 0.7476E+00 1 1 1 0 14 0.4485E+00 0.1000E-03 -0.964E+00 702060 0.3900 0.4100 0.3000E-01 0.1800E-01 0.0000 0.0000 0.7479E+00 1 1 1 0 14 0.4488E+00 0.1000E-03 -0.946E+00 702070 0.3900 0.4100 0.5333E-01 0.3200E-01 0.0000 0.0000 0.7486E+00 1 1 1 0 14 0.4492E+00 0.1000E-03 -0.915E+00 702080 0.3900 0.4100 0.9333E-01 0.5600E-01 0.0000 0.0000 0.7497E+00 1 1 1 0 14 0.4498E+00 0.1000E-03 -0.862E+00 702090 0.3900 0.4100 0.1667E+00 0.1000E+00 0.0000 0.0000 0.7518E+00 1 1 1 0 14 0.4511E+00 0.1000E-03 -0.764E+00 702100 0.3900 0.4100 0.3000E+00 0.1800E+00 0.0000 0.0000 0.7555E+00 1 1 1 0 14 0.4533E+00 0.1000E-03 -0.587E+00 702110 0.3900 0.4100 0.5333E+00 0.3200E+00 0.0000 0.0000 0.7620E+00 1 1 1 0 14 0.4572E+00 0.1000E-03 -0.279E+00 702120 0.3900 0.4100 0.9333E+00 0.5600E+00 0.0000 0.0000 0.7732E+00 1 1 1 0 14 0.4639E+00 0.1000E-03 0.242E+00 702130 0.3900 0.4100 0.1667E+01 0.1000E+01 0.0000 0.0000 0.7939E+00 1 1 1 1 14 0.4763E+00 0.1000E-03 0.118E+01 702140 0.3900 0.4100 0.3000E+01 0.1800E+01 0.0000 0.0000 0.8317E+00 1 1 1 1 14 0.4990E+00 0.1000E-03 0.282E+01 702150 0.3900 0.4100 0.5333E+01 0.3200E+01 0.0000 0.0000 0.8987E+00 1 1 1 1 14 0.5392E+00 0.1000E-03 0.552E+01 702160 0.3900 0.4100 0.9333E+01 0.5600E+01 0.0000 0.0000 0.1016E+01 1 1 1 1 14 0.6096E+00 0.1000E-03 0.970E+01 702170 0.3900 0.4100 0.1667E+02 0.1000E+02 0.0000 0.0000 0.1238E+01 1 1 1 1 14 0.7428E+00 0.1000E-03 0.162E+02 702180 0.3900 0.4100 0.3000E+02 0.1800E+02 0.0000 0.0000 0.1662E+01 1 1 1 1 14 0.9973E+00 0.1000E-03 0.255E+02 702190 0.3900 0.4100 0.5333E+02 0.3200E+02 0.0000 0.0000 0.2458E+01 1 1 1 1 14 0.1475E+01 0.1000E-03 0.370E+02 702200 0.3900 0.4100 0.9333E+02 0.5600E+02 0.0000 0.0000 0.3948E+01 1 1 1 1 14 0.2369E+01 0.1000E-03 0.498E+02 702210 0.3900 0.4100 0.1667E+03 0.1000E+03 0.0000 0.0000 0.6984E+01 1 1 1 1 14 0.4190E+01 0.1000E-03 0.636E+02 702220 0.3900 0.4100 0.3000E+03 0.1800E+03 0.0000 0.0000 0.1322E+02 1 1 1 0 14 0.7932E+01 0.1000E-03 0.774E+02 702230 0.3900 0.4100 0.5333E+03 0.3200E+03 0.0000 0.0000 0.2566E+02 1 1 1 0 14 0.1539E+02 0.1000E-03 0.899E+02 702240 0.3900 0.4100 0.9333E+03 0.5600E+03 0.0000 0.0000 0.5001E+02 1 1 1 0 14 0.3001E+02 0.1000E-03 0.101E+03 702250 0.3900 0.4100 0.1667E+04 0.1000E+04 0.0000 0.0000 0.1013E+03 1 1 1 0 14 0.6077E+02 0.1000E-03 0.111E+03 702260 0.3900 0.4100 0.3000E+04 0.1800E+04 0.0000 0.0000 0.2088E+03 1 1 1 0 14 0.1253E+03 0.1000E-03 0.120E+03 702270 0.3900 0.4100 0.5333E+04 0.3200E+04 0.0000 0.0000 0.4261E+03 1 1 1 0 14 0.2557E+03 0.1000E-03 0.128E+03 702280 0.3900 0.4100 0.9333E+04 0.5600E+04 0.0000 0.0000 0.8548E+03 1 1 1 0 14 0.5129E+03 0.1000E-03 0.134E+03 702290 0.3900 0.4100 0.1667E+05 0.1000E+05 0.0000 0.0000 0.1761E+04 1 1 1 0 14 0.1057E+04 0.1000E-03 0.140E+03 702300 0.3900 0.4100 0.3000E+05 0.1800E+05 0.0000 0.0000 0.3668E+04 1 1 1 0 14 0.2201E+04 0.1000E-03 0.146E+03 702310 0.3900 0.4100 0.5333E+05 0.3200E+05 0.0000 0.0000 0.7525E+04 1 1 1 0 14 0.4515E+04 0.1000E-03 0.150E+03 702320 0.3900 0.4100 0.9333E+05 0.5600E+05 0.0000 0.0000 0.1514E+05 1 1 1 0 14 0.9084E+04 0.1000E-03 0.154E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 3 7 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 600.0 703010 0.3900 0.4100 0.1667E-03 0.1000E-02 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.989E+00 703020 0.3900 0.4100 0.3000E-03 0.1800E-02 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.988E+00 703030 0.3900 0.4100 0.5333E-03 0.3200E-02 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.988E+00 703040 0.3900 0.4100 0.9333E-03 0.5600E-02 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.987E+00 703050 0.3900 0.4100 0.1667E-02 0.1000E-01 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.985E+00 703060 0.3900 0.4100 0.3000E-02 0.1800E-01 0.0000 0.0000 0.3788E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.981E+00 703070 0.3900 0.4100 0.5333E-02 0.3200E-01 0.0000 0.0000 0.3789E+00 1 1 1 0 14 0.2273E+01 0.1000E-03 -0.975E+00 703080 0.3900 0.4100 0.9333E-02 0.5600E-01 0.0000 0.0000 0.3790E+00 1 1 1 0 14 0.2274E+01 0.1000E-03 -0.964E+00 703090 0.3900 0.4100 0.1667E-01 0.1000E+00 0.0000 0.0000 0.3791E+00 1 1 1 0 14 0.2275E+01 0.1000E-03 -0.945E+00 703100 0.3900 0.4100 0.3000E-01 0.1800E+00 0.0000 0.0000 0.3794E+00 1 1 1 0 14 0.2277E+01 0.1000E-03 -0.910E+00 703110 0.3900 0.4100 0.5333E-01 0.3200E+00 0.0000 0.0000 0.3800E+00 1 1 1 0 14 0.2280E+01 0.1000E-03 -0.848E+00 703120 0.3900 0.4100 0.9333E-01 0.5600E+00 0.0000 0.0000 0.3809E+00 1 1 1 0 14 0.2285E+01 0.1000E-03 -0.743E+00 703130 0.3900 0.4100 0.1667E+00 0.1000E+01 0.0000 0.0000 0.3825E+00 1 1 1 0 14 0.2295E+01 0.1000E-03 -0.551E+00 703140 0.3900 0.4100 0.3000E+00 0.1800E+01 0.0000 0.0000 0.3855E+00 1 1 1 0 14 0.2313E+01 0.1000E-03 -0.204E+00 703150 0.3900 0.4100 0.5333E+00 0.3200E+01 0.0000 0.0000 0.3907E+00 1 1 1 0 14 0.2344E+01 0.1000E-03 0.397E+00 703160 0.3900 0.4100 0.9333E+00 0.5600E+01 0.0000 0.0000 0.3996E+00 1 1 1 0 14 0.2398E+01 0.1000E-03 0.141E+01 703170 0.3900 0.4100 0.1667E+01 0.1000E+02 0.0000 0.0000 0.4161E+00 1 1 1 1 14 0.2497E+01 0.1000E-03 0.321E+01 703180 0.3900 0.4100 0.3000E+01 0.1800E+02 0.0000 0.0000 0.4465E+00 1 1 1 1 14 0.2679E+01 0.1000E-03 0.630E+01 703190 0.3900 0.4100 0.5333E+01 0.3200E+02 0.0000 0.0000 0.5007E+00 1 1 1 1 14 0.3004E+01 0.1000E-03 0.112E+02 703200 0.3900 0.4100 0.9333E+01 0.5600E+02 0.0000 0.0000 0.5963E+00 1 1 1 1 14 0.3578E+01 0.1000E-03 0.185E+02 703210 0.3900 0.4100 0.1667E+02 0.1000E+03 0.0000 0.0000 0.7797E+00 1 1 1 1 14 0.4678E+01 0.1000E-03 0.293E+02 703220 0.3900 0.4100 0.3000E+02 0.1800E+03 0.0000 0.0000 0.1136E+01 1 1 1 1 14 0.6814E+01 0.1000E-03 0.434E+02 703230 0.3900 0.4100 0.5333E+02 0.3200E+03 0.0000 0.0000 0.1814E+01 1 1 1 1 14 0.1089E+02 0.1000E-03 0.596E+02 703240 0.3900 0.4100 0.9333E+02 0.5600E+03 0.0000 0.0000 0.3102E+01 1 1 1 1 14 0.1861E+02 0.1000E-03 0.763E+02 703250 0.3900 0.4100 0.1667E+03 0.1000E+04 0.0000 0.0000 0.5755E+01 1 1 1 1 14 0.3453E+02 0.1000E-03 0.935E+02 703260 0.3900 0.4100 0.3000E+03 0.1800E+04 0.0000 0.0000 0.1125E+02 1 1 1 0 14 0.6749E+02 0.1000E-03 0.110E+03 703270 0.3900 0.4100 0.5333E+03 0.3200E+04 0.0000 0.0000 0.2225E+02 1 1 1 0 14 0.1335E+03 0.1000E-03 0.124E+03 703280 0.3900 0.4100 0.9333E+03 0.5600E+04 0.0000 0.0000 0.4387E+02 1 1 1 0 14 0.2632E+03 0.1000E-03 0.137E+03 703290 0.3900 0.4100 0.1667E+04 0.1000E+05 0.0000 0.0000 0.8946E+02 1 1 1 0 14 0.5367E+03 0.1000E-03 0.149E+03 703300 0.3900 0.4100 0.3000E+04 0.1800E+05 0.0000 0.0000 0.1852E+03 1 1 1 0 14 0.1111E+04 0.1000E-03 0.159E+03 703310 0.3900 0.4100 0.5333E+04 0.3200E+05 0.0000 0.0000 0.3787E+03 1 1 1 0 14 0.2272E+04 0.1000E-03 0.168E+03 703320 0.3900 0.4100 0.9333E+04 0.5600E+05 0.0000 0.0000 0.7606E+03 1 1 1 0 14 0.4564E+04 0.1000E-03 0.175E+03 % 101:I,JD,JX,JS,INDEX,IXD(INDEX),IMAX,XAK3, YJU23: 0 0 0 4 9 1 32 1.0000 1.0000 1.0000 %!32 AL04 A 6000.0 704010 0.3900 0.4100 0.1667E-04 0.1000E-02 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.991E+00 704020 0.3900 0.4100 0.3000E-04 0.1800E-02 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.991E+00 704030 0.3900 0.4100 0.5333E-04 0.3200E-02 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.991E+00 704040 0.3900 0.4100 0.9333E-04 0.5600E-02 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.991E+00 704050 0.3900 0.4100 0.1667E-03 0.1000E-01 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.990E+00 704060 0.3900 0.4100 0.3000E-03 0.1800E-01 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.990E+00 704070 0.3900 0.4100 0.5333E-03 0.3200E-01 0.0000 0.0000 0.1920E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.988E+00 704080 0.3900 0.4100 0.9333E-03 0.5600E-01 0.0000 0.0000 0.1921E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.986E+00 704090 0.3900 0.4100 0.1667E-02 0.1000E+00 0.0000 0.0000 0.1921E+00 1 1 1 0 14 0.1152E+02 0.1000E-03 -0.983E+00 704100 0.3900 0.4100 0.3000E-02 0.1800E+00 0.0000 0.0000 0.1921E+00 1 1 1 0 14 0.1153E+02 0.1000E-03 -0.976E+00 704110 0.3900 0.4100 0.5333E-02 0.3200E+00 0.0000 0.0000 0.1921E+00 1 1 1 0 14 0.1153E+02 0.1000E-03 -0.963E+00 704120 0.3900 0.4100 0.9333E-02 0.5600E+00 0.0000 0.0000 0.1922E+00 1 1 1 0 14 0.1153E+02 0.1000E-03 -0.943E+00 704130 0.3900 0.4100 0.1667E-01 0.1000E+01 0.0000 0.0000 0.1923E+00 1 1 1 0 14 0.1154E+02 0.1000E-03 -0.905E+00 704140 0.3900 0.4100 0.3000E-01 0.1800E+01 0.0000 0.0000 0.1926E+00 1 1 1 0 14 0.1155E+02 0.1000E-03 -0.835E+00 704150 0.3900 0.4100 0.5333E-01 0.3200E+01 0.0000 0.0000 0.1930E+00 1 1 1 0 14 0.1158E+02 0.1000E-03 -0.714E+00 704160 0.3900 0.4100 0.9333E-01 0.5600E+01 0.0000 0.0000 0.1937E+00 1 1 1 0 14 0.1162E+02 0.1000E-03 -0.507E+00 704170 0.3900 0.4100 0.1667E+00 0.1000E+02 0.0000 0.0000 0.1950E+00 1 1 1 0 14 0.1170E+02 0.1000E-03 -0.130E+00 704180 0.3900 0.4100 0.3000E+00 0.1800E+02 0.0000 0.0000 0.1974E+00 1 1 1 0 14 0.1184E+02 0.1000E-03 0.550E+00 704190 0.3900 0.4100 0.5333E+00 0.3200E+02 0.0000 0.0000 0.2015E+00 1 1 1 0 14 0.1209E+02 0.1000E-03 0.172E+01 704200 0.3900 0.4100 0.9333E+00 0.5600E+02 0.0000 0.0000 0.2087E+00 1 1 1 0 14 0.1252E+02 0.1000E-03 0.367E+01 704210 0.3900 0.4100 0.1667E+01 0.1000E+03 0.0000 0.0000 0.2219E+00 1 1 1 1 14 0.1332E+02 0.1000E-03 0.708E+01 704220 0.3900 0.4100 0.3000E+01 0.1800E+03 0.0000 0.0000 0.2465E+00 1 1 1 1 14 0.1479E+02 0.1000E-03 0.128E+02 704230 0.3900 0.4100 0.5333E+01 0.3200E+03 0.0000 0.0000 0.2906E+00 1 1 1 1 14 0.1743E+02 0.1000E-03 0.215E+02 704240 0.3900 0.4100 0.9333E+01 0.5600E+03 0.0000 0.0000 0.3693E+00 1 1 1 1 14 0.2216E+02 0.1000E-03 0.337E+02 704250 0.3900 0.4100 0.1667E+02 0.1000E+04 0.0000 0.0000 0.5226E+00 1 1 1 1 14 0.3136E+02 0.1000E-03 0.503E+02 704260 0.3900 0.4100 0.3000E+02 0.1800E+04 0.0000 0.0000 0.8250E+00 1 1 1 1 14 0.4950E+02 0.1000E-03 0.705E+02 704270 0.3900 0.4100 0.5333E+02 0.3200E+04 0.0000 0.0000 0.1410E+01 1 1 1 1 14 0.8461E+02 0.1000E-03 0.920E+02 704280 0.3900 0.4100 0.9333E+02 0.5600E+04 0.0000 0.0000 0.2533E+01 1 1 1 1 14 0.1520E+03 0.1000E-03 0.113E+03 704290 0.3900 0.4100 0.1667E+03 0.1000E+05 0.0000 0.0000 0.4867E+01 1 1 1 1 14 0.2920E+03 0.1000E-03 0.134E+03 704300 0.3900 0.4100 0.3000E+03 0.1800E+05 0.0000 0.0000 0.9724E+01 1 1 1 0 14 0.5834E+03 0.1000E-03 0.153E+03 704310 0.3900 0.4100 0.5333E+03 0.3200E+05 0.0000 0.0000 0.1949E+02 1 1 1 0 14 0.1169E+04 0.1000E-03 0.170E+03 704320 0.3900 0.4100 0.9333E+03 0.5600E+05 0.0000 0.0000 0.3871E+02 1 1 1 0 14 0.2322E+04 0.1000E-03 0.184E+03 %799999END,79 characters in any data line 99 ] 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 2 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 /AVR1DA0A 2560 array def %512*5=2560, actual either DA05 or DA06 %works also for 0 1 4 { 2 1 2 {/xchart exch def %xchart=0,4, 5 plot for 5 illuminats /MD xchart def %0=0,1, 1=1, 2=10, 3=100, 4=1000cd/m**2 /MDK 4 MD sub def %0=1000, 1=100, 2=10, 3=1, 4=0,1cd/m**2 %alternative (right side) /MD xchart def %0=0,6, 1=6, 2=60, 3=600, 4=6000cd/m**2 /MDK 4 MD sub def %0=6000, 1=600, 2=60, 3=6, 4=0,6cd/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 (TG200-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 5 array def /IMDAT %data of curve, 32 values, only 28 used for plot [27 27 27 27 27] 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 %xchartl=0,1,2,3, 4,5,6,7, 8,9,10,11, 12,13,14,15 %for plots log dL, log L/dL, L/dL, T* /xchartl 2 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave /xchartl3 xchartl 4 idiv def %=0,1,2,3 for 0<=3,..12<=15 %/xchartl7 xchartl 8 idiv def %=0,1 for 0<=7,>7 /xchartl4 xchartl xchartl 4 idiv 4 mul sub def %=0 for 0,4,8,12 etc. %xchartl7 0 eq {0 1 2559 {/i exch def % AVR1DA0A i AVR1DA05 i get put} for % } % { 0 1 2559 {/i exch def AVR1DA0A i AVR1DA06 i get put} for % } ifelse % 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 20 setlinewidth 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(TG200-) show} {(TG201-) 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 %Rahmen Schwarz %******************************************** /xt0 50 def /yt0 3750 def /xt1 1000 def /xt2 1250 def /ytd 250 def xt0 yt0 moveto TBM tfw xchartl xchartl4 0 eq {%xchartl4=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 tfw SM (D) show TBIM (L= L ) show 0 50 rmoveto (. ) show 0 -50 rmoveto tfn (F) show TBM } if %xchartl4=0 xchartl xchartl4 1 eq {%xchartl4=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 %xchartl4=1 xchartl xchartl4 2 eq {%xchartl4=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 %xchartl4=2 xchartl xchartl4 3 eq {%xchartl4=3 TBIM (T*) show TBM (Amount of) showen (Anzahl der) showde xt1 600 sub yt0 ytd 1 mul sub moveto TBM (threshold steps) showen TBM (Schwellenstufen) showde } if %xchartl4=3 xchartl3 1 eq {tfn 4000 yt0 moveto TBM (CIELAB) show tfw} if xchartl3 2 eq {tfn 4000 yt0 moveto TBM (sRGB_w) show tfw} if xchartl3 3 eq {tfn 4000 yt0 moveto TBM (sRGB_b) show tfw} 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 /ty4 [( 0) ( 50) (100) (150) (200) (250) (300) (350)] 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 xchartl4 1 le {%xchartl4<=1 -450 iyt moveto ty i get exec show } if %xchartl4<=1 xchartl4 2 eq {%xchartl4=2 -450 iyt moveto ty5 i get exec show } if %xchartl4=2 xchartl4 3 eq {%xchartl4=3 -520 iyt moveto ty4 i get exec show } if %xchartl4=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 /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 xchartl -1 le {%xchartl<=-1,>=0 % %2 Parameters A1 and A2, 10cd/m**2 %AULI_LDL_L1.FOR, IN/OUT AULI_LDL_L1.DAT/.TXT OUTP=AULI_LDL_L1.LIS 140306 % 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: LINGDA03.FOR 2014_03_03 % Output file: LINGDA03.TXT 2014_03_03 %000000 1 2 3 4 5 6 7 %1234567890123456789012345678901234567890123456789012345678901234567890123456 %610000 x y Y L delta_x delta_y delta_Y ObReJNSu____ %EQUATIONS USED %F1(I)=W2*10**(A3*(Y(I)+A2)) %F3(I)=W2*10**(A4*(Y(I)+A2+A6)) %F2(I)=(1+F1(I))*(1+F1(I)+A7) %F4(I)=(1+F3(I))*(1+F3(I)+A7) %F(I)=A1*F1(I)/F2(I) + A5*F3(I)/F4(I)) %Y(I)=10**X, X=ALOG10(Y(I)) %A3=1, A4=1/3, A5=1, A6=0, A7=1 setzen! % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 0.1 %BEG ALPHA= 0.1127E+03 %END X(I),I=1,JM 0.9983E-04 0.6655E-06 %END X0K,J=1,JM 0.6873E+02 0.6176E+00 %END ALPHA= 0.6202E+01 %END /JNR 0 def /X0K0 10 array def /X0K0 [ 0.6873E+02 0.6176E+00 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 1.0 %BEG ALPHA= 0.4818E+03 %END X(I),I=1,JM 0.9505E-04 -0.6627E-06 %END X0K,J=1,JM 0.8631E+02 -0.1864E+00 %END ALPHA= 0.9735E+01 %END /JNR 1 def /X0K1 10 array def /X0K1 [ 0.8631E+02 -0.1864E+00 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 10.0 %BEG ALPHA= 0.1650E+04 %END X(I),I=1,JM 0.9671E-04 -0.7341E-06 %END X0K,J=1,JM 0.1084E+03 -0.9906E+00 %END ALPHA= 0.1523E+02 %END /JNR 2 def /X0K2 10 array def /X0K2 [ 0.1084E+03 -0.9906E+00 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 100.0 %BEG ALPHA= 0.3696E+04 %END X(I),I=1,JM 0.8735E-04 -0.4650E-06 %END X0K,J=1,JM 0.1364E+03 -0.1797E+01 %END ALPHA= 0.2306E+02 %END /JNR 3 def /X0K3 10 array def /X0K3 [ 0.1364E+03 -0.1797E+01 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 1000.0 %BEG ALPHA= 0.6623E+04 %END X(I),I=1,JM 0.9318E-04 -0.1090E-05 %END X0K,J=1,JM 0.1728E+03 -0.2616E+01 %END ALPHA= 0.2825E+02 %END /JNR 4 def /X0K4 10 array def /X0K4 [ 0.1728E+03 -0.2616E+01 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def } %xchartl<=-1 { %xchartl>=0 %2 Parameters A1 and A2, 60cd/m**2: %AULI_LDL_L3.FOR, IN/OUT AULI_LDL_L3.DAT/.TXT OUTP=AULI_LDL_L3.LIS 140306 % 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: LINGDA04.FOR 2014_03_03 % Output file: LINGDA04.TXT 2014_03_03 %000000 1 2 3 4 5 6 7 %1234567890123456789012345678901234567890123456789012345678901234567890123456 %710000 x y Y L delta_x delta_y delta_Y ObReJNSu____ %EQUATIONS USED %F1(I)=W2*10**(A3*(Y(I)+A2)) %F3(I)=W2*10**(A4*(Y(I)+A2+A6)) %F2(I)=(1+F1(I))*(1+F1(I)+A7) %F4(I)=(1+F3(I))*(1+F3(I)+A7) %F(I)=A1*F1(I)/F2(I) + A5*F3(I)/F4(I)) %Y(I)=10**X, X=ALOG10(Y(I)) %A3=1, A4=1/3, A5=1, A6=0, A7=1 setzen! % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 0.6 %BEG ALPHA= 0.3354E+03 %END X(I),I=1,JM 0.9840E-04 -0.4867E-06 %END X0K,J=1,JM 0.8203E+02 -0.8183E-02 %END ALPHA= 0.8728E+01 %END /JNR 0 def /X0K0 10 array def /X0K0 [ 0.8203E+02 -0.8183E-02 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 6.0 %BEG ALPHA= 0.1318E+04 %END X(I),I=1,JM 0.9581E-04 -0.6570E-06 %END X0K,J=1,JM 0.1030E+03 -0.8112E+00 %END ALPHA= 0.1374E+02 %END /JNR 1 def /X0K1 10 array def /X0K1 [ 0.1030E+03 -0.8112E+00 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 60.0 %BEG ALPHA= 0.3164E+04 %END X(I),I=1,JM 0.9849E-04 -0.5235E-06 %END X0K,J=1,JM 0.1296E+03 -0.1617E+01 %END ALPHA= 0.2125E+02 %END /JNR 2 def /X0K2 10 array def /X0K2 [ 0.1296E+03 -0.1617E+01 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 600.0 %BEG ALPHA= 0.5905E+04 %END X(I),I=1,JM 0.9154E-04 -0.9307E-06 %END X0K,J=1,JM 0.1639E+03 -0.2434E+01 %END ALPHA= 0.2812E+02 %END /JNR 3 def /X0K3 10 array def /X0K3 [ 0.1639E+03 -0.2434E+01 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def % %LM0,KX,JM,(%BEG X0K(J)=X00(J),J=1,10): 40 10 2 % 0.5084E+02 0.3851E+00 0.1000E+01 0.3333E+00 0.1000E+01 % 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 %32 AL04 A 6000.0 %BEG ALPHA= 0.9254E+04 %END X(I),I=1,JM 0.9988E-04 -0.1049E-05 %END X0K,J=1,JM 0.2100E+03 -0.3267E+01 %END ALPHA= 0.2109E+02 %END /JNR 4 def /X0K4 10 array def /X0K4 [ 0.2100E+03 -0.3267E+01 0.1000E+01 0.3333E+00 0.1000E+01 0.0000E+00 0.1000E+01 0.0000E+00 0.0000E+00 0.0000E+00 ] def } ifelse %xchartl<=7,>7 /X0K 10 array def 0 1 9 {/j exch def %j=0,9 xchart 0 eq {X0K j X0K0 j get put} if xchart 1 eq {X0K j X0K1 j get put} if xchart 2 eq {X0K j X0K2 j get put} if xchart 3 eq {X0K j X0K3 j get put} if xchart 4 eq {X0K j X0K4 j get put} if xchart 5 eq {X0K j X0K5 j get put} if xchart 6 eq {X0K j X0K6 j get put} if xchart 7 eq {X0K j X0K7 j get put} if xchart 8 eq {X0K j X0K8 j get put} if xchart 9 eq {X0K j X0K9 j get put} if } for %j=0,9 /yd 300 def xchartl4 0 eq xchartl4 2 eq or xchartl4 3 eq or {%xchartl4=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 2750 def } if %xchartl4=0,2,3 xchartl4 1 eq {%xchartl4=1 %table 1 right /xt10 3200 def /xt11 3500 def /xt12 4100 def /yt10 2050 def %table 2 left /xt20 200 def /yt20 2700 def } if %xchartl4=1 tfw xt11 yt10 moveto TBIM (x) show xt12 yt10 moveto TBIM (y) show tfw xt10 yt10 yd sub moveto (A) show tfw xt11 yt10 yd sub moveto (0,39) show xt12 yt10 yd sub moveto (0,41) show %xchartl4 0 eq %xchartl4 1 eq or %xchartl4 3 eq or {%xchartl4=0,1,3 tfn 100 300 moveto (F=A1(F3'/F3+F4'/F4);) show xchartl4 0 eq {%xchartl4=4 tfw SM ( D) show TBIM (L = L ) show 0 50 rmoveto (.) show 0 -50 rmoveto tfn (F) show } if %xchartl4=0 xchartl4 1 eq xchartl4 2 eq or {%xchartl4=1,1 tfw TBIM (=L/) show SM ( D) show TBIM (L ) show tfn } if %xchartl4=1,2 xt10 yt10 yd 2 mul sub moveto (A1=) show X0K 0 get cvsshow2 xt10 yt10 yd 3 mul sub moveto (A2=) show X0K 1 get cvsshow2 xt10 yt10 yd 4 mul sub moveto (A3=) show X0K 2 get cvsshow2 xt10 yt10 yd 5 mul sub moveto (A4=) show X0K 3 get cvsshow2 %xt10 yt10 yd 7 mul sub moveto (A5=) show X0K 4 get cvsshow2 %} if %xchartl4=2,4 tfw %xt20 yt20 moveto (experiment:) show xt20 yt20 yd sub moveto (LI 0,4s A) show xt20 yt20 yd 2 mul sub moveto (equation) show newpath /xfact 700 def xchartl4 0 eq xchartl4 1 eq or {/yfact 700 def} if xchartl4 2 eq {/yfact 70 def} if xchartl4 3 eq {/yfact 14 def} if tfn xchartl -1 le {%xchartl<=-1,>0 xchart 0 eq {0.1} if xchart 1 eq {1} if xchart 2 eq {10} if xchart 3 eq {100} if xchart 4 eq {1000} if log 3 add xfact mul 0 50 00 360 arc fill tfn %2800 350 50 00 360 arc fill xt20 yt20 yd 0 mul sub 100 add 50 00 360 arc fill tfw %2900 250 moveto TBIM (L) show ishowg xt20 100 add yt20 yd 0 mul sub moveto TBIM (L) show ishowg TBM xchart 0 eq {(=0,1cd/m) show eshow2} if xchart 1 eq {(=1cd/m) show eshow2} if xchart 2 eq {(=10cd/m) show eshow2} if xchart 3 eq {(=100cd/m) show eshow2} if xchart 4 eq {(=1000cd/m) show eshow2} if } %xchartl<=-1 { %xchartl>=0 xchart 0 eq {0.6} if xchart 1 eq {6} if xchart 2 eq {60} if xchart 3 eq {600} if xchart 4 eq {6000} if log 3 add xfact mul 0 50 00 360 arc fill tfn %2800 350 50 00 360 arc fill xt20 yt20 yd 0 mul sub 100 add 50 00 360 arc fill tfw %2900 250 moveto TBIM (L) show ishowg xt20 100 add yt20 yd 0 mul sub moveto TBIM (L) show ishowg TBM xchart 0 eq {(=0,6cd/m) show eshow2} if xchart 1 eq {(=6cd/m) show eshow2} if xchart 2 eq {(=60cd/m) show eshow2} if xchart 3 eq {(=600cd/m) show eshow2} if xchart 4 eq {(=6000cd/m) show eshow2} if } ifelse %xchartl<=-1,>=0 /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 02 def /xchartx xchart def %xchartl 10 le {/xchartx xchartl def} if %xchartl 11 ge %xchartl 15 le and {/xchartx 3 def} if /MDX 16 32 mul 1 mul def %512=16*32*1 /k16_32 16 32 xchartx mul mul def % MD MDX mul add def %16 data * 32 colours * 1 series %xchartl 3 le {/tfx {tfw} def} if %xchartl 4 eq %xchartl 5 eq or {/tfx {tfy} def} if %xchartl 6 eq %xchartl 7 eq or {/tfx {tfb} def} if %xchartl 8 eq %xchartl 9 eq or {/tfx {tfr} def} if %xchartl 10 eq {/tfx {tfg} def} if %xchartl 11 ge {/tfx {tfw} def} if %0 1 JM {/j exch def %j=0,JM /j 0 def /IM IMDAT xchartx get def 0 1 IM {/i exch def %i=0,IM /j1 i 16 mul 04 add j 16 mul add k16_32 add def %L /j2 i 16 mul 13 add j 16 mul add k16_32 add def %delta_L /j3 i 16 mul 14 add j 16 mul add k16_32 add def %delta_Ls /j4 i 16 mul 15 add j 16 mul add k16_32 add def %T* xgr i AVR1DA0A j1 get put xchartl4 0 eq {%xchartl4=0 dL ygr i AVR1DA0A j2 get put } if %xchartl4=0 dL xchartl4 1 eq xchartl4 2 eq or {%xchartl4=1,2 L/dL log and linear ygr i AVR1DA0A j1 get AVR1DA0A j2 get div put } if %xchartl4=1 L/dL xchartl4 3 eq {%xchartl4=3 T* ygr i AVR1DA0A j4 get put } if %xchartl4=3 T* xchartl -1 le {%xchartl<=-1,>0 i 08 eq xchart 0 eq and {/xgu xgr i get def /ygu ygr i get def} if i 12 eq xchart 1 eq and {/xgu xgr i get def /ygu ygr i get def} if i 16 eq xchart 2 eq and {/xgu xgr i get def /ygu ygr i get def} if i 20 eq xchart 3 eq and {/xgu xgr i get def /ygu ygr i get def} if i 24 eq xchart 4 eq and {/xgu xgr i get def /ygu ygr i get def} if }%xchart<=-1 {%xchart>=0 i 11 eq xchart 0 eq and {/xgu xgr i get def /ygu ygr i get def} if i 15 eq xchart 1 eq and {/xgu xgr i get def /ygu ygr i get def} if i 19 eq xchart 2 eq and {/xgu xgr i get def /ygu ygr i get def} if i 23 eq xchart 3 eq and {/xgu xgr i get def /ygu ygr i get def} if i 27 eq xchart 4 eq and {/xgu xgr i get def /ygu ygr i get def} if } ifelse %xchartl<=-1,>=0 } for %i=0,IM xchart 0 eq {/tfx {tfn} def} if xchart 1 eq {/tfx {tfd} def} if xchart 2 eq {/tfx {tfw} def} if xchart 3 eq {/tfx {tfh} def} if xchart 4 eq {/tfx {tfw} def} if 0 1 IM {/i exch def %i=0,IM tfx xgr i get log xs3 add xfact mul ygr i get 0.001 add xchartl4 1 le {log} if ys2 add yfact mul 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 %xchartl3 1 eq %xchartl3 3 eq or {%xchartl3=1,3 xchartl4 0 eq xchartl4 1 eq or xchartl4 2 eq or xchartl4 3 eq or {%xchartl4=0,1,2,3 /W2 2 0.5 exp def /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 %3100 500 moveto X0K0 0 get cvsshow2 % APPROX. mIT FKT: A1*(F1(I)/F2(I)+A5*F3(I)/F4(I)) % mit F1(I)=W2*10**(A3*(X+A2)) % F2(I)=(1+F1(I))*(1+F1(I)+A7) % F3(I)=W2*10**(A4*(X+A2+A6)) % F4(I)=(1+F3(I))*(1+F3(I)+A7) % A5=1; A6=0 moeglich % A3=1, A4=1/3, A7=1 setzen! % Integral g'(x)/g(x) dx = ln |g(x)| % A1 * Integral g'(x)/g(x) dx = A1* ln |g(x)| % G2(I)=(1+F1(I))*(1+F1(I)+A7) % F1(I)=W2*10**(A3*(Y(I)+A2)) % G4(I)=(1+F3(I))*(1+F3(I)+A7) % F3(I)=W2*10**(A4*(Y(I)+A2+A6)) %EQUATIONS USED %YK3=10**(A3*(Y(I)+A2)) %YK4=10**(A4*(Y(I)+A2+A6)) %F1(I)=W2*YK3 %F3(I)=W2*YK4 %F2(I)=(1+F1(I))*(1+F1(I)+A7) %F4(I)=(1+F3(I))*(1+F3(I)+A7) % %F(I)=A1*F1(I)/F2(I) + A5*F3(I)/F4(I)) %F1(I)=W2*10**(A3*(X+A2)) %F2(I)=(1+F1(I))*(1+F1(I)+A7) %F3(I)=W2*10**(A4*(X+A2+A6)) %F4(I)=(1+F3(I))*(1+F3(I)+A7) %Y(I)=10**X, X=ALOG10(Y(I)) %A3=1, A4=1/3, A5=1, A6=0, A7=1 setzen! %F(Ki)=-10*ln[f(Ki)] %f(Ki)=1 + 1/[1 + W2*Ki] % with i=1,3 %K1=10**(A3(X+A2)) %FA(K)=-10*ln[1 + 1/[1 + W2*K1] %K3=10**(A4(X+A2+A6)) %FB(K)=-10*ln[1 + 1/[1 + W2*K3] xchartl4 2 le {%xchartl4<=2 tfr 0 1 IM {/i exch def %i=0,IM /X xgr i get log def /F1 10 X A2 add A3 mul exp W2 mul def /F2 1 F1 add 1 F1 add A7 add mul def /F3 10 X A2 add A6 add A4 mul exp W2 mul def /F4 1 F3 add 1 F3 add A7 add mul def /FA F1 F2 0.00001 add div A1 mul def /FB F3 F4 0.00001 add div A1 mul A5 mul def /FC FA FB add 0.5 mul def %F11=10**(A3(X+A2))=F1/W2 %FAK=-10.*ln[1 + 1/[1 + W2*F11] % =-10.*ln[1 + 1/[1 + F1] %F31=10**(A4(X+A2+A6))=F3/W2 %FBK=-10.*ln[1 + 1/[1 + W2*F31] % =-10.*ln[1 + 1/[1 + F3] %FCK FAK FBK add 0.5 mul def /FAK 1 1 F1 add div 1 add ln -10. mul def /FBK 1 1 F3 add div 1 add ln -10. mul def /FCK FAK FBK add 0.5 mul def % A1 * Integral g'(x)/g(x) dx = A1* ln |g(x)| % G2=(1+F1)*(1+F1+A7)=F2 % F1=W2*10**(A3*(Y(I)+A2)) % G4=(1+F3)*(1+F3+A7)=F4 % F3=W2*10**(A4*(Y(I)+A2+A6)) %see book, page 123 /W2LN W2 ln def %F1=W2*10**(A3(X+A2)) /F1 10 X A2 add A3 mul exp W2 mul def %FAK=ln{1+1/[1+F1]} /FAK 1 1 1 F1 add div add ln def %QLM 1/W2LN*FAK-1 /QLM 1 W2LN div FAK mul def xgr i get log xs3 add xfact mul xchartl4 0 eq {xgr i get FA div log ys2 add yfact mul} if xchartl4 1 eq {FA 0.001 add log ys2 add yfact mul} if xchartl4 2 eq {FA 0.001 add ys2 add yfact mul} if xchartl4 3 eq {A1 QLM mul 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 tfg 0 1 IM {/i exch def %i=0,IM /X xgr i get log def /F1 10 X A2 add A3 mul exp W2 mul def /F2 1 F1 add 1 F1 add A7 add mul def /F3 10 X A2 add A6 add A4 mul exp W2 mul def /F4 1 F3 add 1 F3 add A7 add mul def /FA F1 F2 0.00001 add div A1 mul def /FB F3 F4 0.00001 add div A1 mul A5 mul def /FC FA FB add 0.5 mul def %F11=10**(A3(X+A2))=F1/W2 %FAK=-10.*ln[1 + 1/[1 + W2*F11] % =-10.*ln[1 + 1/[1 + F1] %F31=10**(A4(X+A2+A6))=F3/W2 %FBK=-10.*ln[1 + 1/[1 + W2*F31] % =-10.*ln[1 + 1/[1 + F3] %FCK FAK FBK add 0.5 mul def /FAK 1 1 F1 add div 1 add ln -10. mul def /FBK 1 1 F3 add div 1 add ln -10. mul def /FCK FAK FBK add 0.5 mul def /GB A1 F4 abs ln mul def xgr i get log xs3 add xfact mul xchartl4 0 eq {xgr i get FB div log ys2 add yfact mul} if xchartl4 1 eq {FB 0.001 add log ys2 add yfact mul} if xchartl4 2 eq {FB 0.001 add ys2 add yfact mul} if xchartl4 3 eq {GB 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 /iouty 1 def iouty 1 eq {%iout=1 tfy 0 1 IM {/i exch def %i=0,IM /X xgr i get log def /F1 10 X A2 add A3 mul exp W2 mul def /F2 1 F1 add 1 F1 add A7 add mul def /F3 10 X A2 add A6 add A4 mul exp W2 mul def /F4 1 F3 add 1 F3 add A7 add mul def /FA F1 F2 0.00001 add div A1 mul def /FB F3 F4 0.00001 add div A1 mul A5 mul def %/FC FA FB add 0.5 mul def /xgu 10 A2 neg exp def %xgr i get xgu le {/FC 10 FA log FB log add 0.5 mul exp def} % {/FC 10 ygu log FB log FA log sub 0.5 mul add exp % def} ifelse %identical to accoding to exponential equations %xgr i get xgu le {/FC FA 0.5 exp FB 0.5 exp mul def} % {/FC FB 0.5 exp % FA 0.5 exp div ygu mul % def} ifelse %alternativ xgr i get xgu le {/FC 10 FA log FB log add 0.5 mul exp def} {/FC 10 FB log FB log FA log sub 0.5 mul add exp def} ifelse %F11=10**(A3(X+A2))=F1/W2 %FAK=-10.*ln[1 + 1/[1 + W2*F11] % =-10.*ln[1 + 1/[1 + F1] %F31=10**(A4(X+A2+A6))=F3/W2 %FBK=-10.*ln[1 + 1/[1 + W2*F31] % =-10.*ln[1 + 1/[1 + F3] %FCK FAK FBK add 0.5 mul def /FAK 1 1 F1 add div 1 add ln -10. mul def /FBK 1 1 F3 add div 1 add ln -10. mul def /FCK FAK FBK add 0.5 mul def xgr i get log xs3 add xfact mul xchartl4 0 eq {xgr i get FC div log ys2 add yfact mul} if xchartl4 1 eq {FC 0.001 add log ys2 add yfact mul} if xchartl4 2 eq {FC 0.001 add ys2 add yfact mul} if xchartl4 3 eq {FCK 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 %iout=1 } if %xchartl4<=2 } if %xchart4=0,1,2,3 %} if %xchartl3=0,3 xchart 2 eq {%xchart=2 tfn [100] 0 setdash 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add xchartl4 1 le {log} if ys2 add yfact mul 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 [ ] 0 setdash } if %xchart=2 tfn xgu log xs3 add xfact mul ygu 0.001 add xchartl4 1 le {log} if ys2 add yfact mul moveto xgu log xs3 add xfact mul 0.01 xchartl4 1 le {log} if ys2 add yfact mul neg lineto stroke /iout 1 def iout 1 eq {%iout=1 tfb %xchartl3=1: CIELAB %xchartl3=2: CIEDE2000 %xchartl3=3: sRGB xchartl3 1 eq xchartl3 2 eq or xchartl3 3 eq or {%CIELAB, %CIEDE2000, %sRGB /x60D18 60. 18. div def %Y=18 for grey of 60cd/m**2 /Yuu xgu x60D18 mul def xchartl3 1 eq {/XN 1. 3.0 div def} if xchartl3 2 eq {/XN 1. 2.4 div def} if xchartl3 3 eq {/XN 1. 2.4 div def} if /XNM1 XN 1 sub def %xgu, ygu known for i=19, OK% or calculate with A1,A2,A3 for xgu? /Xu xgu log def /F1u 10 Xu A2 add A3 mul exp W2 mul def /F2u 1 F1u add 1 F1u add A7 add mul def /F3u 10 Xu A2 add A6 add A4 mul exp W2 mul def /F4u 1 F3u add 1 F3u add A7 add mul def /FAu F1u F2u 0.00001 add div A1 mul def /FBu F3u F4u 0.00001 add div A1 mul A5 mul def /FCu FAu FBu add 0.5 mul def /JM 1 def %j=0,1 not normalized, and normalized 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 j 16 mul add k16_32 add def %dL xgr i AVR1DA0A j1 get put /Ysu xgr i get x60D18 mul def xchartl4 0 eq {%xchartl4=0 dL xchartl3 1 eq {%CIELAB dY=1/[XN*116./100.*(Y/100)**XNM1] /ygr1 XN 116. mul 100. div Ysu 100 div XNM1 exp mul def ygr i 1 ygr1 div put i 0 eq {%i=0 surround /ygr1u XN 116. mul 100. div Yuu 100. div XNM1 exp mul def /ygru 1 ygr1u div def } if %i=0 surround } if %CIELAB xchartl3 2 eq {%sRGB_w dY=1/[XN*100./100.*(Y/100)**XNM1] /ygr1 XN 100. mul 100. div Ysu 100. div XNM1 exp mul def ygr i 1 ygr1 div put i 0 eq {%i=0 surround /ygr1u XN 100. mul 100. div Yuu 100. div XNM1 exp mul def /ygru 1 ygr1u div def } if %i=0 surround } if %sRGB_w xchartl3 3 eq {%sRGB_b dY=1/[XN*100./10.*(Y/10.)**XNM1] /ygr1 XN 100. mul 10. div Ysu 10. div XNM1 exp mul def ygr i 1 ygr1 div put i 0 eq {%i=0 surround /ygr1u XN 100. mul 10. div Yuu 10. div XNM1 exp mul def /ygru 1 ygr1u div def } if %i=0 surround } if %sRGB_b } if %xchartl4=0 dL xchartl4 1 eq xchartl4 2 eq or {%xchartl4=1,2 L/dL log and linear xchartl3 1 eq {%CIELAB dY=1/[XN*116./100.*(Y/100)**XNM1] /ygr1 XN 116. mul 100. div Ysu 100 div XNM1 exp mul def ygr i Ysu 1 ygr1 div div put i 0 eq {%i=0 surround /ygr1u XN 116. mul 100. div Yuu 100. div XNM1 exp mul def /ygru Yuu 1 ygr1u div div def } if %i=0 surround } if %CIELAB xchartl3 2 eq {%sRGB_w dY=1/[XN*100./100.*(Y/100.)**XNM1] /ygr1 XN 100. mul 100. div Ysu 100. div XNM1 exp mul def ygr i Ysu 1 ygr1 div div put i 0 eq {%i=0 surround /ygr1u XN 100. mul 100. div Yuu 100. div XNM1 exp mul def /ygru Yuu 1 ygr1u div div def } if %i=0 surround } if %sRGB_w xchartl3 3 eq {%sRGB_b dY=1/[XN*100./10.*(Y/10.)**XNM1] /ygr1 XN 100. mul 10. div Ysu 10. div XNM1 exp mul def ygr i Ysu 1 ygr1 div div put i 0 eq {%i=0 surround /ygr1u XN 100. mul 10. div Yuu 10. div XNM1 exp mul def /ygru Yuu 1 ygr1u div div def } if %i=0 surround } if %sRGB_b } if %xchartl4=1,2 L/dL log and linear xchartl4 3 eq {%xchartl4=3 T*/L* xchartl3 1 eq {%CIELAB L*=116(Y/100)**(1/3) - 16 ygr i 116 Ysu 100 div XN exp mul 16. sub put ygr i get 1.0 le {ygr i 1.0 put} if i 0 eq {%i=0 surround /ygru 116 Yuu 100 div XN exp mul 16. sub def ygru 1.0 le {/ygru 1.0 def} if def } if %i=0 surround } if %CIELAB xchartl3 2 eq {%sRGB_w L*=100.*(Y/100.)**(1/2.4) for _w=white ygr i 100. Ysu 100. div XN exp mul put i 0 eq {%i=0 surround /ygru 100. Yuu 100. div XN exp mul def } if %i=0 surround } if %sRGB_w xchartl3 3 eq {%sRGB_b L*=100.*(Y/10.)**(1/2.4) for _b=_blue ygr i 100. Ysu 10. div XN exp mul put i 0 eq {%i=0 surround /ygru 100. Yuu 10. div XN exp mul def } if %i=0 surround } if %sRGB_b } if %xchartl4=3 T*/L* j 1 eq {ygr i ygr i get ygu ygru div mul put} if } for %i=0,IM j 0 eq {tfb} if j 1 eq {tfy} if 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add xchartl4 1 le {log} if ys2 add yfact mul 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 xgu log xs3 add xfact mul ygu 0.001 add xchartl4 1 le {log} if ys2 add yfact mul moveto xgu log xs3 add xfact mul 0.01 xchartl4 1 le {log} if ys2 add yfact mul neg lineto stroke xchart 2 eq {%xchartl=2 tfn [100] 0 setdash 0 1 IM {/i exch def %i=0,IM xgr i get log xs3 add xfact mul ygr i get 0.001 add xchartl4 1 le {log} if ys2 add yfact mul 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 [ ] 0 setdash } if %xchart=2 } for %j=0,JM } if %xchartl3=1,3 %CIELAB, %CIEDE2000, %sRGB } 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 for 4 A4-plots for dL, L/dL (log + lin), T* showpage grestore } for %xchart=0,4 for 5 surround luminances %%Trailer