%!PS-Adobe-3.0 EPSF-3.0 UG420-7N
%%BoundingBox: 70 82 785 580

%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/UG42/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2014010112000)
  /ModDate (D:2014010112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SK {240 1 sub /Symbol FS} bind def
/SM {290 1 sub /Symbol FS} bind def
/SG {340 1 sub /Symbol FS} bind def

/ns {340 /Times-ISOL1 FS  show} bind def
/ks {340 /TimesI-ISOL1 FS  show} bind def
/bs {340 /TimesB-ISOL1 FS  show} bind def
/js {340 /TimesBI-ISOL1 FS  show} bind def
/ss {340 /Symbol FS  show} bind def
/is {290 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {290 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ip {290 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TK} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/ss2 {290 /Symbol FS  show TM} bind def
/is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {240 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%XCHA01.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setcmyk_olvcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

%for this file:
%For array: 2880=16*33*10
%               =%16 data * 18 colours * 10 series (2 presentation times)
/AVR2DA05 2880 array def

/AVR2DA05 [
 %DAAV_AVRMDA18.DAT
 %% CREATED BY DAAV_AVR2DA18.FOR, AND COPY DAAV_AVR2DA18.TXT DAAV_AVRMDA18.TXT
 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1          
 %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0                       
 %%           Programm:    AVR2DA18.FOR Output file: AVR2DA18.TXT 2014_01_03  
 %%000000   1         2         3         4         5        6          7     
 %%123456789012345678901234567890123456789012345678901234567890123456789012345
 %%410000    x      y      Y       L       delta_x delta_y delta_Y ObReJNSu___
% 18 18 0426 A    6.3 89                                                      
410014 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.1404E+03  1 3 1 0  14 0.4423E+02 0.2434E+01 0.7727E+01
410024 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.5948E+02  1 3 1 0  14 0.1874E+02 0.1709E+01 0.5426E+01
410034 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.2644E+02  1 3 1 0  14 0.8330E+01 0.6609E+00 0.2098E+01
410044 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.1231E+02  1 3 1 0  14 0.3878E+01 0.3410E+00 0.1082E+01
410054 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.7533E+01  1 3 1 0  14 0.2373E+01 0.1240E+00 0.3937E+00
410064 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.4197E+01  1 3 1 0  14 0.1322E+01 0.1296E+00 0.4115E+00
410074 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.5366E+01  1 3 1 0  14 0.1691E+01 0.9328E-01 0.2961E+00
410084 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.2274E+01  1 3 1 0  14 0.7163E+00 0.4037E-01 0.1281E+00
410094 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.1050E+01  1 3 1 0  14 0.3308E+00 0.1255E-01 0.3984E-01
410104 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.5420E+00  1 3 1 0  14 0.1707E+00 0.9175E-02 0.2913E-01
410114 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.3113E+00  1 3 1 0  14 0.9806E-01 0.4651E-02 0.1476E-01
410124 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.2098E+00  1 3 1 0  14 0.6608E-01 0.4685E-02 0.1487E-01
410134 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.2664E+00  1 3 1 0  14 0.8392E-01 0.5391E-02 0.1712E-01
410144 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.1547E+00  1 3 1 0  14 0.4872E-01 0.2537E-02 0.8054E-02
410154 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.1087E+00  1 3 1 0  14 0.3424E-01 0.2438E-02 0.7740E-02
410164 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.8539E-01  1 3 1 0  14 0.2690E-01 0.1788E-02 0.5678E-02
410174 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.6686E-01  1 3 1 0  14 0.2106E-01 0.8344E-03 0.2649E-02
410184 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.5825E-01  1 3 1 0  14 0.1835E-01 0.5419E-03 0.1720E-02
% 18 18 0226 Y    6.3 89                                                       
410014 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.4825E+02  1 3 1 0  14 0.1520E+02 0.3115E+00 0.9888E+00
410024 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.1841E+02  1 3 1 0  14 0.5798E+01 0.2732E+00 0.8672E+00
410034 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.9387E+01  1 3 1 0  14 0.2957E+01 0.2080E+00 0.6603E+00
410044 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.4722E+01  1 3 1 0  14 0.1488E+01 0.4398E-01 0.1396E+00
410054 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.2714E+01  1 3 1 0  14 0.8551E+00 0.3000E-01 0.9521E-01
410064 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.1630E+01  1 3 1 0  14 0.5135E+00 0.2658E-01 0.8439E-01
410074 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.1758E+01  1 3 1 0  14 0.5537E+00 0.1762E-01 0.5593E-01
410084 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.7660E+00  1 3 1 0  14 0.2413E+00 0.6115E-02 0.1941E-01
410094 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.3481E+00  1 3 1 0  14 0.1097E+00 0.5366E-02 0.1704E-01
410104 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.2359E+00  1 3 1 0  14 0.7430E-01 0.9118E-03 0.2894E-02
410114 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.1599E+00  1 3 1 0  14 0.5037E-01 0.2103E-02 0.6677E-02
410124 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.1299E+00  1 3 1 0  14 0.4090E-01 0.9034E-03 0.2868E-02
410134 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.1377E+00  1 3 1 0  14 0.4337E-01 0.2922E-02 0.9278E-02
410144 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.9161E-01  1 3 1 0  14 0.2886E-01 0.8815E-03 0.2799E-02
410154 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.7160E-01  1 3 1 0  14 0.2256E-01 0.8291E-03 0.2632E-02
410164 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.6227E-01  1 3 1 0  14 0.1962E-01 0.9133E-03 0.2901E-02
410174 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.5947E-01  1 3 1 0  14 0.1873E-01 0.6874E-03 0.2183E-02
410184 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.4719E-01  1 3 1 0  14 0.1486E-01 0.6508E-03 0.2066E-02
% 18 18 0226 B    6.3 89                                                       
410014 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.6193E+01  1 3 1 1  14 0.1951E+01 0.1156E+00 0.3670E+00
410024 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.2641E+01  1 3 1 1  14 0.8319E+00 0.5566E-01 0.1767E+00
410034 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.1411E+01  1 3 1 1  14 0.4447E+00 0.3038E-01 0.9644E-01
410044 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.7944E+00  1 3 1 1  14 0.2503E+00 0.4233E-02 0.1344E-01
410054 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.4972E+00  1 3 1 1  14 0.1566E+00 0.4954E-02 0.1572E-01
410064 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.3067E+00  1 3 1 1  14 0.9662E-01 0.8720E-02 0.2767E-01
410074 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.3708E+00  1 3 1 1  14 0.1168E+00 0.5721E-02 0.1816E-01
410084 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.1934E+00  1 3 1 1  14 0.6090E-01 0.2539E-02 0.8065E-02
410094 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1242E+00  1 3 1 1  14 0.3912E-01 0.1052E-02 0.3338E-02
410104 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.8845E-01  1 3 1 1  14 0.2786E-01 0.9693E-03 0.3077E-02
410114 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.6634E-01  1 3 1 1  14 0.2090E-01 0.7576E-03 0.2406E-02
410124 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.4820E-01  1 3 1 1  14 0.1518E-01 0.5443E-03 0.1728E-02
410134 0.1468 0.1914 0.1834E+00 0.5779E-01 0.0000 0.0000 0.5621E-01  1 3 1 1  14 0.1771E-01 0.5321E-03 0.1689E-02
410144 0.1468 0.1914 0.7245E-01 0.2282E-01 0.0000 0.0000 0.4560E-01  1 3 1 1  14 0.1437E-01 0.7848E-03 0.2491E-02
410154 0.1468 0.1914 0.3337E-01 0.1051E-01 0.0000 0.0000 0.4471E-01  1 3 1 1  14 0.1409E-01 0.1127E-02 0.3578E-02
410164 0.1468 0.1914 0.1798E-01 0.5663E-02 0.0000 0.0000 0.3982E-01  1 3 1 1  14 0.1255E-01 0.5698E-03 0.1809E-02
410174 0.1468 0.1914 0.9951E-02 0.3135E-02 0.0000 0.0000 0.4188E-01  1 3 1 1  14 0.1319E-01 0.1096E-02 0.3481E-02
410184 0.1468 0.1914 0.5592E-02 0.1761E-02 0.0000 0.0000 0.4129E-01  1 3 1 1  14 0.1301E-01 0.7097E-03 0.2254E-02
% 18 18 0226 R    6.3 89                                                       
410014 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.6206E+01  1 3 1 1  14 0.1955E+01 0.6659E-01 0.2114E+00
410024 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.2661E+01  1 3 1 1  14 0.8382E+00 0.5381E-01 0.1708E+00
410034 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.1278E+01  1 3 1 1  14 0.4026E+00 0.1874E-01 0.5949E-01
410044 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.6764E+00  1 3 1 1  14 0.2131E+00 0.9807E-02 0.3113E-01
410054 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.4042E+00  1 3 1 1  14 0.1274E+00 0.7142E-02 0.2267E-01
410064 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.2665E+00  1 3 1 1  14 0.8394E-01 0.3288E-02 0.1044E-01
410074 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.3521E+00  1 3 1 1  14 0.1109E+00 0.5074E-02 0.1611E-01
410084 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.1462E+00  1 3 1 1  14 0.4608E-01 0.3170E-02 0.1006E-01
410094 0.5838 0.3232 0.1534E+01 0.4831E+00 0.0000 0.0000 0.9639E-01  1 3 1 1  14 0.3036E-01 0.1297E-02 0.4118E-02
410104 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.6350E-01  1 3 1 1  14 0.2001E-01 0.1546E-02 0.4909E-02
410114 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.4309E-01  1 3 1 1  14 0.1358E-01 0.6775E-03 0.2151E-02
410124 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.3176E-01  1 3 1 1  14 0.1000E-01 0.5834E-03 0.1852E-02
410134 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.5964E-01  1 3 1 1  14 0.1878E-01 0.2109E-02 0.6694E-02
410144 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.3765E-01  1 3 1 1  14 0.1186E-01 0.6318E-03 0.2006E-02
410154 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.2990E-01  1 3 1 1  14 0.9416E-02 0.7771E-03 0.2467E-02
410164 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.2581E-01  1 3 1 1  14 0.8129E-02 0.1297E-03 0.4117E-03
410174 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.2516E-01  1 3 1 1  14 0.7927E-02 0.3122E-03 0.9908E-03
410184 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.2654E-01  1 3 1 1  14 0.8358E-02 0.4639E-03 0.1473E-02
% 18 18 AD26 G    6.3 89                                                       
410014 0.2552 0.4446 0.4029E+03 0.1269E+03 0.0000 0.0000 0.2119E+02  1 3 1 0  14 0.6675E+01 0.2432E+00 0.7719E+00
410024 0.2552 0.4446 0.1591E+03 0.5012E+02 0.0000 0.0000 0.8676E+01  1 3 1 0  14 0.2733E+01 0.4233E-01 0.1344E+00
410034 0.2552 0.4446 0.7329E+02 0.2309E+02 0.0000 0.0000 0.4596E+01  1 3 1 0  14 0.1448E+01 0.4295E-01 0.1363E+00
410044 0.2552 0.4446 0.3948E+02 0.1244E+02 0.0000 0.0000 0.2615E+01  1 3 1 0  14 0.8237E+00 0.9395E-01 0.2983E+00
410054 0.2552 0.4446 0.2185E+02 0.6884E+01 0.0000 0.0000 0.1355E+01  1 3 1 0  14 0.4269E+00 0.1494E-01 0.4742E-01
410064 0.2552 0.4446 0.1228E+02 0.3868E+01 0.0000 0.0000 0.9174E+00  1 3 1 0  14 0.2890E+00 0.1254E-01 0.3981E-01
410074 0.2552 0.4446 0.1548E+02 0.4876E+01 0.0000 0.0000 0.7632E+00  1 3 1 0  14 0.2404E+00 0.1769E-01 0.5616E-01
410084 0.2552 0.4446 0.6150E+01 0.1937E+01 0.0000 0.0000 0.3595E+00  1 3 1 0  14 0.1132E+00 0.7650E-02 0.2429E-01
410094 0.2552 0.4446 0.2886E+01 0.9090E+00 0.0000 0.0000 0.2415E+00  1 3 1 0  14 0.7608E-01 0.1750E-02 0.5555E-02
410104 0.2552 0.4446 0.1578E+01 0.4971E+00 0.0000 0.0000 0.1610E+00  1 3 1 0  14 0.5072E-01 0.1912E-02 0.6071E-02
410114 0.2552 0.4446 0.8903E+00 0.2804E+00 0.0000 0.0000 0.1157E+00  1 3 1 0  14 0.3643E-01 0.2526E-02 0.8018E-02
410124 0.2552 0.4446 0.4968E+00 0.1565E+00 0.0000 0.0000 0.8845E-01  1 3 1 0  14 0.2786E-01 0.1515E-02 0.4811E-02
410134 0.2552 0.4446 0.6128E+00 0.1930E+00 0.0000 0.0000 0.6753E-01  1 3 1 0  14 0.2127E-01 0.9276E-03 0.2945E-02
410144 0.2552 0.4446 0.2420E+00 0.7623E-01 0.0000 0.0000 0.5860E-01  1 3 1 0  14 0.1846E-01 0.6206E-03 0.1970E-02
410154 0.2552 0.4446 0.1115E+00 0.3511E-01 0.0000 0.0000 0.4011E-01  1 3 1 0  14 0.1264E-01 0.1216E-02 0.3860E-02
410164 0.2552 0.4446 0.6005E-01 0.1891E-01 0.0000 0.0000 0.3803E-01  1 3 1 0  14 0.1198E-01 0.8129E-03 0.2580E-02
410174 0.2552 0.4446 0.3324E-01 0.1047E-01 0.0000 0.0000 0.3427E-01  1 3 1 0  14 0.1080E-01 0.8280E-03 0.2629E-02
410184 0.2552 0.4446 0.1868E-01 0.5884E-02 0.0000 0.0000 0.2870E-01  1 3 1 0  14 0.9041E-02 0.6783E-03 0.2153E-02

 %DAAV_AVRMDA08.DAT NUR 6.3cm/m**2
 %% CREATED BY DAAV_AVR2DA08.FOR, AND COPY DAAV_AVR2DA08.TXT DAAV_AVRMDA08.TXT
 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1          
 %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0                       
 %%           Programm:    AVR2DA08.FOR Output file: AVR2DA08.TXT 2014_01_03  
 %%000000   1         2         3         4         5        6          7     
 %%123456789012345678901234567890123456789012345678901234567890123456789012345
 %%410000    x      y      Y       L       delta_x delta_y delta_Y ObReJNSu___
% 18 18 0401 A    6.3 89                                                       
410018 0.3442 0.4043 0.4232E+04 0.1333E+04 0.0000 0.0000 0.9690E+03  1 3 1 0  14 0.3052E+03 0.6645E+02 0.2110E+03
410028 0.3442 0.4043 0.1671E+04 0.5265E+03 0.0000 0.0000 0.3781E+03  1 3 1 0  14 0.1191E+03 0.1115E+02 0.3540E+02
410038 0.3442 0.4043 0.7699E+03 0.2425E+03 0.0000 0.0000 0.1089E+03  1 3 1 0  14 0.3431E+02 0.4474E+01 0.1421E+02
410048 0.3442 0.4043 0.4147E+03 0.1306E+03 0.0000 0.0000 0.3613E+02  1 3 1 0  14 0.1138E+02 0.2259E+01 0.7171E+01
410058 0.3442 0.4043 0.2296E+03 0.7231E+02 0.0000 0.0000 0.1960E+02  1 3 1 0  14 0.6175E+01 0.8004E+00 0.2541E+01
410068 0.3442 0.4043 0.1290E+03 0.4064E+02 0.0000 0.0000 0.1069E+02  1 3 1 0  14 0.3367E+01 0.3492E+00 0.1109E+01
410078 0.3442 0.4043 0.1626E+03 0.5122E+02 0.0000 0.0000 0.1943E+02  1 3 1 0  14 0.6120E+01 0.6487E+00 0.2059E+01
410088 0.3442 0.4043 0.6460E+02 0.2035E+02 0.0000 0.0000 0.6109E+01  1 3 1 0  14 0.1924E+01 0.1748E+00 0.5548E+00
410098 0.3442 0.4043 0.3031E+02 0.9548E+01 0.0000 0.0000 0.2432E+01  1 3 1 0  14 0.7660E+00 0.5810E-01 0.1844E+00
410108 0.3442 0.4043 0.1658E+02 0.5222E+01 0.0000 0.0000 0.1172E+01  1 3 1 0  14 0.3694E+00 0.2347E-01 0.7449E-01
410118 0.3442 0.4043 0.9352E+01 0.2946E+01 0.0000 0.0000 0.5718E+00  1 3 1 0  14 0.1801E+00 0.1051E-01 0.3336E-01
410128 0.3442 0.4043 0.5219E+01 0.1644E+01 0.0000 0.0000 0.3379E+00  1 3 1 0  14 0.1065E+00 0.5319E-02 0.1688E-01
410138 0.3442 0.4043 0.6437E+01 0.2028E+01 0.0000 0.0000 0.5790E+00  1 3 1 0  14 0.1824E+00 0.1277E-01 0.4053E-01
410148 0.3442 0.4043 0.2542E+01 0.8008E+00 0.0000 0.0000 0.3308E+00  1 3 1 0  14 0.1042E+00 0.5160E-02 0.1639E-01
410158 0.3442 0.4043 0.1171E+01 0.3688E+00 0.0000 0.0000 0.2543E+00  1 3 1 0  14 0.8012E-01 0.6653E-02 0.2112E-01
410168 0.3442 0.4043 0.6307E+00 0.1987E+00 0.0000 0.0000 0.2358E+00  1 3 1 0  14 0.7426E-01 0.3461E-02 0.1099E-01
410178 0.3442 0.4043 0.3492E+00 0.1100E+00 0.0000 0.0000 0.2005E+00  1 3 1 0  14 0.6315E-01 0.3368E-02 0.1069E-01
410188 0.3442 0.4043 0.1962E+00 0.6181E-01 0.0000 0.0000 0.1817E+00  1 3 1 0  14 0.5724E-01 0.3769E-02 0.1196E-01
% 18 18 0201 Y    6.3 89                                                       
410018 0.4500 0.4693 0.1138E+04 0.3585E+03 0.0000 0.0000 0.3580E+03  1 3 1 0  14 0.1128E+03 0.2577E+01 0.8181E+01
410028 0.4500 0.4693 0.4494E+03 0.1416E+03 0.0000 0.0000 0.6709E+02  1 3 1 0  14 0.2113E+02 0.1478E+01 0.4694E+01
410038 0.4500 0.4693 0.2070E+03 0.6521E+02 0.0000 0.0000 0.2730E+02  1 3 1 0  14 0.8597E+01 0.1542E+01 0.4893E+01
410048 0.4500 0.4693 0.1115E+03 0.3513E+02 0.0000 0.0000 0.1093E+02  1 3 1 0  14 0.3445E+01 0.3964E+00 0.1259E+01
410058 0.4500 0.4693 0.6173E+02 0.1944E+02 0.0000 0.0000 0.5043E+01  1 3 1 0  14 0.1589E+01 0.9898E-01 0.3142E+00
410068 0.4500 0.4693 0.3469E+02 0.1093E+02 0.0000 0.0000 0.2453E+01  1 3 1 0  14 0.7725E+00 0.7002E-01 0.2223E+00
410078 0.4500 0.4693 0.4373E+02 0.1377E+02 0.0000 0.0000 0.5957E+01  1 3 1 0  14 0.1877E+01 0.1346E+00 0.4275E+00
410088 0.4500 0.4693 0.1737E+02 0.5472E+01 0.0000 0.0000 0.1465E+01  1 3 1 0  14 0.4613E+00 0.3333E-01 0.1058E+00
410098 0.4500 0.4693 0.8151E+01 0.2567E+01 0.0000 0.0000 0.6265E+00  1 3 1 0  14 0.1974E+00 0.9051E-02 0.2873E-01
410108 0.4500 0.4693 0.4458E+01 0.1404E+01 0.0000 0.0000 0.4173E+00  1 3 1 0  14 0.1314E+00 0.1021E-02 0.3240E-02
410118 0.4500 0.4693 0.2515E+01 0.7921E+00 0.0000 0.0000 0.3033E+00  1 3 1 0  14 0.9555E-01 0.4777E-02 0.1516E-01
410128 0.4500 0.4693 0.1403E+01 0.4420E+00 0.0000 0.0000 0.2490E+00  1 3 1 0  14 0.7841E-01 0.5257E-02 0.1669E-01
410138 0.4500 0.4693 0.1731E+01 0.5452E+00 0.0000 0.0000 0.3426E+00  1 3 1 0  14 0.1079E+00 0.1130E-01 0.3589E-01
410148 0.4500 0.4693 0.6836E+00 0.2153E+00 0.0000 0.0000 0.2512E+00  1 3 1 0  14 0.7914E-01 0.6754E-02 0.2144E-01
410158 0.4500 0.4693 0.3149E+00 0.9918E-01 0.0000 0.0000 0.2089E+00  1 3 1 0  14 0.6581E-01 0.3725E-02 0.1182E-01
410168 0.4500 0.4693 0.1696E+00 0.5343E-01 0.0000 0.0000 0.2120E+00  1 3 1 0  14 0.6678E-01 0.2228E-02 0.7071E-02
410178 0.4500 0.4693 0.9389E-01 0.2958E-01 0.0000 0.0000 0.2008E+00  1 3 1 0  14 0.6323E-01 0.3561E-02 0.1131E-01
410188 0.4500 0.4693 0.5276E-01 0.1662E-01 0.0000 0.0000 0.1867E+00  1 3 1 0  14 0.5881E-01 0.5114E-02 0.1623E-01
% 18 12 0201 B    6.3 89                                                       
410018 0.1468 0.1914 0.1206E+03 0.3799E+02 0.0000 0.0000 0.2019E+02  1 3 1 1  14 0.6359E+01 0.5155E+00 0.1636E+01
410028 0.1468 0.1914 0.4763E+02 0.1500E+02 0.0000 0.0000 0.7279E+01  1 3 1 1  14 0.2293E+01 0.1342E+00 0.4261E+00
410038 0.1468 0.1914 0.2194E+02 0.6911E+01 0.0000 0.0000 0.3167E+01  1 3 1 1  14 0.9973E+00 0.3783E-01 0.1201E+00
410048 0.1468 0.1914 0.1182E+02 0.3723E+01 0.0000 0.0000 0.1309E+01  1 3 1 1  14 0.4124E+00 0.2149E-01 0.6820E-01
410058 0.1468 0.1914 0.6542E+01 0.2061E+01 0.0000 0.0000 0.7240E+00  1 3 1 1  14 0.2281E+00 0.2205E-01 0.6999E-01
410068 0.1468 0.1914 0.3677E+01 0.1158E+01 0.0000 0.0000 0.4026E+00  1 3 1 1  14 0.1268E+00 0.1436E-01 0.4558E-01
410078 0.1468 0.1914 0.4634E+01 0.1460E+01 0.0000 0.0000 0.6384E+00  1 3 1 1  14 0.2011E+00 0.1226E-01 0.3892E-01
410088 0.1468 0.1914 0.1841E+01 0.5800E+00 0.0000 0.0000 0.2733E+00  1 3 1 1  14 0.8608E-01 0.3838E-02 0.1219E-01
410098 0.1468 0.1914 0.8639E+00 0.2721E+00 0.0000 0.0000 0.1984E+00  1 3 1 1  14 0.6251E-01 0.8717E-02 0.2767E-01
410108 0.1468 0.1914 0.4725E+00 0.1488E+00 0.0000 0.0000 0.1673E+00  1 3 1 1  14 0.5269E-01 0.3392E-02 0.1077E-01
410118 0.1468 0.1914 0.2665E+00 0.8396E-01 0.0000 0.0000 0.1270E+00  1 3 1 1  14 0.4001E-01 0.3724E-02 0.1182E-01
410128 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410138 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410148 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410158 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410168 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410178 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
410188 0.1468 0.1914 0.1487E+00 0.4685E-01 0.0000 0.0000 0.1344E+00  1 3 1 1  14 0.4233E-01 0.3433E-02 0.1090E-01
% 18 18 0201 R    6.3 89                                                       
410018 0.5838 0.3232 0.2141E+03 0.6745E+02 0.0000 0.0000 0.2061E+02  1 3 1 1  14 0.6491E+01 0.5694E+00 0.1808E+01
410028 0.5838 0.3232 0.8457E+02 0.2664E+02 0.0000 0.0000 0.8381E+01  1 3 1 1  14 0.2641E+01 0.7158E-01 0.2272E+00
410038 0.5838 0.3232 0.3895E+02 0.1227E+02 0.0000 0.0000 0.3800E+01  1 3 1 1  14 0.1197E+01 0.7391E-01 0.2345E+00
410048 0.5838 0.3232 0.2098E+02 0.6610E+01 0.0000 0.0000 0.1423E+01  1 3 1 1  14 0.4481E+00 0.4579E-01 0.1454E+00
410058 0.5838 0.3232 0.1162E+02 0.3659E+01 0.0000 0.0000 0.7178E+00  1 3 1 1  14 0.2261E+00 0.1908E-01 0.6056E-01
410068 0.5838 0.3232 0.6527E+01 0.2056E+01 0.0000 0.0000 0.3923E+00  1 3 1 1  14 0.1236E+00 0.5542E-02 0.1759E-01
410078 0.5838 0.3232 0.8228E+01 0.2592E+01 0.0000 0.0000 0.1539E+01  1 3 1 1  14 0.4845E+00 0.3164E-01 0.1004E+00
410088 0.5838 0.3232 0.3269E+01 0.1030E+01 0.0000 0.0000 0.4752E+00  1 3 1 1  14 0.1497E+00 0.8144E-02 0.2585E-01
410098 0.5838 0.3232 0.1534E+01 0.4831E+00 0.0000 0.0000 0.2478E+00  1 3 1 1  14 0.7805E-01 0.3179E-02 0.1009E-01
410108 0.5838 0.3232 0.8388E+00 0.2642E+00 0.0000 0.0000 0.1543E+00  1 3 1 1  14 0.4858E-01 0.2743E-02 0.8708E-02
410118 0.5838 0.3232 0.4732E+00 0.1491E+00 0.0000 0.0000 0.1429E+00  1 3 1 1  14 0.4501E-01 0.1821E-02 0.5782E-02
410128 0.5838 0.3232 0.2641E+00 0.8318E-01 0.0000 0.0000 0.1293E+00  1 3 1 1  14 0.4072E-01 0.1263E-02 0.4009E-02
410138 0.5838 0.3232 0.3257E+00 0.1026E+00 0.0000 0.0000 0.1231E+00  1 3 1 1  14 0.3879E-01 0.4180E-02 0.1327E-01
410148 0.5838 0.3232 0.1286E+00 0.4052E-01 0.0000 0.0000 0.1324E+00  1 3 1 1  14 0.4171E-01 0.1998E-02 0.6344E-02
410158 0.5838 0.3232 0.5925E-01 0.1866E-01 0.0000 0.0000 0.1287E+00  1 3 1 1  14 0.4054E-01 0.4778E-02 0.1517E-01
410168 0.5838 0.3232 0.3192E-01 0.1005E-01 0.0000 0.0000 0.1312E+00  1 3 1 1  14 0.4134E-01 0.3160E-02 0.1003E-01
410178 0.5838 0.3232 0.1767E-01 0.5565E-02 0.0000 0.0000 0.1173E+00  1 3 1 1  14 0.3697E-01 0.4552E-02 0.1446E-01
410188 0.5838 0.3232 0.9928E-02 0.3127E-02 0.0000 0.0000 0.1117E+00  1 3 1 1  14 0.3519E-01 0.4525E-02 0.1436E-01
% 18 18 AD01 G    6.3 89                                                       
410018 0.2552 0.4446 0.4029E+03 0.1269E+03 0.0000 0.0000 0.7063E+02  1 3 1 0  14 0.2225E+02 0.1304E+01 0.4141E+01
410028 0.2552 0.4446 0.1591E+03 0.5012E+02 0.0000 0.0000 0.1980E+02  1 3 1 0  14 0.6238E+01 0.3039E+00 0.9646E+00
410038 0.2552 0.4446 0.7329E+02 0.2309E+02 0.0000 0.0000 0.7890E+01  1 3 1 0  14 0.2485E+01 0.9405E-01 0.2986E+00
410048 0.2552 0.4446 0.3948E+02 0.1244E+02 0.0000 0.0000 0.4147E+01  1 3 1 0  14 0.1306E+01 0.1245E+00 0.3952E+00
410058 0.2552 0.4446 0.2185E+02 0.6884E+01 0.0000 0.0000 0.2037E+01  1 3 1 0  14 0.6415E+00 0.2602E-01 0.8259E-01
410068 0.2552 0.4446 0.1228E+02 0.3868E+01 0.0000 0.0000 0.8777E+00  1 3 1 0  14 0.2765E+00 0.5557E-02 0.1764E-01
410078 0.2552 0.4446 0.1548E+02 0.4876E+01 0.0000 0.0000 0.1668E+01  1 3 1 0  14 0.5254E+00 0.5088E-01 0.1615E+00
410088 0.2552 0.4446 0.6150E+01 0.1937E+01 0.0000 0.0000 0.5103E+00  1 3 1 0  14 0.1607E+00 0.9218E-02 0.2926E-01
410098 0.2552 0.4446 0.2886E+01 0.9090E+00 0.0000 0.0000 0.3583E+00  1 3 1 0  14 0.1129E+00 0.3924E-02 0.1246E-01
410108 0.2552 0.4446 0.1578E+01 0.4971E+00 0.0000 0.0000 0.2461E+00  1 3 1 0  14 0.7751E-01 0.7864E-02 0.2496E-01
410118 0.2552 0.4446 0.8903E+00 0.2804E+00 0.0000 0.0000 0.2121E+00  1 3 1 0  14 0.6680E-01 0.3724E-02 0.1182E-01
410128 0.2552 0.4446 0.4968E+00 0.1565E+00 0.0000 0.0000 0.1610E+00  1 3 1 0  14 0.5072E-01 0.2592E-02 0.8229E-02
410138 0.2552 0.4446 0.6128E+00 0.1930E+00 0.0000 0.0000 0.2378E+00  1 3 1 0  14 0.7492E-01 0.6336E-02 0.2011E-01
410148 0.2552 0.4446 0.2420E+00 0.7623E-01 0.0000 0.0000 0.2097E+00  1 3 1 0  14 0.6605E-01 0.3027E-02 0.9608E-02
410158 0.2552 0.4446 0.1115E+00 0.3511E-01 0.0000 0.0000 0.2011E+00  1 3 1 0  14 0.6336E-01 0.3805E-02 0.1208E-01
410168 0.2552 0.4446 0.6005E-01 0.1891E-01 0.0000 0.0000 0.2022E+00  1 3 1 0  14 0.6368E-01 0.1096E-02 0.3480E-02
410178 0.2552 0.4446 0.3324E-01 0.1047E-01 0.0000 0.0000 0.2096E+00  1 3 1 0  14 0.6602E-01 0.7244E-02 0.2300E-01
410188 0.2552 0.4446 0.1868E-01 0.5884E-02 0.0000 0.0000 0.1841E+00  1 3 1 0  14 0.5798E-01 0.1602E-02 0.5085E-02

] def

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetaMD pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

gsave
/xchartl xchart def

%0 1 3 {/xchart exch def %xchart=0,2 1x3 plots
/xchart xchart def %0,1,2 for plots log dL, log L/dL, L/dL
gsave

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
%75 85 moveto
%lanind cvishow (-) show
%colorm cvishow
%deintp cvishow
%xcolor cvishow
%xchart cvishow
%pchart cvishow
%colsep cvishow (-L) show pmetam cvishow

5 /Times-ISOL1 FS
175 85 moveto (UG420-7N) show
%xchart 0 eq {(R) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate
0.01 MM dup scale
30 setlinewidth

/IMDAT 16 array def
/IMDAT %data of curve, 6, 12 or 18 values
[17 17 17 17 17
 17 17 17 17 17
 17 17 17 17 17 17] def

20 setlinewidth
0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

0 1 15 {/xchartl   exch def %xchartl=0,04
gsave

xchartl 00 ge
xchartl 04 le and {/MDK 2 def} if
xchartl 05 ge
xchartl 09 le and {/MDK 2 def} if
xchartl 10 ge
xchartl 14 le and {/MDK 2 def} if
xchartl 15 eq     {/MDK 2 def} if

/MD MDK def

/xchartl5 xchart xchart 5 idiv 5 mul sub def

  xchartl   0 eq {  100 13000 translate} if
  xchartl   1 eq { 6100 13000 translate} if
  xchartl   2 eq {  100 08750 translate} if
  xchartl   3 eq { 6100 08750 translate} if

  xchartl   4 eq {  100  4500 translate} if
  xchartl   5 eq { 6100  4500 translate} if
  xchartl   6 eq {  100  0250 translate} if
  xchartl   7 eq { 6100  0250 translate} if

  xchartl   8 eq {13500 13000 translate} if
  xchartl   9 eq {19500 13000 translate} if
  xchartl   10 eq {13500 08750 translate} if
  xchartl   11 eq {19500 08750 translate} if

  xchartl   12 eq {13500  4500 translate} if
  xchartl   13 eq {19500  4500 translate} if
  xchartl   14 eq {13500  0250 translate} if
  xchartl   15 eq {19500  0250 translate} if

/xwidth 5400 def
/ywidth 4000 def
0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau

150 /Times-ISOL1 FS
0 setgray
300 -150 moveto
xchartl 7 le {(UG420-) show}
             {(UG421-) 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
(N) show %N
(_) show xchart 1 add cvishow

0 setlinewidth
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath clip
20 setlinewidth

0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black

%********************************************
/xt0  50 def
/yt0 3750 def
/xt1 1000 def
/xt2 1250 def
/ytd  250 def

xt0 yt0 moveto TBM tfw
xchart 0 eq {%xchart=0
TBM (log ) show SM (D) show
TBIM (L  ) show TBM
(luminance difference) showen
(Leuchtdichte\255Diffenz\255) showde
xt1 yt0 ytd 1 mul sub moveto
TBM (threshold) showen
TBM (renzschwelle) showde
} if %xchart=0

xchart 1 eq {%xchart=1
TBM (log\050) show TBIM (L/) show SM (D) show
TBIM (L) show TBM (\051 ) show
(luminance contrast) showen
(Leuchtdichte\255Kontrast\255) showde
xt2 yt0 ytd 1 mul sub moveto
TBM (sensitivity threshold) showen
TBM (Empfindlichkeitsschwelle) showde
} if %xchart=1

xchart 2 eq {%xchart=2
TBIM (L/) show SM (D) show
TBIM (L  ) show TBM
(luminance contrast) showen
(Leuchtdichte\255Kontrast\255) showde
xt1 150 sub yt0 ytd 1 mul sub moveto
TBM (sensitivity threshold) showen
TBM (Empfindlichkeitsschwelle) showde
} if %xchart=2

xchart 3 eq {%xchart=3
TBIM (T*  ) show TBM
(luminance difference) showen
(Leuchtdichte\255Diffenz\255) showde
xt0 400 add yt0 ytd 1 mul sub moveto
TBM (threshold sum) showen
TBM (renzschwellensumme) showde
} if %xchart=3

tfn
xchart 0 eq {/xa1 2500 def}   %for tables
          {/xa1  200 def} ifelse

/ishowg {0 -50 rmoveto TBM (g) show 0  50 rmoveto} def
/ishowp {0 -50 rmoveto TBM (p) show 0  50 rmoveto} def

newpath
/xa2 3950 def
/ya2 yt0 100 sub def
xa2 100 sub ya2 130 add 50 00 360 arc fill
newpath
tfw
xa2 ya2 moveto TBIK (L) show ishowg
TBK
(=) ns
xchartl 00 ge
xchartl 04 le and {(6,3cd/m) ns4 (2) es4} if
xchartl 05 ge
xchartl 09 le and {(6,3cd/m) ns4 (2) es4} if
xchartl 10 ge
xchartl 14 le and {(6,3cd/m) ns4 (2) es4} if
xchartl 15 eq {(6,3cd/m) ns4 (2) es4} if

tfw
550 400 translate
50 setlinewidth
 0 0 moveto  700 6 mul 0 rlineto  stroke
 0 0 moveto  0 700 4 mul rlineto  stroke
tfg
[100] 0 setdash
2.885 700 mul 0 moveto 5.447 700 mul 0 lineto stroke
[ ] 0 setdash
tfw

TBM
/tx [(-3) (-2) (-1) (  0) (  1) (  2) (  3)] def
/ty [(-2) (-1) (  0) (  1) (  2) (  3)] def
/ty5 [(  0) (10) (20) (30) (40) (50) (60) (70)] def
/ty6 [(  0) (20) (40) (60) (80) (100) (120) (140)] def

%!x-Achse: 1 log-Einheiten = 700 Skalen-Einheiten

0 1 5 {/i exch def
       /ixt { -250 i 0700 mul add} def
       /ixl {  000 i 0700 mul add} def
        ixt -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for

%!y-Achse: 1 log-Einheiten = 700 Skalen-Einheiten

0 1 4 {/i exch def
       /iyt {-120 i 0700 mul add} def
       /iyl { 000 i 0700 mul add} def
       xchart 1 le {%xchart<=1
        -450 iyt moveto ty i get exec show
                 } if %xchart<=1
       xchart 2 eq {%xchart=2
        -450 iyt moveto ty5 i get exec show
                 } if %xchart=2
       xchart 3 eq {%xchart=3
        -450 iyt moveto ty6 i get exec show
                 } if %xchart=3

         -75 iyl moveto 150 0 rlineto stroke } for

 50 setlinewidth

3900  -250 moveto (x) TBIM tfw show
                 20 0 rmoveto
                 (=) TBM tfw show 20 0 rmoveto
                 (log) TBM tfw show 30 0 rmoveto
                 TBIM (L) show

/ishow {0 -50 rmoveto TBM show 0  50 rmoveto} def
/eshow {0 100 rmoveto TBM show 0 -100 rmoveto} def
/ip {0 50 rmoveto TBM (\267) show 0 -50 rmoveto} def

/A1 33 array def %for 11 data sets for 3 illuminants (630, 63, 6.3cd/m**2)
/A2 33 array def
/A3 33 array def
/ALPHA 33 array def

%produced with RUN/OUTPUT=UK42_HPPOT5M2_18.LIS output UK42_HPPOT5M2_18.FOR
%wait after process start about 3 minutes, use TYPE UK42_HPPOT5M2_18.LIS
%Least square fit of 3 parameters A1 to A3, stop with data of AD 26 R

 %UK42_HPPOT5M2_18.FOR, IN/OUT UK42_HPPOT5M2_18.DAT'/.TXT/.LIS
 % % 'uk42'AUAV_HPPOT5M2_18.DAT <- 'uk22'AUAV_HPHYP318_L1.DAT <- DAAV_AVRMDA18
 % %% CREATED BY DAAV_AVR2DA18.FOR, AND COPY DAAV_AVR2DA18.TXT DAAV_AVRMDA18.T
 % %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1        
 % %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0                     
 % %%           Programm:    AVR2DA18.FOR Output file: AVR2DA18.TXT 2014_01_03
 % %%000000   1         2         3         4         5        6          7   
 % %%1234567890123456789012345678901234567890123456789012345678901234567890123
 % %%410000    x      y      Y       L       delta_x delta_y delta_Y ObReJNSu_
 %EQUATIONS USED
 %XYI=A1+A3*Y(I)
 %F(I)=XYI**A2
 %A(I,1)=A2*XYI**(A2-1)*A1
 %C     d/dx a**x = a**x * ln(a)
 %A(I,2)=XYI**A2*ALOG(XYI)
 %A(I,3)=A2*XYI**(A2-1.)*Y(I)
 %A(I,JMP)=log[V(I)]-log[F(I)]
 %
 % 18 18 0426 A    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  0  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.1896E+00
 %END ALPHA=  0.1015E-02
 ALPHA   0   0.1015E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 % -0.5540E-05  0.9849E-04 -0.4140E-04 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.1994E-01  0.1015E+01  0.3211E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  0 def
 /X0K0 10 array def
 /X0K0 [
   0.1994E-01  0.1015E+01  0.3211E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 0226 Y    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  1  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.1237E+00
 %END ALPHA=  0.1110E-02
 ALPHA   1   0.1110E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 % -0.1396E-04  0.9837E-04 -0.6430E-04 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.1689E-01  0.9957E+00  0.4234E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  1 def
 /X0K1 10 array def
 /X0K1 [
   0.1689E-01  0.9957E+00  0.4234E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 0226 B    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  2  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.1038E+00
 %END ALPHA=  0.3920E-03
 ALPHA   2   0.3920E-03 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 % -0.1206E-04 -0.9852E-04 -0.4169E-04 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.6135E-02  0.8590E+00  0.5446E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  2 def
 /X0K2 10 array def
 /X0K2 [
   0.6135E-02  0.8590E+00  0.5446E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 0226 R    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  3  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.2870E+00
 %END ALPHA=  0.2703E-02
 ALPHA   3   0.2703E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 % -0.1079E-04 -0.9910E-04 -0.3785E-04 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.4992E-02  0.9007E+00  0.2945E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  3 def
 /X0K3 10 array def
 /X0K3 [
   0.4992E-02  0.9007E+00  0.2945E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 AD26 G    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  4  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.1209E+00
 %END ALPHA=  0.3338E-02
 ALPHA   4   0.3338E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 % -0.1225E-04 -0.9876E-04 -0.2501E-04 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.6768E-02  0.9195E+00  0.5891E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  4 def
 /X0K4 10 array def
 /X0K4 [
   0.6768E-02  0.9195E+00  0.5891E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def

 %UK42_HPPOT5M2_08.FOR, IN/OUT UK42_HPPOT5M2_08.DAT'/.TXT/.LIS
 % %'uk42'AUAV_HPPOT5M2_08.DAT <- 'uk22'AUAV_HPHYP308_L1.DAT <- DAAV_AVRMDA08.
 % %% CREATED BY DAAV_AVR2DA08.FOR, AND COPY DAAV_AVR2DA08.TXT DAAV_AVRMDA08.T
 % %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1        
 % %% Steering: (IEDAT(I),I=1,5),M1,M2,M3,Ma,Mi 0 0 0 1 0                     
 % %%           Programm:    AVR2DA08.FOR Output file: AVR2DA08.TXT 2014_01_03
 % %%000000   1         2         3         4         5        6          7   
 % %%1234567890123456789012345678901234567890123456789012345678901234567890123
 % %%410000    x      y      Y       L       delta_x delta_y delta_Y ObReJNSu_
 %EQUATIONS USED
 %XYI=A1+A3*Y(I)
 %F(I)=XYI**A2
 %A(I,1)=A2*XYI**(A2-1)*A1
 %C     d/dx a**x = a**x * ln(a)
 %A(I,2)=XYI**A2*ALOG(XYI)
 %A(I,3)=A2*XYI**(A2-1.)*Y(I)
 %A(I,JMP)=log[V(I)]-log[F(I)]
 %
 % 18 18 0401 A    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  0  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.3961E-01
 %END ALPHA=  0.4869E-02
 ALPHA   5   0.4869E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 %  0.2490E-04  0.9857E-04 -0.7309E-05 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.1108E+00  0.1288E+01  0.6471E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  5 def
 /X0K5 10 array def
 /X0K5 [
   0.1108E+00  0.1288E+01  0.6471E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 0201 Y    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  1  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.3828E-01
 %END ALPHA=  0.4419E-02
 ALPHA   6   0.4419E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 %  0.2709E-04  0.9875E-04 -0.5952E-05 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.1359E+00  0.1387E+01  0.7267E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  6 def
 /X0K6 10 array def
 /X0K6 [
   0.1359E+00  0.1387E+01  0.7267E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 12 0201 B    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  2  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.7288E-02
 %END ALPHA=  0.8672E-03
 ALPHA   7   0.8672E-03 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 %  0.1620E-04  0.9890E-04  0.5193E-05 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.7293E-01  0.1247E+01  0.1201E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  7 def
 /X0K7 10 array def
 /X0K7 [
   0.7293E-01  0.1247E+01  0.1201E+00  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 0201 R    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  3  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.1518E-01
 %END ALPHA=  0.1120E-01
 ALPHA   8   0.1120E-01 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 %  0.1425E-04  0.9846E-04 -0.9758E-05 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.4703E-01  0.1081E+01  0.8380E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  8 def
 /X0K8 10 array def
 /X0K8 [
   0.4703E-01  0.1081E+01  0.8380E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def
 %
 % 18 18 AD01 G    6.3 89,LM0,KX,JM,JNR,IM: 40 99  3  4  18
 %
 %LM0,KX,JM,(%BEG X0K(J),J=1,10): 40 99  3
 %  0.3050E-01  0.9600E+00  0.1000E+00  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %BEG ALPHA=  0.2430E-01
 %END ALPHA=  0.2620E-02
 ALPHA   9   0.2620E-02 put
 %
 %LM0,KX,JM,(%END X(J),J=1,10): 40 99  3
 %  0.2760E-04  0.9845E-04 -0.3742E-05 -0.1000E+01  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %
 %LM0,KX,JM,(%END X0K(J),J=1,10): 40 99  3
 %  0.1154E+00  0.1322E+01  0.8188E-01  0.1000E+00  0.0000E+00
 %  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 %END /JNR  9 def
 /X0K9 10 array def
 /X0K9 [
   0.1154E+00  0.1322E+01  0.8188E-01  0.1000E+00  0.0000E+00
   0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
 ] def

/X0K 10 array def

0 1 9 {/j exch def %j=0,9

xchartl 00 eq {X0K j X0K0  j get put} if %0426 A 6.3
xchartl 01 eq {X0K j X0K1  j get put} if %0226 Y
xchartl 02 eq {X0K j X0K2  j get put} if %0226 B
xchartl 03 eq {X0K j X0K3  j get put} if %0226 R
xchartl 04 eq {X0K j X0K4  j get put} if %AD26 G

xchartl 05 eq {X0K j X0K5  j get put} if %0401 A 6.3
xchartl 06 eq {X0K j X0K6  j get put} if %0201 Y
xchartl 07 eq {X0K j X0K7  j get put} if %0201 B
xchartl 08 eq {X0K j X0K8  j get put} if %0201 R
xchartl 09 eq {X0K j X0K9  j get put} if %AD01 G

xchartl 10 eq {X0K j X0K0 j get put} if %0426/01 A 6.3
xchartl 11 eq {X0K j X0K1 j get put} if %0226/01 Y
xchartl 12 eq {X0K j X0K2 j get put} if %0226/01 B
xchartl 13 eq {X0K j X0K3 j get put} if %0226/01 R
xchartl 14 eq {X0K j X0K4 j get put} if %AD26/01 G

xchartl 15 eq {X0K j X0K0  j get put} if %0426 A/B 6.3

      } for %j=0,9

/A1 X0K 0 get def
/A2 X0K 1 get def
/A3 X0K 2 get def
/A4 X0K 3 get def
/A5 X0K 4 get def
/A6 X0K 5 get def
/A7 X0K 6 get def
/A8 X0K 7 get def
/A9 X0K 8 get def

/yd 300 def
%xchart 0 eq
%xchart 2 eq or
%xchart 3 eq or {%xchart=0,2,3
%table 1 left
/xt10  200 def
/xt11  500 def
/xt12 1100 def
/yt10 2750 def
%table 2 right
/xt20 1800 def
/yt20 2350 def
%} if %xchart=0,2

%xchart 1 eq {%xchart=1
%table 1 left
%/xt10 200 def %3200 def
%/xt11 3500 def
%/xt12 4100 def
%/yt10 2050 def
%table 2 left
%/xt20  200 def
%/yt20 2000 def
%} if %xchart=1
           
xt10 yt10 yd 0 mul sub moveto
xchartl 00 eq {(04 26s A 6,3) show} if
xchartl 01 eq {(02 26s Y 6,3) show} if
xchartl 02 eq {(02 26s B 6,3) show} if
xchartl 03 eq {(02 26s R 6,3) show} if
xchartl 04 eq {(AD 26s G 6,3) show} if

xchartl 05 eq {(04 0,1s A 6,3) show} if
xchartl 06 eq {(02 0,1s Y 6,3) show} if
xchartl 07 eq {(02 0,1s B 6,3) show} if
xchartl 08 eq {(02 0,1s R 6,3) show} if
xchartl 09 eq {(AD 0,1s G 6,3) show} if

xchartl 10 eq {(04 26&0,1s A 6,3) show} if
xchartl 11 eq {(02 26&0,1s Y 6,3) show} if
xchartl 12 eq {(02 26&0,1s B 6,3) show} if 
xchartl 13 eq {(02 26&0,1s R 6,3) show} if
xchartl 14 eq {(AD 26&0,1s G 6,3) show} if

xchartl 15 eq {(04 26s A/B 6,3) show} if %xchartl=15

(cd/m) show (2) eshow
(; pot3) showen
(; pot3) showde

tfn
xt10 yt10 yd 1.3 mul sub moveto
xchartl5 0 eq {%(dL=[A1+A3*X]**A2
               (D) ss2 (L) js2 ( = [) bs2 (A) js2 (1) is2
                ( + A) js2 (3) is2 ip2
                (L) js2 ( ]) bs2 (t) es2
              } if
xchartl5 1 eq {%(L/dL=L/[A1+A3*X]**A2) show
               (log\050) bs2 (L/) js2 (D) ss2 (L) js2 (\051 = ) bs2
               (L) js2 ( / [) bs2
               (A) js2 (1) is2
               ( + A) js2 (3) is2 ip2
               (L) js2 ( ]) bs2 (t) es2
              } if
xchartl5 2 eq {%(L/dL=L/dL=L/[A1+A3*X]**A2) show
               (L/) js2 (D) ss2 (L) js2 ( = ) bs2
               (L) js2 ( / [) bs2
               (A) js2 (1) is2
               ( + A) js2 (3) is2 ip2
               (L) js2 ( ]) bs2 (t) es2
              } if
xchartl5 3 eq {(T*) js2 ( = [) bs2
               (A) js2 (1) is2 ( + ) bs2
               (A) js2 (3) ip2 (L) js2 (]) bs2 (t) es2
               ( - 1) bs2
              } if

xchartl 09 le     {/xchartx xchartl def} if
xchartl 10 ge
xchartl 14 le and {/xchartx xchartl 10 sub def} if
xchartl 15 eq     {/xchartx 0 def} if

xt10 yt10 yd 2.5 mul sub moveto (A) ks4 (1) is4 (=) ns4 X0K 0 get cvsshow2
xt10 yt10 yd 3.5 mul sub moveto (A) ks4 (2) is4 (=) ns4 X0K 1 get cvsshow2
(=) ns4 (t) ks4
xt10 yt10 yd 4.5 mul sub moveto (A) ks4 (3) is4 (=) ns4 X0K 2 get cvsshow2
%(=) ns4 (t) ks4
%xt10 yt10 yd 5.5 mul sub moveto (A) ks4 (6) is4 (=) ns4 X0K 5 get cvsshow2
%xt10 yt10 yd 6.5 mul sub moveto (A) ks4 (7) is4 (=) ns4 X0K 6 get cvsshow2
xt10 yt10 yd 5.5 mul sub moveto (D) ss4 (=) ns4 ALPHA xchartx get cvsshow3

newpath

/xfact 700 def
/yfact 700 def
xchartl5 2 eq    {/yfact  70 def} if
xchartl5 3 eq    {/yfact  35 def} if

tfn
MDK 0 eq {630} if
MDK 1 eq {63} if
MDK 2 eq {6.3} if
MDK 3 eq {63} if
log 3 add xfact mul 0 50 00 360 arc fill

/xgr 33 array def
/ygr 33 array def
/ygs 33 array def
/ygp 33 array def
/ygm 33 array def

/ver {00 -70 rmoveto 0 140 rlineto stroke} def
/hor {-70  0 rmoveto 140 0 rlineto stroke} def
/dgr {-50 -50 rmoveto 100  100 rlineto stroke} def
/dgl {-50  50 rmoveto 100 -100 rlineto stroke} def

/xs2 2 def
/ys2 2 def
/xs3 3 def
/ys3 3 def

/IM 32 def
/JM 00 def

%for this file:
%For array: 4320=16*18*5*3=1440*3
%               =%16 data * 18 colours * 10 series * (2xtp)

%/MDX 16 18 mul 10 mul def %2880=16*18*10
/k16_18 16 18 xchartx mul mul def
%        MD MDX mul add def %16 data * 18 colours * 10 series

xchartl 00 eq  {/tfx {tfh} def} if %26s 6,3 cd/m**2
xchartl 01 eq  {/tfx {tfy} def} if %26s 6,3 cd/m**2
xchartl 02 eq  {/tfx {tfb} def} if %26s 6,3 cd/m**2
xchartl 03 eq  {/tfx {tfr} def} if %26s 6,3 cd/m**2
xchartl 04 eq  {/tfx {tfg} def} if %26s 6,3 cd/m**2

xchartl 05 eq  {/tfx {tfw} def} if %0,1s 6,3 cd/m**2
xchartl 06 eq  {/tfx {tfyz} def} if %0,1s 6,3 cd/m**2
xchartl 07 eq  {/tfx {tfbz} def} if %0,1s 6,3 cd/m**2
xchartl 08 eq  {/tfx {tfrz} def} if %0,1s 6,3 cd/m**2
xchartl 09 eq  {/tfx {tfgz} def} if %0,1s 6,3 cd/m**2

xchartl 10 eq  {/tfx {tfw} def} if %26&0,1s 6,3cd/m**2
xchartl 11 eq  {/tfx {tfy} def} if %26&0,1s 6,3cd/m**2
xchartl 12 eq  {/tfx {tfb} def} if %26&0,1s 6,3cd/m**2
xchartl 13 eq  {/tfx {tfr} def} if %26&0,1s 6,3cd/m**2
xchartl 14 eq  {/tfx {tfg} def} if %26&0,1s 6,3cd/m**2

xchartl 15 eq  {/tfx {tfw} def} if %26s A,B 6,3cd/m**2 

/j 0 def
/IM IMDAT xchartx get def

0 1 IM {/i exch def %i=0,IM
        /j1 i 16 mul 04 add k16_18 add def
        /j2 i 16 mul 13 add k16_18 add def
        xgr i AVR2DA05 j1 get put

        xchart 0 eq {%xchart=0 dL
        ygr i AVR2DA05 j2 get put
                  } if %xchart=0 dL

        xchart 1 eq xchart 2 eq or {%xchart=1,2 L/dL log and linear
        ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put
                  } if %xchart=0 L/dL
} for %i=0,IM

xchart 2 le {%xchart<=2, single data plot T* not possible

0 1 IM {/i exch def %i=0,IM
        i 05 le i 12 ge or {tfn} {tfx} ifelse
        xgr i get log xs3 add xfact mul
        ygr i get 0.001 add 
        xchart 1 le {log} if
        ys2 add yfact mul moveto dgr

        i 05 le i 12 ge or {tfx} {tfn} ifelse
        xgr i get log xs3 add xfact mul
        ygr i get 0.001 add
        xchart 1 le {log} if
        ys2 add yfact mul moveto dgl
       } for %i=0,IM

} if %xchart<=2

%*************************************************************
/iout0 1 def
iout0 1 eq {%iout0=1

tfx
0 1 IM {/i exch def %i=0,IM
/X xgr i get def
/XX A1 A3 X mul add def
/FDL XX A2 exp def
/FLDDL X FDL 0.0001 add div def
/FR XX A2 1 add exp 1 sub def

        xgr i get log xs3 add xfact mul
        xchart 0 eq {FDL
                       log ys2 add yfact mul} if 
        xchart 1 eq {FLDDL 0.001 add
                       log ys2 add yfact mul} if
        xchart 2 eq {FLDDL 0.001 add
                       ys2 add yfact mul} if
        xchart 3 eq {FR
                       ys2 add yfact mul} if
        i 0 eq {moveto} if
        i 01 ge
        i IM 1 sub le and {lineto} if
        i IM eq {lineto stroke} if
} for %i=0,IM

%STOP2
%***********************************************************

/iout 1 def

iout 1 eq {%iout=1

xchartl 10 ge {%BEG second curve

xchartl 10 ge
xchartl 14 le and {/xchartx xchartl 5 sub def} if
xchartl 15 eq     {/xchartx 2 def} if

/k16_18 16 18 xchartx mul mul def
%        MD MDX mul add def %16 data * 18 colours * 10 series (2 x tp)

xchartl 10 eq  {/tfx {tfw } def} if %0,1s 6,3 cd/m**2
xchartl 11 eq  {/tfx {tfyz} def} if %0,1s 6,3 cd/m**2
xchartl 12 eq  {/tfx {tfbz} def} if %0,1s 6,3 cd/m**2
xchartl 13 eq  {/tfx {tfrz} def} if %0,1s 6,3 cd/m**2
xchartl 14 eq  {/tfx {tfgz} def} if %0,1s 6,3 cd/m**2

xchartl 15 eq {/tfx {tfb } def} if %xchartl=9

/j 0 def
/IM IMDAT xchartx get def

0 1 IM {/i exch def %i=0,IM
        /j1 i 16 mul 04 add k16_18 add def
        /j2 i 16 mul 13 add k16_18 add def
        xgr i AVR2DA05 j1 get put

        xchart 0 eq {%xchart=0 dL
        ygr i AVR2DA05 j2 get put
                  } if %xchart=0 dL

        xchart 1 eq xchart 2 eq or {%xchart=1,2 L/dL log and linear
        ygr i AVR2DA05 j1 get AVR2DA05 j2 get div put
                  } if %xchart=0 L/dL
} for %i=0,IM

xchart 2 le {%xchart<=2, single data plot T* not possible

0 1 IM {/i exch def %i=0,IM
        i 05 le i 12 ge or {tfn} {tfx} ifelse
        xgr i get log xs3 add xfact mul
        ygr i get 0.001 add
        xchart 1 le {log} if
        ys2 add yfact mul moveto dgr

        i 05 le i 12 ge or {tfx} {tfn} ifelse
        xgr i get log xs3 add xfact mul
        ygr i get 0.001 add
        xchart 1 le {log} if
        ys2 add yfact mul moveto dgl
       } for %i=0,IM

} if %xchart<=2, single data plot T* not possible

} if %iout0=1

%*************************************************************
%FOR SECOND CURVE FIT

xchartl 10 ge {%xchartl>=10

0 1 9 {/j exch def %j=0,9

xchartl 10 eq {X0K j X0K5  j get put} if
xchartl 11 eq {X0K j X0K6  j get put} if
xchartl 12 eq {X0K j X0K7  j get put} if
xchartl 13 eq {X0K j X0K8  j get put} if
xchartl 14 eq {X0K j X0K9  j get put} if

xchartl 15 eq {X0K j X0K2  j get put} if %AD26 G4
      } for %j=0,9

/xt1x xt10 1200 add def

tfn
xt1x yt10 yd 2.5 mul sub moveto (A) ks4 (1) is4 (=) ns4 X0K 0 get cvsshow2
xt1x yt10 yd 3.5 mul sub moveto (A) ks4 (2) is4 (=) ns4 X0K 1 get cvsshow2
(=) ns4 (t) ks4
xt1x yt10 yd 4.5 mul sub moveto (A) ks4 (3) is4 (=) ns4 X0K 2 get cvsshow2
%(=) ns4 (t) ks4
%xt1x yt10 yd 5.5 mul sub moveto (A) ks4 (6) is4 (=) ns4 X0K 5 get cvsshow2
%xt1x yt10 yd 6.5 mul sub moveto (A) ks4 (7) is4 (=) ns4 X0K 6 get cvsshow2
xt1x yt10 yd 5.5 mul sub moveto (D) ss4 (=) ns4 ALPHA xchartx get cvsshow3

xchartl 15 eq {/tfx {tfb } def} if

/A1 X0K 0 get def
/A2 X0K 1 get def
/A3 X0K 2 get def

tfx
0 1 IM {/i exch def %i=0,IM
/X xgr i get def
/XX A1 A3 X mul add def
/FDL XX A2 exp def
/FLDDL X FDL 0.0001 add div def
/FR XX A2 1 add exp 1 sub def

        xgr i get log xs3 add xfact mul
        xchart 0 eq {FDL
                       log ys2 add yfact mul} if
        xchart 1 eq {FLDDL 0.001 add
                       log ys2 add yfact mul} if
        xchart 2 eq {FLDDL 0.001 add
                       ys2 add yfact mul} if
        xchart 3 eq {FR
                       ys2 add yfact mul} if
        i 0 eq {moveto} if
        i 01 ge
        i IM 1 sub le and {lineto} if
        i IM eq {lineto stroke} if
} for %i=0,IM

} if %xchartl>=10

} if %END second curve

} if %iout=1

550 neg 400 neg translate

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
  xchartl    0 eq {  100 neg 13000 neg translate} if
  xchartl    1 eq { 6100 neg 13000 neg translate} if
  xchartl    2 eq {  100 neg 08750 neg translate} if
  xchartl    3 eq { 6100 neg 08750 neg translate} if

  xchartl    4 eq {  100 neg  4500 neg translate} if
  xchartl    5 eq { 6100 neg  4500 neg translate} if
  xchartl    6 eq {  100 neg  0250 neg translate} if
  xchartl    7 eq { 6100 neg  0250 neg translate} if

  xchartl    8 eq {13500 neg 13000 neg translate} if
  xchartl    9 eq {19500 neg 13000 neg translate} if
  xchartl   10 eq {13500 neg 08750 neg translate} if
  xchartl   11 eq {19500 neg 08750 neg translate} if

  xchartl   12 eq {13500 neg  4500 neg translate} if
  xchartl   13 eq {19500 neg  4500 neg translate} if
  xchartl   14 eq {13500 neg  0250 neg translate} if
  xchartl   15 eq {19500 neg  0250 neg translate} if

grestore
} for %xchartl=0,15

showpage
grestore

%} for %xchart=0,8 for MDK: 0=6,3cd/m**2, 1x3 plots

%%Trailer