%!PS-Adobe-3.0 EPSF-3.0 UE600-7N
%%BoundingBox: 70 83 790 587

%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/UE60/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de
   or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2014080112000)
  /ModDate (D:2014080112000)
/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


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

/Courier-ISOL1 exch definefont pop

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

/CourierB-ISOL1 exch definefont pop


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

/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CSS {115 /Courier-ISOL1 FS} bind def
/CSK {140 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBSS {115 /CourierB-ISOL1 FS} bind def
/CBSK {140 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

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

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

%40% kleiner
/ns4 {250 /Times-ISOL1 FS  show TK} bind def
/ks4 {250 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {250 /TimesB-ISOL1 FS  show TK} bind def
/js4 {250 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {250 /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
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def

%Data_RICHDA09.TXT
%2 different grey surrounds

%Data_Richter Experimental threshold data
%258 sample pairs with 17 data per line = 
%xg, yg, YG, YLG: 0.3252 0.3598 18.0 0.6000E+02
%xg, yg, YG, YLG: 0.3977 0.4178 18.0 0.6000E+02
%only D65 data an 1.2<Y<30
/WData0 4386 array def
/WData  4386 array def %new

/WData0
[
% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 1
%           Programm:    RICHDA09.FOR 2014_07_15
%           Output file: RICHDA09.TXT 2014_07_15
%000000   1         2         3         4         5        6          7         
%123456789012345678901234567890123456789012345678901234567890123456789012345678 
%210000    x      y      Y       L          delta_x   delta_y   delta_Y ObReJNS1 Co delta_L    xg     yg     Lg
%220000    xg     yg     Yg      Lg         SAn  Sd Sp   Lw     Lg   GAn ______2
%230000    a*     b*     L*      C*ab       da*     db*     dL*     dE*ab _____3
%240000    aJ     bJ     Y       CJab       daJ     dbJ     dLJ     dEJab _____4
%! 11   0 BDY_BY 60cd/m**2  0  0  0
200010 0.2498 0.2915 0.1733E+02 0.5777E+02 -0.11E-02 -0.10E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200020 0.2686 0.3064 0.1691E+02 0.5637E+02 -0.15E-02 -0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200030 0.2878 0.3258 0.1729E+02 0.5763E+02 -0.14E-02 -0.12E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200040 0.3012 0.3390 0.1744E+02 0.5813E+02 -0.14E-02 -0.12E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200050 0.3142 0.3498 0.1751E+02 0.5837E+02 -0.15E-02 -0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200060 0.3232 0.3594 0.1648E+02 0.5493E+02 -0.15E-02 -0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200070 0.3611 0.3882 0.1623E+02 0.5410E+02 -0.24E-02 -0.20E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200080 0.4047 0.4282 0.1994E+02 0.6647E+02 -0.21E-02 -0.18E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200090 0.4336 0.4527 0.1775E+02 0.5917E+02 -0.27E-02 -0.24E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200100 0.4624 0.4770 0.1808E+02 0.6027E+02 -0.31E-02 -0.27E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200110 0.4838 0.4965 0.1849E+02 0.6163E+02 -0.38E-02 -0.33E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11  11 RDC_BY 60cd/m**2  1  0  2
202230 0.6145 0.3423 0.1645E+02 0.5483E+02 -0.35E-02 -0.17E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202240 0.5413 0.3446 0.1582E+02 0.5273E+02 -0.34E-02 -0.18E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202250 0.4542 0.3292 0.1621E+02 0.5403E+02 -0.29E-02 -0.18E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202260 0.4089 0.3519 0.1673E+02 0.5577E+02 -0.26E-02 -0.18E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202270 0.3612 0.3548 0.1680E+02 0.5600E+02 -0.21E-02 -0.17E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202280 0.3215 0.3572 0.1665E+02 0.5550E+02 -0.17E-02 -0.14E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202290 0.2866 0.3656 0.1606E+02 0.5353E+02 -0.17E-02 -0.17E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202300 0.2374 0.3777 0.1670E+02 0.5567E+02 -0.17E-02 -0.20E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202310 0.2117 0.3839 0.1772E+02 0.5907E+02 -0.14E-02 -0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202320 0.1861 0.3905 0.1803E+02 0.6010E+02 -0.13E-02 -0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
202330 0.1646 0.3959 0.1834E+02 0.6113E+02 -0.13E-02 -0.20E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11  22 GDV_BY 60cd/m**2  2  0  3
203340 0.2160 0.6845 0.1743E+02 0.5810E+02 -0.29E-02 -0.65E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203350 0.2552 0.5671 0.1691E+02 0.5637E+02 -0.25E-02 -0.41E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203360 0.2863 0.4674 0.1641E+02 0.5470E+02 -0.23E-02 -0.28E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203370 0.3040 0.4130 0.1692E+02 0.5640E+02 -0.21E-02 -0.23E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203380 0.3155 0.3798 0.1671E+02 0.5570E+02 -0.19E-02 -0.18E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203390 0.3226 0.3574 0.1652E+02 0.5507E+02 -0.17E-02 -0.15E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203400 0.3301 0.3328 0.1507E+02 0.5023E+02 -0.22E-02 -0.17E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203410 0.3378 0.3016 0.1418E+02 0.4727E+02 -0.21E-02 -0.14E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
203420 0.3430 0.2797 0.1407E+02 0.4690E+02 -0.22E-02 -0.14E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203430 0.3472 0.2646 0.1358E+02 0.4527E+02 -0.22E-02 -0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203440 0.3505 0.2521 0.1327E+02 0.4423E+02 -0.21E-02 -0.12E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11  33 TDM_BY 60cd/m**2  3  0  4
204450 0.1204 0.3960 0.1500E+02 0.5000E+02 -0.12E-02 -0.23E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204460 0.1819 0.3839 0.1504E+02 0.5013E+02 -0.15E-02 -0.20E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204470 0.2425 0.3728 0.1575E+02 0.5250E+02 -0.14E-02 -0.16E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204480 0.2787 0.3655 0.1680E+02 0.5600E+02 -0.15E-02 -0.15E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204490 0.3042 0.3605 0.1728E+02 0.5760E+02 -0.16E-02 -0.15E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204500 0.3211 0.3578 0.1656E+02 0.5520E+02 -0.16E-02 -0.14E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204510 0.3808 0.3088 0.1579E+02 0.5263E+02 -0.20E-02 -0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204520 0.4325 0.2639 0.1598E+02 0.5327E+02 -0.23E-02 -0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204530 0.4596 0.2390 0.1700E+02 0.5667E+02 -0.23E-02 -0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204540 0.4761 0.2231 0.1715E+02 0.5717E+02 -0.25E-02 -0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204550 0.4848 0.2122 0.1722E+02 0.5740E+02 -0.27E-02 -0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11  44 WDN_BY 60cd/m**2  4  0  5
205560 0.3283 0.3627 0.2716E+02 0.9053E+02 -0.70E-03 -0.60E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205570 0.3237 0.3584 0.1673E+02 0.5577E+02 -0.80E-03 -0.70E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205580 0.3206 0.3552 0.1041E+02 0.3470E+02 -0.10E-02 -0.90E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205590 0.3199 0.3543 0.6980E+01 0.2327E+02 -0.12E-02 -0.11E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205600 0.3207 0.3553 0.4790E+01 0.1597E+02 -0.13E-02 -0.12E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205610 0.3222 0.3571 0.3320E+01 0.1107E+02 -0.18E-02 -0.16E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205620 0.3255 0.3594 0.2290E+01 0.7633E+01 -0.22E-02 -0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205630 0.3300 0.3612 0.1770E+01 0.5900E+01 -0.25E-02 -0.22E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205640 0.3347 0.3648 0.1270E+01 0.4233E+01 -0.30E-02 -0.26E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
%! 11  77 ANY_AY 20cd/m**2  7  1  1
201120 0.1941 0.1469 0.6150E+01 0.2050E+02 -0.16E-02 -0.80E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201130 0.2137 0.1797 0.6180E+01 0.2060E+02 -0.18E-02 -0.11E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201140 0.2438 0.2311 0.6430E+01 0.2143E+02 -0.22E-02 -0.15E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201150 0.2705 0.2755 0.6630E+01 0.2210E+02 -0.23E-02 -0.17E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201160 0.3273 0.3249 0.6720E+01 0.2240E+02 -0.26E-02 -0.22E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201170 0.3585 0.3703 0.6720E+01 0.2240E+02 -0.29E-02 -0.26E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201180 0.4023 0.3942 0.6220E+01 0.2073E+02 -0.45E-02 -0.40E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201190 0.4346 0.4296 0.6250E+01 0.2083E+02 -0.52E-02 -0.46E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201200 0.4622 0.4538 0.6370E+01 0.2123E+02 -0.55E-02 -0.48E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201210 0.4864 0.4753 0.6340E+01 0.2113E+02 -0.66E-02 -0.57E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201220 0.4624 0.4933 0.6250E+01 0.2083E+02 -0.66E-02 -0.57E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
%! 11  88 BDY_RC 60cd/m**2  8  2  0
200011 0.2498 0.2915 0.1733E+02 0.5777E+02  0.25E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200021 0.2686 0.3064 0.1691E+02 0.5637E+02  0.23E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200031 0.2878 0.3258 0.1729E+02 0.5763E+02  0.25E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200041 0.3012 0.3390 0.1744E+02 0.5813E+02  0.22E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200051 0.3142 0.3498 0.1751E+02 0.5837E+02  0.21E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200061 0.3232 0.3594 0.1648E+02 0.5493E+02  0.19E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200071 0.3611 0.3882 0.1623E+02 0.5410E+02  0.29E-02 -0.10E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200081 0.4047 0.4282 0.1994E+02 0.6647E+02  0.37E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200091 0.4336 0.4527 0.1775E+02 0.5917E+02  0.38E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200101 0.4624 0.4770 0.1808E+02 0.6027E+02  0.47E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200111 0.4838 0.4965 0.1849E+02 0.6163E+02  0.41E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11  99 RDC_RC 60cd/m**2  9  2  2
202231 0.6145 0.3423 0.1645E+02 0.5483E+02  0.59E-02 -0.20E-03 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202241 0.5413 0.3446 0.1582E+02 0.5273E+02  0.47E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202251 0.4542 0.3292 0.1621E+02 0.5403E+02  0.42E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202261 0.4089 0.3519 0.1673E+02 0.5577E+02  0.33E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202271 0.3612 0.3548 0.1680E+02 0.5600E+02  0.28E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202281 0.3215 0.3572 0.1665E+02 0.5550E+02  0.20E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202291 0.2866 0.3656 0.1606E+02 0.5353E+02  0.41E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202301 0.2374 0.3777 0.1670E+02 0.5567E+02  0.39E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202311 0.2117 0.3839 0.1772E+02 0.5907E+02  0.45E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202321 0.1861 0.3905 0.1803E+02 0.6010E+02  0.51E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202331 0.1646 0.3959 0.1834E+02 0.6113E+02  0.57E-02 -0.20E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11 110 GDV_RC 60cd/m**2 10  2  3
203341 0.2160 0.6845 0.1743E+02 0.5810E+02  0.85E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203351 0.2552 0.5671 0.1691E+02 0.5637E+02  0.57E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203361 0.2863 0.4674 0.1641E+02 0.5470E+02  0.49E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203371 0.3040 0.4130 0.1692E+02 0.5640E+02  0.33E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203381 0.3155 0.3798 0.1671E+02 0.5570E+02  0.28E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203391 0.3226 0.3574 0.1652E+02 0.5507E+02  0.23E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203401 0.3301 0.3328 0.1507E+02 0.5023E+02  0.30E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203411 0.3378 0.3016 0.1418E+02 0.4727E+02  0.32E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203421 0.3430 0.2797 0.1407E+02 0.4690E+02  0.31E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203431 0.3472 0.2646 0.1358E+02 0.4527E+02  0.31E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203441 0.3505 0.2521 0.1327E+02 0.4423E+02  0.31E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11 121 TDM_RC 60cd/m**2 11  2  4
204451 0.1204 0.3960 0.1500E+02 0.5000E+02  0.62E-02 -0.20E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204461 0.1819 0.3839 0.1504E+02 0.5013E+02  0.47E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204471 0.2425 0.3728 0.1575E+02 0.5250E+02  0.42E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204481 0.2787 0.3655 0.1680E+02 0.5600E+02  0.32E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204491 0.3042 0.3605 0.1728E+02 0.5760E+02  0.23E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204501 0.3211 0.3578 0.1656E+02 0.5520E+02  0.19E-02 -0.10E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
204511 0.3808 0.3088 0.1579E+02 0.5263E+02  0.24E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204521 0.4325 0.2639 0.1598E+02 0.5327E+02  0.32E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204531 0.4596 0.2390 0.1700E+02 0.5667E+02  0.35E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204541 0.4761 0.2231 0.1715E+02 0.5717E+02  0.31E-02 -0.10E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204551 0.4848 0.2122 0.1722E+02 0.5740E+02  0.35E-02 -0.10E-03 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
%! 11 132 BDY_GV 60cd/m**2 12  3  0
200012 0.2498 0.2915 0.1733E+02 0.5777E+02 -0.12E-02  0.18E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200022 0.2686 0.3064 0.1691E+02 0.5637E+02 -0.11E-02  0.17E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200032 0.2878 0.3258 0.1729E+02 0.5763E+02 -0.10E-02  0.19E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200042 0.3012 0.3390 0.1744E+02 0.5813E+02 -0.10E-02  0.19E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200052 0.3142 0.3498 0.1751E+02 0.5837E+02 -0.90E-03  0.20E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200062 0.3232 0.3594 0.1648E+02 0.5493E+02 -0.90E-03  0.22E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200072 0.3611 0.3882 0.1623E+02 0.5410E+02 -0.70E-03  0.22E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200082 0.4047 0.4282 0.1994E+02 0.6647E+02 -0.60E-03  0.29E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200092 0.4336 0.4527 0.1775E+02 0.5917E+02 -0.60E-03  0.36E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200102 0.4624 0.4770 0.1808E+02 0.6027E+02 -0.40E-03  0.40E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
200112 0.4838 0.4965 0.1849E+02 0.6163E+02 -0.30E-03  0.48E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
%! 11 143 RDC_GV 60cd/m**2 13  3  2
202232 0.6145 0.3423 0.1645E+02 0.5483E+02  0.70E-03  0.31E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
202242 0.5413 0.3446 0.1582E+02 0.5273E+02  0.20E-03  0.26E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202252 0.4542 0.3292 0.1621E+02 0.5403E+02 -0.40E-03  0.26E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202262 0.4089 0.3519 0.1673E+02 0.5577E+02 -0.60E-03  0.27E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202272 0.3612 0.3548 0.1680E+02 0.5600E+02 -0.70E-03  0.20E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202282 0.3215 0.3572 0.1665E+02 0.5550E+02 -0.90E-03  0.21E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202292 0.2866 0.3656 0.1606E+02 0.5353E+02 -0.13E-02  0.27E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
202302 0.2374 0.3777 0.1670E+02 0.5567E+02 -0.22E-02  0.36E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
202312 0.2117 0.3839 0.1772E+02 0.5907E+02 -0.24E-02  0.37E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
202322 0.1861 0.3905 0.1803E+02 0.6010E+02 -0.25E-02  0.37E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
202332 0.1646 0.3959 0.1834E+02 0.6113E+02 -0.30E-02  0.42E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
%! 11 154 GDV_GV 60cd/m**2 14  3  3
203342 0.2160 0.6845 0.1743E+02 0.5810E+02 -0.55E-02  0.14E-01 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
203352 0.2552 0.5671 0.1691E+02 0.5637E+02 -0.30E-02  0.77E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
203362 0.2863 0.4674 0.1641E+02 0.5470E+02 -0.19E-02  0.47E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
203372 0.3040 0.4130 0.1692E+02 0.5640E+02 -0.16E-02  0.37E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
203382 0.3155 0.3798 0.1671E+02 0.5570E+02 -0.13E-02  0.29E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
203392 0.3226 0.3574 0.1652E+02 0.5507E+02 -0.90E-03  0.21E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
203402 0.3301 0.3328 0.1507E+02 0.5023E+02 -0.11E-02  0.24E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
203412 0.3378 0.3016 0.1418E+02 0.4727E+02 -0.11E-02  0.23E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
203422 0.3430 0.2797 0.1407E+02 0.4690E+02 -0.11E-02  0.24E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
203432 0.3472 0.2646 0.1358E+02 0.4527E+02 -0.11E-02  0.23E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
203442 0.3505 0.2521 0.1327E+02 0.4423E+02 -0.10E-02  0.21E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
%! 11 165 TDM_GV 60cd/m**2 15  3  4
204452 0.1204 0.3960 0.1500E+02 0.5000E+02 -0.52E-02  0.64E-02 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
204462 0.1819 0.3839 0.1504E+02 0.5013E+02 -0.29E-02  0.41E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
204472 0.2425 0.3728 0.1575E+02 0.5250E+02 -0.18E-02  0.31E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
204482 0.2787 0.3655 0.1680E+02 0.5600E+02 -0.14E-02  0.26E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
204492 0.3042 0.3605 0.1728E+02 0.5760E+02 -0.11E-02  0.23E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
204502 0.3211 0.3578 0.1656E+02 0.5520E+02 -0.80E-03  0.19E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
204512 0.3808 0.3088 0.1579E+02 0.5263E+02 -0.70E-03  0.21E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
204522 0.4325 0.2639 0.1598E+02 0.5327E+02 -0.50E-03  0.21E-02 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
204532 0.4596 0.2390 0.1700E+02 0.5667E+02 -0.30E-03  0.21E-02 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
204542 0.4761 0.2231 0.1715E+02 0.5717E+02 -0.20E-03  0.20E-02 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
204552 0.4848 0.2122 0.1722E+02 0.5740E+02 -0.20E-03  0.20E-02 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
%! 11 176 BDY_TM 60cd/m**2 16  4  0
200013 0.2498 0.2915 0.1733E+02 0.5777E+02 -0.19E-02  0.80E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200023 0.2686 0.3064 0.1691E+02 0.5637E+02 -0.17E-02  0.80E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200033 0.2878 0.3258 0.1729E+02 0.5763E+02 -0.17E-02  0.90E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200043 0.3012 0.3390 0.1744E+02 0.5813E+02 -0.17E-02  0.90E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200053 0.3142 0.3498 0.1751E+02 0.5837E+02 -0.17E-02  0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200063 0.3232 0.3594 0.1648E+02 0.5493E+02 -0.16E-02  0.10E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
200073 0.3611 0.3882 0.1623E+02 0.5410E+02 -0.19E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200083 0.4047 0.4282 0.1994E+02 0.6647E+02 -0.20E-02  0.17E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200093 0.4336 0.4527 0.1775E+02 0.5917E+02 -0.20E-02  0.20E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200103 0.4624 0.4770 0.1808E+02 0.6027E+02 -0.22E-02  0.25E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
200113 0.4838 0.4965 0.1849E+02 0.6163E+02 -0.21E-02  0.26E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11 187 ANY_TM 20cd/m**2 17  4  1
201123 0.1941 0.1469 0.6150E+01 0.2050E+02 -0.29E-02  0.50E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201133 0.2137 0.1797 0.6180E+01 0.2060E+02 -0.31E-02  0.70E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201143 0.2438 0.2311 0.6430E+01 0.2143E+02 -0.33E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201153 0.2705 0.2755 0.6630E+01 0.2210E+02 -0.37E-02  0.16E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201163 0.3273 0.3249 0.6720E+01 0.2240E+02 -0.36E-02  0.20E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201173 0.3585 0.3703 0.6720E+01 0.2240E+02 -0.43E-02  0.28E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
201183 0.4023 0.3942 0.6220E+01 0.2073E+02 -0.37E-02  0.27E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201193 0.4346 0.4296 0.6250E+01 0.2083E+02 -0.38E-02  0.34E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201203 0.4622 0.4538 0.6370E+01 0.2123E+02 -0.37E-02  0.38E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201213 0.4864 0.4753 0.6340E+01 0.2113E+02 -0.41E-02  0.46E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
201223 0.4624 0.4933 0.6250E+01 0.2083E+02 -0.39E-02  0.49E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
%! 11 198 RDC_TM 60cd/m**2 18  4  2
202233 0.6145 0.3423 0.1645E+02 0.5483E+02 -0.14E-02  0.18E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202243 0.5413 0.3446 0.1582E+02 0.5273E+02 -0.18E-02  0.19E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202253 0.4542 0.3292 0.1621E+02 0.5403E+02 -0.16E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202263 0.4089 0.3519 0.1673E+02 0.5577E+02 -0.18E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202273 0.3612 0.3548 0.1680E+02 0.5600E+02 -0.18E-02  0.12E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202283 0.3215 0.3572 0.1665E+02 0.5550E+02 -0.16E-02  0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202293 0.2866 0.3656 0.1606E+02 0.5353E+02 -0.22E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202303 0.2374 0.3777 0.1670E+02 0.5567E+02 -0.26E-02  0.15E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202313 0.2117 0.3839 0.1772E+02 0.5907E+02 -0.28E-02  0.15E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202323 0.1861 0.3905 0.1803E+02 0.6010E+02 -0.30E-02  0.16E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
202333 0.1646 0.3959 0.1834E+02 0.6113E+02 -0.38E-02  0.20E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11 209 GDV_TM 60cd/m**2 19  4  3
203343 0.2160 0.6845 0.1743E+02 0.5810E+02 -0.65E-02  0.67E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203353 0.2552 0.5671 0.1691E+02 0.5637E+02 -0.51E-02  0.45E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203363 0.2863 0.4674 0.1641E+02 0.5470E+02 -0.26E-02  0.20E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203373 0.3040 0.4130 0.1692E+02 0.5640E+02 -0.23E-02  0.16E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203383 0.3155 0.3798 0.1671E+02 0.5570E+02 -0.21E-02  0.14E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203393 0.3226 0.3574 0.1652E+02 0.5507E+02 -0.17E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203403 0.3301 0.3328 0.1507E+02 0.5023E+02 -0.22E-02  0.12E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203413 0.3378 0.3016 0.1418E+02 0.4727E+02 -0.20E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203423 0.3430 0.2797 0.1407E+02 0.4690E+02 -0.21E-02  0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203433 0.3472 0.2646 0.1358E+02 0.4527E+02 -0.20E-02  0.90E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
203443 0.3505 0.2521 0.1327E+02 0.4423E+02 -0.20E-02  0.90E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
%! 11 220 TDM_TM 60cd/m**2 20  4  4
204453 0.1204 0.3960 0.1500E+02 0.5000E+02 -0.61E-02  0.30E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204463 0.1819 0.3839 0.1504E+02 0.5013E+02 -0.50E-02  0.26E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204473 0.2425 0.3728 0.1575E+02 0.5250E+02 -0.37E-02  0.21E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204483 0.2787 0.3655 0.1680E+02 0.5600E+02 -0.27E-02  0.15E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204493 0.3042 0.3605 0.1728E+02 0.5760E+02 -0.21E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204503 0.3211 0.3578 0.1656E+02 0.5520E+02 -0.18E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204513 0.3808 0.3088 0.1579E+02 0.5263E+02 -0.22E-02  0.13E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204523 0.4325 0.2639 0.1598E+02 0.5327E+02 -0.20E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204533 0.4596 0.2390 0.1700E+02 0.5667E+02 -0.22E-02  0.11E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204543 0.4761 0.2231 0.1715E+02 0.5717E+02 -0.20E-02  0.10E-02 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
204553 0.4848 0.2122 0.1722E+02 0.5740E+02 -0.21E-02  0.10E-02 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
%! 11 231 WDN_TM 60cd/m**2 21  4  5
205563 0.3283 0.3627 0.2716E+02 0.9053E+02 -0.11E-02  0.70E-03 0.10E-01 7 3 1 1 11 0.3333E-01 0.3252 0.3598 0.6000E+02
205573 0.3237 0.3584 0.1673E+02 0.5577E+02 -0.11E-02  0.70E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205583 0.3206 0.3552 0.1041E+02 0.3470E+02 -0.13E-02  0.80E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205593 0.3199 0.3543 0.6980E+01 0.2327E+02 -0.15E-02  0.90E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205603 0.3207 0.3553 0.4790E+01 0.1597E+02 -0.18E-02  0.11E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205613 0.3222 0.3571 0.3320E+01 0.1107E+02 -0.21E-02  0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205623 0.3255 0.3594 0.2290E+01 0.7633E+01 -0.27E-02  0.17E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205633 0.3300 0.3612 0.1770E+01 0.5900E+01 -0.30E-02  0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
205643 0.3347 0.3648 0.1270E+01 0.4233E+01 -0.38E-02  0.24E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02
%! 11 264 BDY_WN 60cd/m**2 24  5  0
200014 0.2498 0.2915 0.1733E+02 0.5777E+02  0.20E-03  0.20E-03 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
200024 0.2686 0.3064 0.1691E+02 0.5637E+02  0.10E-03  0.10E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
200034 0.2878 0.3258 0.1729E+02 0.5763E+02  0.10E-03  0.10E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200044 0.3012 0.3390 0.1744E+02 0.5813E+02  0.10E-03  0.10E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200054 0.3142 0.3498 0.1751E+02 0.5837E+02  0.00E+00  0.00E+00 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200064 0.3232 0.3594 0.1648E+02 0.5493E+02  0.00E+00  0.00E+00 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200074 0.3611 0.3882 0.1623E+02 0.5410E+02 -0.10E-03 -0.10E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
200084 0.4047 0.4282 0.1994E+02 0.6647E+02 -0.30E-03 -0.20E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
200094 0.4336 0.4527 0.1775E+02 0.5917E+02 -0.50E-03 -0.40E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200104 0.4624 0.4770 0.1808E+02 0.6027E+02 -0.60E-03 -0.50E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
200114 0.4838 0.4965 0.1849E+02 0.6163E+02 -0.70E-03 -0.60E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
%! 11 275 ANY_WN 20cd/m**2 25  5  1
201124 0.1941 0.1469 0.6150E+01 0.2050E+02  0.40E-03  0.70E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201134 0.2137 0.1797 0.6180E+01 0.2060E+02  0.40E-03  0.70E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
201144 0.2438 0.2311 0.6430E+01 0.2143E+02  0.40E-03  0.60E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201154 0.2705 0.2755 0.6630E+01 0.2210E+02  0.30E-03  0.50E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201164 0.3273 0.3249 0.6720E+01 0.2240E+02  0.20E-03  0.20E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201174 0.3585 0.3703 0.6720E+01 0.2240E+02  0.00E+00 -0.10E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
201184 0.4023 0.3942 0.6220E+01 0.2073E+02 -0.20E-03 -0.30E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
201194 0.4346 0.4296 0.6250E+01 0.2083E+02 -0.70E-03 -0.60E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201204 0.4622 0.4538 0.6370E+01 0.2123E+02 -0.10E-02 -0.90E-03 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
201214 0.4864 0.4753 0.6340E+01 0.2113E+02 -0.12E-02 -0.10E-02 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
201224 0.4624 0.4933 0.6250E+01 0.2083E+02 -0.16E-02 -0.13E-02 0.50E-01 7 3 1 1 11 0.1667E+00 0.3252 0.3598 0.6000E+02
%! 11 286 TDM_WN 60cd/m**2 26  5  4
204454 0.1204 0.3960 0.1500E+02 0.5000E+02  0.11E-02 -0.20E-03 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
204464 0.1819 0.3839 0.1504E+02 0.5013E+02  0.40E-03 -0.10E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
204474 0.2425 0.3728 0.1575E+02 0.5250E+02  0.40E-03 -0.10E-03 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
204484 0.2787 0.3655 0.1680E+02 0.5600E+02  0.20E-03  0.00E+00 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
204494 0.3042 0.3605 0.1728E+02 0.5760E+02  0.10E-03  0.00E+00 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
204504 0.3211 0.3578 0.1656E+02 0.5520E+02  0.00E+00  0.00E+00 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
204514 0.3808 0.3088 0.1579E+02 0.5263E+02 -0.10E-03  0.10E-03 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
204524 0.4325 0.2639 0.1598E+02 0.5327E+02 -0.30E-03  0.30E-03 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
204534 0.4596 0.2390 0.1700E+02 0.5667E+02 -0.40E-03  0.40E-03 0.80E-01 7 3 1 1 11 0.2667E+00 0.3252 0.3598 0.6000E+02
204544 0.4761 0.2231 0.1715E+02 0.5717E+02 -0.50E-03  0.40E-03 0.90E-01 7 3 1 1 11 0.3000E+00 0.3252 0.3598 0.6000E+02
204554 0.4848 0.2122 0.1722E+02 0.5740E+02 -0.50E-03  0.50E-03 0.90E-01 7 3 1 1 11 0.3000E+00 0.3252 0.3598 0.6000E+02
%! 11 297 WDN_WN 60cd/m**2 27  5  5
205564 0.3283 0.3627 0.2716E+02 0.9053E+02  0.00E+00  0.00E+00 0.90E-01 7 3 1 1 11 0.3000E+00 0.3252 0.3598 0.6000E+02
205574 0.3237 0.3584 0.1673E+02 0.5577E+02  0.00E+00  0.00E+00 0.70E-01 7 3 1 1 11 0.2333E+00 0.3252 0.3598 0.6000E+02
205584 0.3206 0.3552 0.1041E+02 0.3470E+02  0.00E+00  0.00E+00 0.60E-01 7 3 1 1 11 0.2000E+00 0.3252 0.3598 0.6000E+02
205594 0.3199 0.3543 0.6980E+01 0.2327E+02  0.00E+00  0.00E+00 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
205604 0.3207 0.3553 0.4790E+01 0.1597E+02  0.00E+00  0.00E+00 0.40E-01 7 3 1 1 11 0.1333E+00 0.3252 0.3598 0.6000E+02
205614 0.3222 0.3571 0.3320E+01 0.1107E+02  0.00E+00  0.00E+00 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
205624 0.3255 0.3594 0.2290E+01 0.7633E+01  0.00E+00  0.00E+00 0.30E-01 7 3 1 1 11 0.1000E+00 0.3252 0.3598 0.6000E+02
205634 0.3300 0.3612 0.1770E+01 0.5900E+01 -0.10E-03  0.00E+00 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
205644 0.3347 0.3648 0.1270E+01 0.4233E+01 -0.20E-03 -0.10E-03 0.20E-01 7 3 1 1 11 0.6667E-01 0.3252 0.3598 0.6000E+02
%207885 END,79 characters in any data line                                     99
] def

%%EndProlog
gsave

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

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

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

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


/xchart xchart1 def %
%0 1 39 {/xchart exch def %xchart=0,39

/iXYZLAB 0 def
xchart 06 le                  {/iXYZLAB 0 def /xchartl xchart def} if
xchart 07 ge xchart 13 le and {/iXYZLAB 1 def /xchartl xchart 07 sub def} if
xchart 14 ge xchart 19 le and {/iXYZLAB 2 def /xchartl xchart 14 sub def} if
xchart 20 ge xchart 25 le and {/iXYZLAB 3 def /xchartl xchart 20 sub def} if
xchart 26 ge xchart 32 le and {/iXYZLAB 4 def /xchartl xchart 26 sub def} if
xchart 33 ge xchart 39 le and {/iXYZLAB 5 def /xchartl xchart 33 sub def} if

/xp0 0050 def
/xp1 6650 def
/xdel 620 def
/xdel0 650 def
/xdel1 550 def
/ydel 160 def


%**********************************************************
%iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2

/textXYZ 18 array def
/textXYZ
[(%XS) (YS) (ZS) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV)
(dE*ab) (dE*LCH)
(dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (   L*   a*   b*)] def

/textLAB 18 array def
/textLAB
[(%L*0) (a*0) (b*0) (C*ab0) (hab0) 
 (L*1) (a*1) (b*1) (C*ab1) (hab1) (DV) (dE*ab)
 (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*   a*   b*)] def
 
/textXYZ2 18 array def
/textXYZ2
[(%XS2) (YS2) (ZS2) (X02) (Y02) (Z02) (X12) (Y12) (Z12) (DV2)
(dE*ab2) (dE*LCH2) 
(dE*942) (dE*CM2) (dE*002) (dE*852) (NR2) (Code) (   L*   a*   b*)] def

/textLAB2 18 array def
/textLAB2
[(%L*02) (a*02) (b*02) (C*ab02) (hab02) 
 (L*12) (a*12) (b*12) (C*ab12) (hab12) (DV2) (dE*ab2)
 (dE*942) (dE*CM2) (dE*002) (dE*852) (NR2) (Code) (L*   a*   b*)] def
 
/textXYZ4 18 array def
/textXYZ4
[(%XS4) (YS4) (ZS4) (X04) (Y04) (Z04) (X14) (Y14) (Z14) (DV4)
(dE*ab4) (dE*LCH4) 
(dE*944) (dE*CM4) (dE*004) (dE*854) (NR4) (Code) (   L*   a*   b*)] def

/textLAB4 18 array def
/textLAB4
[(%L*04) (a*04) (b*04) (C*ab04) (hab04) 
 (L*14) (a*14) (b*14) (C*ab14) (hab14) (DV4) (dE*ab4)
 (dE*944) (dE*CM4) (dE*004) (dE*854) (NR4) (Code) (L*   a*   b*)] def


%**********************************************************

/D13 1 3 div def
/D841_108 841 108 div def
/D4_29 4 29 div def
/D6_29 6 29 div 3 exp def

/iim 257 def

/iimax iim 1 add 50 idiv def
/iimm1 iimax 1 sub def
/iimp1 iimax 1 add def

%calculated data: CIELAB01ai, max 330 x 10 dat = 3300
/WXYZR01Vai 3300 array def %CIEXYZ
/CIELAB01ai 3300 array def %CIELAB
/C00LAB01ai 3300 array def %CIE DE2000
/d_CIELABai  330 array def
/d_CIELCHai  330 array def
/d_C94LABai  330 array def %CIE94
/d_C94LCHai  330 array def
/d_CCMLABai  330 array def %CMC
/d_CCMLCHai  330 array def
/d_C00LABai  330 array def %CIE DE2000
/d_C00LCHai  330 array def
/d_C85LABai  330 array def %LABJND 1985
/d_C85LCHai  330 array def

/WXYZR01V2i 3300 array def %CIEXYZ
/CIELAB012i 3300 array def %CIELAB
/C00LAB012i 3300 array def %CIE DE2000
/d_CIELAB2i  330 array def
/d_CIELCH2i  330 array def
/d_C94LAB2i  330 array def %CIE94
/d_C94LCH2i  330 array def
/d_CCMLAB2i  330 array def %CMC
/d_CCMLCH2i  330 array def
/d_C00LAB2i  330 array def %CIE DE2000
/d_C00LCH2i  330 array def
/d_C85LAB2i  330 array def %LABJND 1985
/d_C85LCH2i  330 array def

/WXYZR01V4i 3300 array def %CIEXYZ
/CIELAB014i 3300 array def %CIELAB
/C00LAB014i 3300 array def %CIE DE2000
/d_CIELAB4i  330 array def
/d_CIELCH4i  330 array def
/d_C94LAB4i  330 array def %CIE94
/d_C94LCH4i  330 array def
/d_CCMLAB4i  330 array def %CMC
/d_CCMLCH4i  330 array def
/d_C00LAB4i  330 array def %CIE DE2000
/d_C00LCH4i  330 array def
/d_C85LAB4i  330 array def %LABJND 1985
/d_C85LCH4i  330 array def

/iai -1 def %count d_CIELAB all
/i2i -1 def %count d_CIELAB<=2
/i4i -1 def %count d_C00LAB<=2

/dVsuma 0 def
/dVsum2 0 def
/dVsum4 0 def

/d_CIELABmina 2999 def
/d_CIELABmaxa 0 def
/d_CIELABsuma 0 def
/d_CIELABVsuma 0 def

/d_CIELCHmina 2999 def
/d_CIELCHmaxa 0 def
/d_CIELCHsuma 0 def
/d_CIELCHVsuma 0 def
/d_C94LCHmina 2999 def
/d_C94LCHmaxa 0 def
/d_C94LCHsuma 0 def
/d_C94LCHVsuma 0 def
/d_CCMLCHmina 2999 def
/d_CCMLCHmaxa 0 def
/d_CCMLCHsuma 0 def
/d_CCMLCHVsuma 0 def
/d_C00LCHmina 2999 def
/d_C00LCHmaxa 0 def
/d_C00LCHsuma 0 def
/d_C00LCHVsuma 0 def
/d_C85LCHmina 2999 def
/d_C85LCHmaxa 0 def
/d_C85LCHsuma 0 def
/d_C85LCHVsuma 0 def

/d_CIELABmin2 2999 def
/d_CIELABmax2 0 def
/d_CIELABsum2 0 def
/d_CIELABVsum2 0 def

/d_CIELCHmin2 2999 def
/d_CIELCHmax2 0 def
/d_CIELCHsum2 0 def
/d_CIELCHVsum2 0 def
/d_C94LCHmin2 2999 def
/d_C94LCHmax2 0 def
/d_C94LCHsum2 0 def
/d_C94LCHVsum2 0 def
/d_CCMLCHmin2 2999 def
/d_CCMLCHmax2 0 def
/d_CCMLCHsum2 0 def
/d_CCMLCHVsum2 0 def
/d_C00LCHmin2 2999 def
/d_C00LCHmax2 0 def
/d_C00LCHsum2 0 def
/d_C00LCHVsum2 0 def
/d_C85LCHmin2 2999 def
/d_C85LCHmax2 0 def
/d_C85LCHsum2 0 def
/d_C85LCHVsum2 0 def

/d_CIELABmin4 2999 def
/d_CIELABmax4 0 def
/d_CIELABsum4 0 def
/d_CIELABVsum4 0 def

/d_CIELCHmin4 2999 def
/d_CIELCHmax4 0 def
/d_CIELCHsum4 0 def
/d_CIELCHVsum4 0 def
/d_C94LCHmin4 2999 def
/d_C94LCHmax4 0 def
/d_C94LCHsum4 0 def
/d_C94LCHVsum4 0 def
/d_CCMLCHmin4 2999 def
/d_CCMLCHmax4 0 def
/d_CCMLCHsum4 0 def
/d_CCMLCHVsum4 0 def
/d_C00LCHmin4 2999 def
/d_C00LCHmax4 0 def
/d_C00LCHsum4 0 def
/d_C00LCHVsum4 0 def
/d_C85LCHmin4 2999 def
/d_C85LCHmax4 0 def
/d_C85LCHsum4 0 def
/d_C85LCHVsum4 0 def

/Wachr 3 array def

0 1 iimax {/ii exch def %ii=0,iimm1

/i1 50 ii mul def
/i2 i1 49 add def

ii iimax eq {/i2 iim def} if

i1 1 i2 {/i exch def %i=i1,i2

/xang WData0 i 17 mul 14 add get def %xang
/yang WData0 i 17 mul 15 add get def %yang
/YLG  WData0 i 17 mul 16 add get def %YLG not used

/SUMG 100 yang div def

/XW SUMG xang mul def
/YW 100 def
/ZW SUMG 1. xang sub yang sub mul def

Wachr 0 XW put
Wachr 1 YW put
Wachr 2 ZW put

/i10 i 10 mul def

/xand WData0 i 17 mul 5 add get 0.5 mul def
/yand WData0 i 17 mul 6 add get 0.5 mul def
/Yd   WData0 i 17 mul 7 add get 0.5 mul def

/xan0 WData0 i 17 mul 1 add get xand sub def
/yan0 WData0 i 17 mul 2 add get yand sub def
/Y0   WData0 i 17 mul 3 add get Yd   sub def

/SUM0 Y0 yan0 div def
/X0 SUM0 xan0 mul def
/Z0 SUM0 1. xan0 sub yan0 sub mul def

WData i 17 mul 0 add X0 put
WData i 17 mul 1 add Y0 put
WData i 17 mul 2 add Z0 put

X0 XW div D6_29 gt {/FXXN X0 XW div 0.0001 add D13 exp def}
                     {/FXXN D841_108 X0 XW div mul D4_29 add def} ifelse

Y0 YW div D6_29 gt {/FYYN Y0 YW div 0.0001 add D13 exp def}
                     {/FYYN D841_108 Y0 YW div mul D4_29 add def} ifelse

Z0 ZW div D6_29 gt {/FZZN Z0 ZW div 0.0001 add D13 exp def}
                     {/FZZN D841_108 Z0 ZW div mul D4_29 add def} ifelse

/CIEL*0 116. FYYN mul 16. sub def
/CIEa*0 500. FXXN FYYN sub mul def
/CIEb*0 200. FYYN FZZN sub mul def
/CIEC*ab0 CIEa*0 dup mul
          CIEb*0 dup mul add 0.0001 add sqrt def
/CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def


/xan1 WData0 i 17 mul 1 add get xand add def
/yan1 WData0 i 17 mul 2 add get yand add def
/Y1   WData0 i 17 mul 3 add get Yd   add def

/SUM1 Y1 yan1 div def
/X1 SUM1 xan1 mul def
/Z1 SUM1 1. xan1 sub yan1 sub mul def

WData i 17 mul 3 add X1 put
WData i 17 mul 4 add Y1 put
WData i 17 mul 5 add Z1 put
WData i 17 mul 16 add 1.00 put %threshold

X1 XW div D6_29 gt {/FXXN X1 XW div 0.0001 add D13 exp def}
                     {/FXXN D841_108 X1 XW div mul D4_29 add def} ifelse

Y1 YW div D6_29 gt {/FYYN Y1 YW div 0.0001 add D13 exp def}
                     {/FYYN D841_108 Y1 YW div mul D4_29 add def} ifelse

Z1 ZW div D6_29 gt {/FZZN Z1 ZW div 0.0001 add D13 exp def}
                     {/FZZN D841_108 Z1 ZW div mul D4_29 add def} ifelse

/CIEL*1 116. FYYN mul 16. sub def
/CIEa*1 500. FXXN FYYN sub mul def
/CIEb*1 200. FYYN FZZN sub mul def
/CIEC*ab1 CIEa*1 dup mul
          CIEb*1 dup mul add 0.0001 add sqrt def
/CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def

%mixed terms with *0 sn *1:
/d_CIEL* CIEL*1 CIEL*0 sub def
/d_CIEa* CIEa*1 CIEa*0 sub def
/d_CIEb* CIEb*1 CIEb*0 sub def

/d_CIELAB d_CIEL* dup mul
          d_CIEa* dup mul add 
          d_CIEb* dup mul add 0.00000001 add sqrt def

/d_CIEh CIEhab1 CIEhab0 sub def                    %see CIEDE2000 page 4
CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if      %CIEC*ab1 x CIEC*ab0 =0
CIEC*ab1 CIEC*ab0 mul 0 ne  d_CIEh  180 gt and
         {/d_CIEh d_CIEh 360 sub def} if
CIEC*ab1 CIEC*ab0 mul 0 ne  d_CIEh -180 lt and
         {/d_CIEh d_CIEh 360 add def} if

/d_CIEL   CIEL*1   CIEL*0   sub def
/d_CIECab CIEC*ab1 CIEC*ab0 sub def
/d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul
          d_CIEh 0.5 mul sin mul def

/d_CIELCH d_CIEL   dup mul
          d_CIECab dup mul add
          d_CIEHab dup mul add 0.000001 add sqrt def

%CIE94
/S94L 1 def
/S94C 1 0.045 CIEC*ab0 mul add def
/S94H 1 0.015 CIEC*ab0 mul add def
/K94L 1 def
/K94C 1 def
/K94H 1 def

/LC94*0 CIEL*0 K94L div S94L div def
/LC94*1 CIEL*1 K94L div S94L div def
/CC94*ab0 CIEC*ab0 K94C div S94C div def
/CC94*ab1 CIEC*ab1 K94C div S94C div def

/d_C94LCH CIEL*1   CIEL*0   sub K94L div S94L div dup mul
          CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add 
          d_CIEHab              K94H div S94H div dup mul add
          0.00000001 add sqrt def

%CMC l:c=1:1
CIEL*0 16 lt {/SCML 0.511 def}
             {/SCML 0.040975 CIEL*0 mul
                    0.011765 CIEL*0 mul 1 add div def
             } ifelse
/SCMC 0.0638 CIEC*ab0 mul
      0.0131 CIEC*ab0 mul 1 add div 0.638 add def
%beg special
/FCMC CIEC*ab0 dup mul dup mul
      CIEC*ab0 dup mul dup mul 1900 add div sqrt def
CIEhab1 164 lt
CIEhab1 345 gt and
{/TCMC CIEhab0  35 add cos 0.4 mul 0.36 add def}
{/TCMC CIEhab0 168 add cos 0.2 mul 0.56 add def} ifelse
%end special

/SCMH TCMC FCMC mul 1 add FCMC sub SCMC mul def

/KCML 1 def %=l
/KCMC 1 def %=c
/KCMH 1 def %1

/CCML*0 CIEL*0 KCML div SCML div def
/CCML*1 CIEL*1 KCML div SCML div def
/CCMC*ab0 CIEC*ab0 KCMC div SCMC div def
/CCMC*ab1 CIEC*ab1 KCMC div SCMC div def

/d_CCMLCH CIEL*1 CIEL*0 sub     KCML div SCML div dup mul
          CIEC*ab1 CIEC*ab0 sub KCMC div SCMC div dup mul add 
          d_CIEHab              KCMH div SCMH div dup mul add
          0.00000001 add sqrt def

%CIE DE2000
%beg special equation (7)
/CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def
/DEG 1 CIEC*ab 7 exp
       CIEC*ab 7 exp 25 7 exp add div
       0.000001 add sqrt sub 0.5 mul def
%end special equation (7)

%beg special EQUATION (1) TO (6)
%0
/C00L0S CIEL*0 def
/C00a0S 1 DEG add CIEa*0 mul def
/C00b0S CIEb*0 def
/C00C0S C00a0S dup mul
        C00b0S dup mul add
        0.000001 add sqrt def
C00C0S 0 eq {/C00h0S 0 def}
            {/C00h0S C00b0S C00a0S atan def
            } ifelse
%1
/C00L1S CIEL*1 def
/C00a1S 1 DEG add CIEa*1 mul def
/C00b1S CIEb*1 def
/C00C1S C00a1S dup mul
        C00b1S dup mul add
        0.000001 add sqrt def
C00C1S 0 eq {/C00h1S 0 def}
            {/C00h1S C00b1S C00a1S atan def
            } ifelse
%end special EQUATION (1) TO (6)

%beg special EQUATION (11) TO (14)
/d_C00hS C00h1S C00h0S sub def                    %see CIEDE2000 page 4
C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if    %CIEC*ab1 x CIEC*ab0 =0
C00C1S C00C0S mul 0 ne
d_C00hS  180 gt and
         {/d_C00hS d_C00hS 360 sub def} if
C00C1S C00C0S mul 0 ne
d_C00hS -180 lt and
         {/d_C00hS d_C00hS 360 add def} if
%end special EQUATION (11) TO (14)

%beg special EQUATION (8) TO (10)
/d_C00LS C00L1S C00L0S sub def
/d_C00aS C00a1S C00a0S sub def
/d_C00bS C00b1S C00b0S sub def
/d_C00CS C00C1S C00C0S sub def
/d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul
         d_C00hS 0.5 mul sin mul def
%end special EQUATION (8) TO (10)

%beg special EQUATION (23) TO (26)
/d_C00hS C00h0S C00h1S sub abs def
/a_C00hs C00h0S C00h1S add 0.5 mul def
/m_C00CS C00h0S C00h1S mul def


d_C00hS 180 le
m_C00CS 0   ne and
{/C00hSq C00h0S  C00h1S add 0.5 mul def} if

d_C00hS 180 gt
a_C00hs 360 le and
m_C00CS 0   ne and
{/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if

d_C00hS 180 gt
a_C00hs 360 ge and
m_C00CS 0   ne and
{/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if

m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if
%end special EQUATION (23) TO (26)

%beg special EQUATIONS (16) TO (22)
/C00LSq C00L0S C00L1S add 0.5 mul def
/C00CSq C00C0S C00C1S add 0.5 mul def

/C00SL C00LSq 50 sub dup mul 0.015 mul
       C00LSq 50 sub dup mul 20 add sqrt div
       1 add def
/C00SC 0.045 C00CSq mul 1 add def

%beg special T, RT, d_D, RC
/C00T C00hSq 30 sub cos -0.17 mul
      C00hSq 2 mul  cos  0.24 mul add
      C00hSq 3 mul 6 add cos  0.32 mul add
      C00hSq 4 mul 63 sub cos 0.20 mul sub
      1 add def
/C00SH 0.015 C00CSq mul C00T mul 1 add def

/C00RC C00CSq 7 exp
       C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def
/C00DT 30 C00hSq 275 sub 25 div dup mul neg exp def
/C00RT C00DT 2 mul sin neg C00RC mul def
%end special T, RT, d_D, RC
%end special EQUATIONS (16) TO (22)

%beg special EQUATION (15)

/C00KL 1.0 def
/C00KC 1.0 def
/C00KH 1.0 def

/d_C00LS d_C00LS C00KL div C00SL div def
/d_C00CS d_C00CS C00KC div C00SC div def
/d_C00HS d_C00HS C00KH div C00SH div def

/d_C00LCH d_C00LS dup mul
          d_C00CS dup mul add
          d_C00HS dup mul add
          d_C00CS d_C00HS mul C00RT mul add
          0.000001 add sqrt def
%beg additional definitions not in DE2000
/d_C00LS d_C00LS C00KL div C00SL div def
/d_C00aS d_C00aS C00KC div C00SC div def
/d_C00bS d_C00bS C00KC div C00SC div def
%end additional definitions not in DE2000
%end special EQUATION (15)
%end CIE DE2000

%beg LABJND 1985
/X0 WData i 17 mul 0 add get def
/Y0 WData i 17 mul 1 add get def
/Z0 WData i 17 mul 2 add get def

/X1 WData i 17 mul 3 add get def
/Y1 WData i 17 mul 4 add get def
/Z1 WData i 17 mul 5 add get def

/Yq Y0 Y1 add 0.5 mul def
/d_Y Y1 Y0 sub def

/a085 X0 Y0 0.000001 add div def
/b085 Z0 Y0 0.000001 add div 0.4 mul neg def
/a185 X1 Y1 0.000001 add div def
/b185 Z1 Y1 0.000001 add div 0.4 mul neg def

/an85 XW YW 0.000001 add div def
/bn85 ZW YW 0.000001 add div 0.4 mul neg def

/d_a085 a085 an85 sub def
/d_b085 b085 bn85 sub def
/d_a185 a185 an85 sub def
/d_b185 b185 bn85 sub def

/a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def
/b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def
/a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def
/b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def

/d_Y Y1 Y0 sub def
/d_a"85 a1"85 a0"85 sub def
/d_b"85 b1"85 b0"85 sub def

/s85 0.0170 def
/q85 0.0058 def
/g85 1.0000 def %not used

/a0085 1.0 def
/b0085 1.8 def
/Y0085 1.5 def

/d_C85LCH d_Y dup mul
          a0085 d_a"85 mul Yq mul dup mul add
          b0085 d_b"85 mul Yq mul dup mul add
          0.000001 add sqrt Y0085 mul
          q85 Yq mul s85 add div
          def
%end LABJND 1985

CIELAB01ai i10 0 add CIEL*0   put
CIELAB01ai i10 1 add CIEa*0   put
CIELAB01ai i10 2 add CIEb*0   put
CIELAB01ai i10 3 add CIEC*ab0 put
CIELAB01ai i10 4 add CIEhab0  put
CIELAB01ai i10 5 add CIEL*1   put
CIELAB01ai i10 6 add CIEa*1   put
CIELAB01ai i10 7 add CIEb*1   put
CIELAB01ai i10 8 add CIEC*ab1 put
CIELAB01ai i10 9 add CIEhab1  put

C00LAB01ai i10 0 add CIEL*0   put
C00LAB01ai i10 1 add CIEa*0   put
C00LAB01ai i10 2 add CIEb*0   put
C00LAB01ai i10 3 add CIEC*ab0 put
C00LAB01ai i10 4 add CIEhab0  put
C00LAB01ai i10 5 add CIEL*1   put
C00LAB01ai i10 6 add CIEa*1   put
C00LAB01ai i10 7 add CIEb*1   put
C00LAB01ai i10 8 add CIEC*ab1 put
C00LAB01ai i10 9 add CIEhab1  put

d_CIELABai i d_CIELAB put

d_CIELCHai i d_CIELCH put
d_C94LCHai i d_C94LCH put
d_CCMLCHai i d_CCMLCH put
d_C00LCHai i d_C00LCH put
d_C85LCHai i d_C85LCH put

%always
/iai iai 1 add def
d_CIELAB d_CIELABmina lt {/d_CIELABmina d_CIELAB def} if
d_CIELAB d_CIELABmaxa gt {/d_CIELABmaxa d_CIELAB def} if
/d_CIELABsuma d_CIELABsuma d_CIELAB add def

d_CIELCH d_CIELCHmina lt {/d_CIELCHmina d_CIELCH def} if
d_CIELCH d_CIELCHmaxa gt {/d_CIELCHmaxa d_CIELCH def} if
/d_CIELCHsuma d_CIELCHsuma d_CIELCH add def

d_C94LCH d_C94LCHmina lt {/d_C94LCHmina d_C94LCH def} if
d_C94LCH d_C94LCHmaxa gt {/d_C94LCHmaxa d_C94LCH def} if
/d_C94LCHsuma d_C94LCHsuma d_C94LCH add def

d_CCMLCH d_CCMLCHmina lt {/d_CCMLCHmina d_CCMLCH def} if
d_CCMLCH d_CCMLCHmaxa gt {/d_CCMLCHmaxa d_CCMLCH def} if
/d_CCMLCHsuma d_CCMLCHsuma d_CCMLCH add def

d_C00LCH d_C00LCHmina lt {/d_C00LCHmina d_C00LCH def} if
d_C00LCH d_C00LCHmaxa gt {/d_C00LCHmaxa d_C00LCH def} if
/d_C00LCHsuma d_C00LCHsuma d_C00LCH add def

d_C85LCH d_C85LCHmina lt {/d_C85LCHmina d_C85LCH def} if
d_C85LCH d_C85LCHmaxa gt {/d_C85LCHmaxa d_C85LCH def} if
/d_C85LCHsuma d_C85LCHsuma d_C85LCH add def

/dVsuma dVsuma WData i 17 mul 16 add get add def

%save data in array
0 1 2 {/k exch def %k=0,2
WXYZR01Vai i10 k add Wachr k get put
} for %k=0,2
0 1 05 {/j exch def %j=0,05
WXYZR01Vai i10 3 add j add WData i 17 mul j add get put
} for %j=0,05
WXYZR01Vai i10 9 add 1.00 put %threshold

d_CIELAB 2 le {%d_CIELAB<=2

/i2i i2i 1 add def
/i2i10 i2i 10 mul def
CIELAB012i i2i10 0 add CIEL*0   put
CIELAB012i i2i10 1 add CIEa*0   put
CIELAB012i i2i10 2 add CIEb*0   put
CIELAB012i i2i10 3 add CIEC*ab0 put
CIELAB012i i2i10 4 add CIEhab0  put
CIELAB012i i2i10 5 add CIEL*1   put
CIELAB012i i2i10 6 add CIEa*1   put
CIELAB012i i2i10 7 add CIEb*1   put
CIELAB012i i2i10 8 add CIEC*ab1 put
CIELAB012i i2i10 9 add CIEhab1  put

d_CIELAB2i i2i d_CIELABai i get put

d_CIELCH2i i2i d_CIELCH put
d_C94LCH2i i2i d_C94LCH put
d_CCMLCH2i i2i d_CCMLCH put
d_C00LCH2i i2i d_C00LCH put
d_C85LCH2i i2i d_C85LCH put

%always
d_CIELAB d_CIELABmin2 lt {/d_CIELABmin2 d_CIELAB def} if
d_CIELAB d_CIELABmax2 gt {/d_CIELABmax2 d_CIELAB def} if
/d_CIELABsum2 d_CIELABsum2 d_CIELAB add def

d_CIELCH d_CIELCHmin2 lt {/d_CIELCHmin2 d_CIELCH def} if
d_CIELCH d_CIELCHmax2 gt {/d_CIELCHmax2 d_CIELCH def} if
/d_CIELCHsum2 d_CIELCHsum2 d_CIELCH add def

d_C94LCH d_C94LCHmin2 lt {/d_C94LCHmin2 d_C94LCH def} if
d_C94LCH d_C94LCHmax2 gt {/d_C94LCHmax2 d_C94LCH def} if
/d_C94LCHsum2 d_C94LCHsum2 d_C94LCH add def

d_CCMLCH d_CCMLCHmin2 lt {/d_CCMLCHmin2 d_CCMLCH def} if
d_CCMLCH d_CCMLCHmax2 gt {/d_CCMLCHmax2 d_CCMLCH def} if
/d_CCMLCHsum2 d_CCMLCHsum2 d_CCMLCH add def

d_C00LCH d_C00LCHmin2 lt {/d_C00LCHmin2 d_C00LCH def} if
d_C00LCH d_C00LCHmax2 gt {/d_C00LCHmax2 d_C00LCH def} if
/d_C00LCHsum2 d_C00LCHsum2 d_C00LCH add def

d_C85LCH d_C85LCHmin2 lt {/d_C85LCHmin2 d_C85LCH def} if
d_C85LCH d_C85LCHmax2 gt {/d_C85LCHmax2 d_C85LCH def} if
/d_C85LCHsum2 d_C85LCHsum2 d_C85LCH add def

/dVsum2 dVsum2 WData i 17 mul 16 add get add def

%save data in array
0 1 2 {/k exch def %k=0,2
WXYZR01V2i i2i10 k add Wachr k get put
} for %k=0,2
0 1 05 {/j exch def %j=0,05
WXYZR01V2i i2i10 3 add j add WData i 17 mul j add get put
} for %j=0,05
WXYZR01V2i i2i10 9 add WData i 17 mul 16 add get put

} if %d_CIELAB<=2

d_C00LCH 2 le {%d_C00LCH<=2

/i4i i4i 1 add def
/i4i10 i4i 10 mul def
CIELAB014i i4i10 0 add CIEL*0   put
CIELAB014i i4i10 1 add CIEa*0   put
CIELAB014i i4i10 2 add CIEb*0   put
CIELAB014i i4i10 3 add CIEC*ab0 put
CIELAB014i i4i10 4 add CIEhab0  put
CIELAB014i i4i10 5 add CIEL*1   put
CIELAB014i i4i10 6 add CIEa*1   put
CIELAB014i i4i10 7 add CIEb*1   put
CIELAB014i i4i10 8 add CIEC*ab1 put
CIELAB014i i4i10 9 add CIEhab1  put

d_CIELAB4i i4i d_CIELABai i get put

d_CIELCH4i i4i d_CIELCH put
d_C94LCH4i i4i d_C94LCH put
d_CCMLCH4i i4i d_CCMLCH put
d_C00LCH4i i4i d_C00LCH put
d_C85LCH4i i4i d_C85LCH put

%always
d_CIELAB d_CIELABmin4 lt {/d_CIELABmin4 d_CIELAB def} if
d_CIELAB d_CIELABmax4 gt {/d_CIELABmax4 d_CIELAB def} if
/d_CIELABsum4 d_CIELABsum4 d_CIELAB add def

d_CIELCH d_CIELCHmin4 lt {/d_CIELCHmin4 d_CIELCH def} if
d_CIELCH d_CIELCHmax4 gt {/d_CIELCHmax4 d_CIELCH def} if
/d_CIELCHsum4 d_CIELCHsum4 d_CIELCH add def

d_C94LCH d_C94LCHmin4 lt {/d_C94LCHmin4 d_C94LCH def} if
d_C94LCH d_C94LCHmax4 gt {/d_C94LCHmax4 d_C94LCH def} if
/d_C94LCHsum4 d_C94LCHsum4 d_C94LCH add def

d_CCMLCH d_CCMLCHmin4 lt {/d_CCMLCHmin4 d_CCMLCH def} if
d_CCMLCH d_CCMLCHmax4 gt {/d_CCMLCHmax4 d_CCMLCH def} if
/d_CCMLCHsum4 d_CCMLCHsum4 d_CCMLCH add def

d_C00LCH d_C00LCHmin4 lt {/d_C00LCHmin4 d_C00LCH def} if
d_C00LCH d_C00LCHmax4 gt {/d_C00LCHmax4 d_C00LCH def} if
/d_C00LCHsum4 d_C00LCHsum4 d_C00LCH add def

d_C85LCH d_C85LCHmin4 lt {/d_C85LCHmin4 d_C85LCH def} if
d_C85LCH d_C85LCHmax4 gt {/d_C85LCHmax4 d_C85LCH def} if
/d_C85LCHsum4 d_C85LCHsum4 d_C85LCH add def

/dVsum4 dVsum4 WData i 17 mul 16 add get add def

%save data in array
0 1 2 {/k exch def %k=0,2
WXYZR01V4i i4i10 k add Wachr k get put
} for %k=0,2
0 1 05 {/j exch def %j=0,05
WXYZR01V4i i4i10 3 add j add WData i 17 mul j add get put
} for %j=0,05
WXYZR01V4i i4i10 9 add WData i 17 mul 16 add get put

} if %d_C00LCH<=2

} for %i=i1,i2

} for %ii=0,iimax

%**************************************************
iXYZLAB 0 ge iXYZLAB 1 le and {/iim iai def
                               /iimax iim 1 add 50 idiv def} if
iXYZLAB 2 ge iXYZLAB 3 le and {/iim i2i def
                               /iimax i2i 1 add 50 idiv def} if
iXYZLAB 4 ge iXYZLAB 5 le and {/iim i4i def
                               /iimax i4i 1 add 50 idiv def} if

/ii xchartl def

/iimaxP1 iimax 1 add def

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
700 85 moveto
(UE600-7N) show
(_) show iXYZLAB cvishow (_) show ii cvishow

72 90 translate

/yhoe 8500 def
0.02 MM dup scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 12550 0 rlineto 0 yhoe rlineto -12550 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 12550 0 rlineto 0 yhoe rlineto -12550 0 rlineto
closepath stroke

CBSK
xp0 yhoe ydel 0.9 mul sub moveto

iXYZLAB 0 eq iXYZLAB 2 eq or iXYZLAB 4 eq or {%iXYZLAB=0,2,4
0 1 09 {/k exch def %k=0,09
xp0 k xdel0 mul add yhoe ydel 0.9 mul sub moveto
iXYZLAB 0 eq {textXYZ k get show} if
iXYZLAB 2 eq {textXYZ2 k get show} if
iXYZLAB 4 eq {textXYZ4 k get show} if
} for %k=0,09
10 1 18 {/k exch def %k=10,18
xp1 k 10 sub xdel1 mul add yhoe ydel 0.9 mul sub moveto
iXYZLAB 0 eq {textXYZ k get show} if
iXYZLAB 2 eq {textXYZ2 k get show} if
iXYZLAB 4 eq {textXYZ4 k get show} if
} for %k=10,18
} if %iXYZLAB=0,2,4

iXYZLAB 1 eq iXYZLAB 3 eq or iXYZLAB 5 eq  or {%iXYZLAB=1,3,5
0 1 18 {/k exch def %k=0,18
xp0 k xdel mul add yhoe ydel 0.9 mul sub moveto
iXYZLAB 1 eq {textLAB k get show} if
iXYZLAB 3 eq {textLAB2 k get show} if
iXYZLAB 5 eq {textLAB4 k get show} if
} for %k=0,18
} if %iXYZLAB=1,3,5
( $) show

xp0 yhoe ydel 1.9 mul sub moveto
iXYZLAB 0 eq 
{(%CIEXYZ*1000 data for all colour (a) of experiment) show} if
iXYZLAB 1 eq
{(%CIELAB data for all colour (a) of experiment) show} if
iXYZLAB 2 eq
{(%CIEXYZ*1000 data for colours (2) of experiment with CIELAB dE*ab<=2) show} if
iXYZLAB 3 eq
{(%CIELAB data for colours (2) of experiment with CIELAB dE*ab<=2) show} if
iXYZLAB 4 eq
{(%CIEXYZ*1000 data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if
iXYZLAB 5 eq
{(%CIELAB data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if

( $) show

ii iimaxP1 lt {%ii<iimaxP1

CSK
/i1 50 ii mul def
/i2 i1 49 add def

ii iimax eq {/i2 iim def} if

i1 1 i2 {/i exch def %i=i1,i2
/i10 i 10 mul def
/yhot yhoe ydel 1 mul sub def

%*************************************
/cvi36show
{1000 mul /nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx   9999 le {(0) show} if
nx  99999 le {(0) show} if
nx 999999 le {(0) show} if
nx cvi 10 string cvs show
} def

/cvi34show
{1000 mul /nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx   9999 le {(0) show} if
nx cvi 8 string cvs show
} def

%output of data
iXYZLAB 0 eq {%iXYZLAB=0
0 1 08 {/j exch def %j=0,08
xp0 j xdel0 mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01Vai i10 j add get
cvi36show
} for %j=0,08

xp0 09 xdel0 mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01Vai i10 09 add get %DV
cvi36show

xp1 0 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELABai i get cvi34show

xp1 1 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELCHai i get cvi34show

xp1 2 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCHai i get cvi34show

xp1 3 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCHai i get cvi34show

xp1 4 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCHai i get cvi34show

xp1 5 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCHai i get cvi34show

} if %iXYZLAB=0

%*******************************************
iXYZLAB 1 eq {%iXYZLAB=1
0 1 09 {/j exch def %j=0,09
/i10 i 10 mul def
100 j xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 j add get cvsshow2
} for %j=0,09

100 10 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01Vai i10 09 add get cvsshow4 %DV

100 11 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELABai i get cvsshow3

100 12 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCHai i get cvsshow3

100 13 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCHai i get cvsshow3

100 14 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCHai i get cvsshow3

100 15 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCHai i get cvsshow3

} if %iXYZLAB=1

%*******************************************
%only for d_CIELAB<=2

iXYZLAB 2 eq {%iXYZLAB=2
/i10 i 10 mul def
0 1 08 {/j exch def %j=0,08
xp0 j xdel0 mul add yhot ydel i i1 sub  2 add mul sub moveto
WXYZR01V2i i10 j add get
cvi36show
} for %j=0,08

xp0 09 xdel0 mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01V2i i10 09 add get cvi36show %DV

xp1 0 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELAB2i i get cvi34show

xp1 1 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELCH2i i get cvi34show

xp1 2 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCH2i i get cvi34show

xp1 3 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCH2i i get cvi34show

xp1 4 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCH2i i get cvi34show

xp1 5 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCH2i i get cvi34show

} if %iXYZLAB=2

%*******************************************
iXYZLAB 3 eq {%iXYZLAB=3
/i10 i 10 mul def
0 1 09 {/j exch def %j=0,09
100 j xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB012i i10 j add get cvsshow2
} for %j=0,09

100 10 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01V2i i10 09 add get cvsshow4 %DV

100 11 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELAB2i i get cvsshow3

100 12 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCH2i i get cvsshow3

100 13 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCH2i i get cvsshow3

100 14 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCH2i i get cvsshow3

100 15 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCH2i i get cvsshow3

} if %iXYZLAB=3

%*******************************************
%only for d_C00LCH<=2

iXYZLAB 4 eq {%iXYZLAB=4
/i10 i 10 mul def
0 1 08 {/j exch def %j=0,08
xp0 j xdel0 mul add yhot ydel i i1 sub  2 add mul sub moveto
WXYZR01V4i i10 j add get
cvi36show
} for %j=0,08

xp0 09 xdel0 mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01V4i i10 09 add get cvi36show %DV

xp1 0 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELAB4i i get cvi34show

xp1 1 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELCH4i i get cvi34show

xp1 2 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCH4i i get cvi34show

xp1 3 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCH4i i get cvi34show

xp1 4 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCH4i i get cvi34show

xp1 5 xdel1 mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCH4i i get cvi34show

} if %iXYZLAB=4

%*******************************************
iXYZLAB 5 eq {%iXYZLAB=5
/i10 i 10 mul def
0 1 09 {/j exch def %j=0,09
100 j xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB014i i10 j add get cvsshow2
} for %j=0,09

100 10 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
WXYZR01V4i i10 09 add get cvsshow4 %DV

100 11 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CIELAB4i i get cvsshow3

100 12 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C94LCH4i i get cvsshow3

100 13 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_CCMLCH4i i get cvsshow3

100 14 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C00LCH4i i get cvsshow3

100 15 xdel mul add yhot ydel i i1 sub 2 add mul sub moveto
d_C85LCH4i i get cvsshow3

} if %iXYZLAB=5

%*******************************************
/cvi03show
{/nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx cvi 7 string cvs show
} def

/cvi02show
{/nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx cvi 6 string cvs show
} def

/cvi02nshow
{/nx exch cvi def
nx 0 gt {%nx>=0
         nx      9 le {(0) show} if
         nx     99 le {(0) show} if
         nx cvi 6 string cvs show
        } if
nx 0 lt {%nx<0
         nx abs   99 le {(0) show} if
         nx cvi 6 string cvs show
        } if %nx>=0
nx 0 eq {%nx=0
         (00) show
         nx cvi 6 string cvs show
        } if %nx>=0
} def

/cvi02xshow
{/nx exch cvi def
nx 0 gt {%nx>=0
         nx      9 le {( ) show} if
         nx     99 le {( ) show} if
         nx cvi 6 string cvs show
        } if
nx 0 lt {%nx<0
         nx abs   99 le {( ) show} if
         nx cvi 6 string cvs show
        } if %nx>=0
nx 0 eq {%nx=0
         (   ) show
         nx cvi 6 string cvs show
        } if %nx>=0
} def

/cvi03nshow
{/nx exch cvi def
nx 0 gt {%nx>=0
         nx      9 le {(0) show} if
         nx     99 le {(0) show} if
         nx    999 le {(0) show} if
         nx cvi 7 string cvs show
        } if
nx 0 lt {%nx<0
         nx abs    9 le {(0) show} if
         nx abs   99 le {(0) show} if
         nx cvi 7 string cvs show
        } if %nx>=0
nx 0 eq {%nx=0
         (000) show
         nx cvi 7 string cvs show
        } if %nx>=0
} def

/cvi03xshow
{/nx exch cvi def
nx 0 gt {%nx>=0
         nx      9 le {( ) show} if
         nx     99 le {( ) show} if
         nx    999 le {( ) show} if
         nx cvi 7 string cvs show
        } if
nx 0 lt {%nx<0
         nx abs    9 le {( ) show} if
         nx abs   99 le {( ) show} if
         nx cvi 7 string cvs show
        } if %nx>=0
nx 0 eq {%nx=0
         (   ) show
         nx cvi 7 string cvs show
        } if %nx>=0
} def

xp0 16 xdel mul yhot ydel i i1 sub 2 add mul sub moveto
(%) show
i cvi03show

100 17 xdel mul 100 sub yhot ydel i i1 sub 2 add mul sub moveto
i 000 ge i 010 le and {(BDY_BY60) show} if
i 011 ge i 021 le and {(RDC_BY60) show} if
i 022 ge i 032 le and {(GDV_BY60) show} if
i 033 ge i 043 le and {(TDM_BY60) show} if
i 044 ge i 052 le and {(WDN_BY60) show} if

/it1 077 052 sub 1 sub def
i 077 it1 sub ge i 087 it1 sub le and {(ANY_AY20) show} if
i 088 it1 sub ge i 098 it1 sub le and {(BDY_RC60) show} if
i 099 it1 sub ge i 109 it1 sub le and {(RDC_RC60) show} if
i 110 it1 sub ge i 120 it1 sub le and {(GDV_RC60) show} if
i 121 it1 sub ge i 131 it1 sub le and {(TDM_RC60) show} if
i 132 it1 sub ge i 142 it1 sub le and {(BDY_GV60) show} if
i 143 it1 sub ge i 153 it1 sub le and {(RDC_GV60) show} if
i 154 it1 sub ge i 164 it1 sub le and {(GDV_GV60) show} if
i 165 it1 sub ge i 175 it1 sub le and {(TDM_GV60) show} if
i 176 it1 sub ge i 186 it1 sub le and {(BDY_TM60) show} if
i 187 it1 sub ge i 197 it1 sub le and {(ANY_TM20) show} if
i 198 it1 sub ge i 208 it1 sub le and {(RDC_TM60) show} if
i 209 it1 sub ge i 219 it1 sub le and {(GDV_TM60) show} if
i 220 it1 sub ge i 230 it1 sub le and {(TDM_TM60) show} if
i 231 it1 sub ge i 239 it1 sub le and {(WDN_TM60) show} if
/it2 it1 2 add 22 add def

%i 242 ge i 252 le and {(QPN_TM60) show} if
%i 253 ge i 263 le and {(OPN_TM60) show} if

i 264 it2 sub ge i 274 it2 sub le and {(BDY_WN60) show} if
i 275 it2 sub ge i 285 it2 sub le and {(ANY_WN20) show} if
i 286 it2 sub ge i 296 it2 sub le and {(TDM_WN60) show} if

i 297 it2 sub ge i 305 it2 sub le and {(WDN_WN60) show} if

%i 308 ge i 318 le and {(QPN_QN60) show} if
%i 319 ge i 329 le and {(OPN_ON60) show} if

xp0 18.0 xdel mul 100 sub yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 0 add get
CIELAB01ai i10 5 add get add 0.5 mul cvi03xshow
xp0 18.75 xdel mul 100 sub yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 1 add get
CIELAB01ai i10 6 add get add 0.5 mul cvi03xshow
xp0 19.50 xdel mul 100 sub yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 2 add get
CIELAB01ai i10 7 add get add 0.5 mul cvi03xshow
( $) show

%*******************************************

} for %i=i1,i2

} if %ii<iimaxP1

ii iimaxP1 eq { %ii=iimaxP1
/yhot yhoe ydel 1 mul sub def

100 yhot ydel 2 mul sub moveto
(Minimum, maximum and average colour difference value) show
100 yhot ydel 3 mul sub moveto
(STRESS constant F and STRESS value S) show

iXYZLAB 0 eq iXYZLAB 1 eq or {%iXYZLAB=0,1
/iim iai def

/d_CIELABavea d_CIELABsuma iai 1 add div def
100 yhot ydel 4 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CIELABmina = ) show d_CIELABmina cvsshow2
(, d_CIELABmaxa = ) show d_CIELABmaxa cvsshow2
(, d_CIELABavea = ) show d_CIELABavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELABai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELABai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CIELABFa = ) show FSa cvsshow2
(, CIELABSTRESSa = ) show SSa cvsshow2

%***********************************************
%CIELCH
/d_CIELCHavea d_CIELCHsuma iai 1 add div def
100 yhot ydel 07 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CIELCHmina = ) show d_CIELCHmina cvsshow2
(, d_CIELCHmaxa = ) show d_CIELCHmaxa cvsshow2
(, d_CIELCHavea = ) show d_CIELCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 8.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CIELCHFa = ) show FSa cvsshow2
(, CIELCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C94LCH
/d_C94LCHavea d_C94LCHsuma iai 1 add div def
100 yhot ydel 10 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C94LCHmina = ) show d_C94LCHmina cvsshow2
(, d_C94LCHmaxa = ) show d_C94LCHmaxa cvsshow2
(, d_C94LCHavea = ) show d_C94LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C94LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C94LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C94LCHFa = ) show FSa cvsshow2
(, C94LCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%CCMLCH
/d_CCMLCHavea d_CCMLCHsuma iai 1 add div def
100 yhot ydel 13 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CCMLCHmina = ) show d_CCMLCHmina cvsshow2
(, d_CCMLCHmaxa = ) show d_CCMLCHmaxa cvsshow2
(, d_CCMLCHavea = ) show d_CCMLCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CCMLCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CCMLCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CCMLCHFa = ) show FSa cvsshow2
(, CCMLCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C00LCH
/d_C00LCHavea d_C00LCHsuma iai 1 add div def
100 yhot ydel 16 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C00LCHmina = ) show d_C00LCHmina cvsshow2
(, d_C00LCHmaxa = ) show d_C00LCHmaxa cvsshow2
(, d_C00LCHavea = ) show d_C00LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C00LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C00LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C00LCHFa = ) show FSa cvsshow2
(, C00LCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C85LCH
/d_C85LCHavea d_C85LCHsuma iai 1 add div def
100 yhot ydel 19 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C85LCHmina = ) show d_C85LCHmina cvsshow2
(, d_C85LCHmaxa = ) show d_C85LCHmaxa cvsshow2
(, d_C85LCHavea = ) show d_C85LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C85LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C85LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C85LCHFa = ) show FSa cvsshow2
(, C85LCHSTRESSa = ) show SSa cvsshow2

} if %iXYZLAB=0,1

%***********************************************
iXYZLAB 2 eq iXYZLAB 3 eq or {%iXYZLAB=2,3
/iim i2i def

/d_CIELABave2 d_CIELABsum2 i2i 1 add div def
100 yhot ydel 4 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CIELABmin2 = ) show d_CIELABmin2 cvsshow2
(, d_CIELABmax2 = ) show d_CIELABmax2 cvsshow2
(, d_CIELABave2 = ) show d_CIELABave2 cvsshow2

%STOPa
/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELAB2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def
%STOP
/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELAB2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CIELABF2 = ) show FS2 cvsshow2
(, CIELABSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%CIELCH
/d_CIELCHave2 d_CIELCHsum2 i2i 1 add div def
100 yhot ydel 07 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CIELCHmin2 = ) show d_CIELCHmin2 cvsshow2
(, d_CIELCHmax2 = ) show d_CIELCHmax2 cvsshow2
(, d_CIELCHave2 = ) show d_CIELCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def
%STOPa2
/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 08.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CIELCHF2 = ) show FS2 cvsshow2
(, CIELCHSTRESS2 = ) show SS2 cvsshow2

%STOPb
%***********************************************
%C94LCH
/d_C94LCHave2 d_C94LCHsum2 i2i 1 add div def
100 yhot ydel 10 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C94LCHmin2 = ) show d_C94LCHmin2 cvsshow2
(, d_C94LCHmax2 = ) show d_C94LCHmax2 cvsshow2
(, d_C94LCHave2 = ) show d_C94LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C94LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C94LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C94LCHF2 = ) show FS2 cvsshow2
(, C94LCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%CCMLCH
/d_CCMLCHave2 d_CCMLCHsum2 i2i 1 add div def
100 yhot ydel 13 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CCMLCHmin2 = ) show d_CCMLCHmin2 cvsshow2
(, d_CCMLCHmax2 = ) show d_CCMLCHmax2 cvsshow2
(, d_CCMLCHave2 = ) show d_CCMLCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CCMLCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CCMLCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CCMLCHF2 = ) show FS2 cvsshow2
(, CCMLCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%C00LCH
/d_C00LCHave2 d_C00LCHsum2 i2i 1 add div def
100 yhot ydel 16 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C00LCHmin2 = ) show d_C00LCHmin2 cvsshow2
(, d_C00LCHmax2 = ) show d_C00LCHmax2 cvsshow2
(, d_C00LCHave2 = ) show d_C00LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C00LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C00LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C00LCHF2 = ) show FS2 cvsshow2
(, C00LCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%C85LCH
/d_C85LCHave2 d_C85LCHsum2 i2i 1 add div def
100 yhot ydel 19 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C85LCHmin2 = ) show d_C85LCHmin2 cvsshow2
(, d_C85LCHmax2 = ) show d_C85LCHmax2 cvsshow2
(, d_C85LCHave2 = ) show d_C85LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C85LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C85LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C85LCHF2 = ) show FS2 cvsshow2
(, C85LCHSTRESS2 = ) show SS2 cvsshow2

} if %iXYZLAB=2,3

%***********************************************
iXYZLAB 4 eq iXYZLAB 5 eq or {%iXYZLAB=4,5
/iim i4i def

/d_CIELABave4 d_CIELABsum4 i4i 1 add div def
100 yhot ydel 4 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CIELABmin4 = ) show d_CIELABmin4 cvsshow2
(, d_CIELABmax4 = ) show d_CIELABmax4 cvsshow2
(, d_CIELABave4 = ) show d_CIELABave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELAB4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELAB4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CIELABF4 = ) show FS4 cvsshow2
(, CIELABSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%CIELCH
/d_CIELCHave4 d_CIELCHsum4 i4i 1 add div def
100 yhot ydel 07 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CIELCHmin4 = ) show d_CIELCHmin4 cvsshow2
(, d_CIELCHmax4 = ) show d_CIELCHmax4 cvsshow2
(, d_CIELCHave4 = ) show d_CIELCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def
%STOPa2
/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 08.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CIELCHF4 = ) show FS4 cvsshow2
(, CIELCHSTRESS4 = ) show SS4 cvsshow2

%STOPb
%***********************************************
%C94LCH
/d_C94LCHave4 d_C94LCHsum4 i4i 1 add div def
100 yhot ydel 10 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C94LCHmin4 = ) show d_C94LCHmin4 cvsshow2
(, d_C94LCHmax4 = ) show d_C94LCHmax4 cvsshow2
(, d_C94LCHave4 = ) show d_C94LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C94LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C94LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C94LCHF4 = ) show FS4 cvsshow2
(, C94LCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%CCMLCH
/d_CCMLCHave4 d_CCMLCHsum4 i4i 1 add div def
100 yhot ydel 13 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CCMLCHmin4 = ) show d_CCMLCHmin4 cvsshow2
(, d_CCMLCHmax4 = ) show d_CCMLCHmax4 cvsshow2
(, d_CCMLCHave4 = ) show d_CCMLCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CCMLCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CCMLCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CCMLCHF4 = ) show FS4 cvsshow2
(, CCMLCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%C00LCH
/d_C00LCHave4 d_C00LCHsum4 i4i 1 add div def
100 yhot ydel 16 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C00LCHmin4 = ) show d_C00LCHmin4 cvsshow2
(, d_C00LCHmax4 = ) show d_C00LCHmax4 cvsshow2
(, d_C00LCHave4 = ) show d_C00LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C00LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C00LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C00LCHF4 = ) show FS4 cvsshow2
(, C00LCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%C85LCH
/d_C85LCHave4 d_C85LCHsum4 i4i 1 add div def
100 yhot ydel 19 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C85LCHmin4 = ) show d_C85LCHmin4 cvsshow2
(, d_C85LCHmax4 = ) show d_C85LCHmax4 cvsshow2
(, d_C85LCHave4 = ) show d_C85LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C85LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C85LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C85LCHF4 = ) show FS4 cvsshow2
(, C85LCHSTRESS4 = ) show SS4 cvsshow2

} if %iXYZLAB=4,5


} if %ii=iimaxP1

showpage
grestore

%} for %xchart=0,39

%%Trailer