%!PS-Adobe-3.0 EPSF-3.0 JG001-2N
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/JG00/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.Richter@mac.com)
  /CreationDate (D:2010010112000)
  /ModDate (D:2010010112000)
/DOCINFO pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END  PDFDE011
 
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {330 /Times-ISOL1 FS} bind def

/SK {250 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SG {330 /Symbol FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {330 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {330 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {330 /TimesBI-ISOL1 FS} bind def
 
/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBG show} bind def
/bkshow1 {TBIG show} bind def
/ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def
/eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def
 
/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/bkshow2 {TBIM show} bind def
/ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def
/eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {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
 
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
 
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
 
/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def
 
/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def
 
/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def
 
/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
 
%ANFA OUTLIN00 951204
/pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def
 
/outSK {250 /Symbol FS outxshow} bind def
/outSM {300 /Symbol FS outxshow} bind def
/outSG {350 /Symbol FS outxshow} bind def
 
/outshowf {setcmykcolor show} bind def
 
/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def
 
/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def
 
/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
 
%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 0 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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def
 
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
 
4 /Times-ISOL1 FS
205 86 moveto
( JG001-2) show
%     ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show

72 90 translate
0.01 MM dup scale
30 setlinewidth

0.0 0.0 0.0 0.5 setcmykcolor
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill

/FMC 1 def %M=chromatic moment (1), chroma (2)
/FIS 2 def %I=Increment (1), S=Scaling (2)
 
050 3725 moveto TBM tfw
(log ) show
(B) TBIM tzv outshowf
(R) TBIM tzo outshowf
(G) TBIM tzl outshowf
(J) TBIM tzy outshowf
TBIM tfw
FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse
TBM tfw
(\255Signale f\374r) showde (\255signals for) showen
FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen}
         {( K\366rperfarben) showde ( surface colours) showen} ifelse

tfw
550 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 3000 rlineto  stroke

FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1) show}
         { 000 500 moveto 3000 1500 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse

TBM
/tx [(-6) (-5) (-4) (-3) (-2) (-1) (  0) (  1)] def
/ty [(-4) (-3) (-2) (-1) (  0) (  1) (  2)] def
 
%!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
 
0 1 7 {/i exch def
       /ixt { -250 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        ixt -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for
 
%!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
 
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for
 
 35 setlinewidth
 tfn 000 2000 moveto 4000 0000 rlineto stroke tfw
 50 setlinewidth
 
3600 -300 moveto (x) TBIM tfw show
                 0 -50 rmoveto TBM (r) show 10 50 rmoveto
                 20 0 rmoveto
                 (=) TBM tfw show 20 0 rmoveto
                 (log) TBM tfw show 30 0 rmoveto
                 TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto
 
1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto
(Q) TBIM tfw show 30 0 rmoveto
([1,0c \050) TBM tfw show (x) TBIM tfw show
20 -50 rmoveto TBM (r) show 10 50 rmoveto
(+x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(\051]) TBM tfw show

2300 0600 moveto (-x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(=) show
FIS 1 eq {tfv (2)    show tfw (,) show
          tfo (1,50) show tfw (,) show
          tfl (1,0)  show tfw (,) show
          tfy (0,50) show tfw (,) show
          tfw (0) show
         }
         {tfv (1)    show tfw (,) show
          tfo (0,75) show tfw (,) show
          tfl (0,5)  show tfw (,) show
          tfy (0,25) show tfw (,) show
          tfw (0) show
         } ifelse
 
2750 0200 moveto (L) TBIM tfw show
TBK 20 -80 rmoveto (b) show 50 80 rmoveto
(= 100 cd) TBM tfw show
20 0 rmoveto (/) TBM tfw show
10 0 rmoveto (m) TBM tfw show
TBK 20 100 rmoveto (2) show 0 -100 rmoveto
 
3400 1400 moveto TBM tfw
FMC 1 eq {(I) TBIM tfw show}
         {(D+I) TBIM tfw show} ifelse
(\255Proze\337) showde                                                %08241-5 3
( process) showen                                                %18241-5 3
(Pro\255) showes                                                %28241-5 3
(pro\255) showfr                                                %38241-5 3
(pro\255) showit                                                %48241-5 3
(pro\255) showjp                                                %58241-5 3
 
/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DLL 11 array def
/DLU 11 array def
/DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.
      100000. 1000000.] def
/YFAK 4 array def
/YFAK [ 1.0 1.8 3.2 5.6] def
/DL 40 array  def
/DU 40 array  def
/XF 40 array  def
/R00KXU 40 array  def
/RLMKXU 40 array  def

%Achromatic
/F0 40 array  def %I-W
/F1 40 array  def %D-N
/F2 40 array  def %ID-NM

/F3 40 array  def %I-B
/F4 40 array  def %D-b
/F5 40 array  def %ID-BW

/F6 40 array  def %I-B
/F7 40 array  def %D-b
/F8 40 array  def %ID-BW

%Blue
/FB0 40 array  def %I-W
/FB1 40 array  def %D-N
/FB2 40 array  def %ID-NM

/FB3 40 array  def %I-B
/FB4 40 array  def %D-b
/FB5 40 array  def %ID-BW

/FB6 40 array  def %I-B
/FB7 40 array  def %D-b
/FB8 40 array  def %ID-BW

%yellow
/FY0 40 array  def %I-W
/FY1 40 array  def %D-N
/FY2 40 array  def %ID-NM

/FY3 40 array  def %I-Y
/FY4 40 array  def %D-y
/FY5 40 array  def %ID-YW

/FY6 40 array  def %I-Y
/FY7 40 array  def %D-y
/FY8 40 array  def %ID-YW

%Green
/FG0 40 array  def %I-W
/FG1 40 array  def %D-N
/FG2 40 array  def %ID-NM

/FG3 40 array  def %I-G
/FG4 40 array  def %D-g
/FG5 40 array  def %ID-GW

/FG6 40 array  def %I-G
/FG7 40 array  def %D-g
/FG8 40 array  def %ID-GW

%red
/FR0 40 array  def %I-W
/FR1 40 array  def %D-N
/FR2 40 array  def %ID-NM

/FR3 40 array  def %I-R
/FR4 40 array  def %D-r
/FR5 40 array  def %ID-RW

/FR6 40 array  def %I-R
/FR7 40 array  def %D-r
/FR8 40 array  def %ID-RW

/IORX 2000 def
/IORY 2000 def
/MULX 500 def
/MULY 500 def

50 setlinewidth
tfn
0 2000 moveto 4000 0 rlineto stroke

0 1 9 {/k exch def %k=0,9
       DLU k DLL k get put
       0 1 3 {/j exch def %j=0,3
              /i k 4 mul j add def %i=0,39
              DL i DLL k get YFAK j get mul put
              DU i DL i get put
              } for %j=0,3
      } for %k=0,10

/W2 2. sqrt def
/XP 0 def
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def 
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def
               
               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put
               
               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put
               
               j 0 eq {F0 i RLMKXU i get put} if
               j 1 eq {F1 i RLMKXU i get put} if
               j 1 eq {F2 i F0 i get F1 i get add put} if
              } for %i=0,38
      /XFX0 0.0 def
      /F01X0 10 XFX0 XU sub XP add XC mul exp def
      /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def
      /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def
      j 0 eq {/F0X0 RLMKXUX0 def} if
      j 1 eq {/F1X0 RLMKXUX0 def} if
      j 1 eq {/F2X0 F0X0 F1X0 add def} if
      } for %j=0,1

50 setlinewidth

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %D
%j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF i       get MULX mul add} bind def
%        /y20 {IORY F0 i       get MULY mul add} bind def
%        /x21 {IORX XF i 1 add get MULX mul add} bind def
%        /y21 {IORY F0 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF i 2 add get MULX mul add} bind def
%        /y22 {IORY F0 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke
%} for %j=0,1

21 3 27 {/i exch def  %i=21,3,27
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        /x20 IORX 2 XP sub MULX mul add def
        tfn
        i 21 eq i 27 eq or {0  y20 moveto 4000 0 rlineto stroke} if
        4050 y20 50 sub moveto tfw
        FMC 1 eq {i 21 eq {( 4%) show} if
                  i 24 eq {(20%) show} if
                  i 27 eq {(90%) show} if}
                 {i 27 eq {(90%, 20%, 4%) show} if} ifelse
         i 27 eq {150 y20 350 add moveto
                  (relative luminance) showen
                  (relative Leuchtdichte) showde
                  150 y20 100 add moveto tfw
                  (compared to white) showen
                  (verglichen mit Wei\368) showde
                 } if

        } for %i=21,3,27

0 1 1 {/j exch def %j=0,1
j 0 eq {0 0 0 1 setcmykcolor [   ] 0 setdash} if %I
j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I
0 3 36 {/i exch def  %i=0,3,36 
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get MULY mul add} bind def
        /x21 {IORX XF i 1 add get MULX mul add} bind def
        /y21 {IORY F1 i 1 add get MULY mul add} bind def
        /x22 {IORX XF i 2 add get MULX mul add} bind def
        /y22 {IORY F1 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36 
stroke
} for %j=0,1

21 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        i 21 eq {tfn x20 y20 75 0 360 arc fill} if
        i 24 eq {tfw x20 y20 85 0 360 arc fill
                 tfz x20 y20 65 0 360 arc fill} if
        i 27 eq {tfw x20 y20 75 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI
%j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF i       get MULX mul add} bind def
%        /y20 {IORY F2 i       get MULY mul add} bind def
%        /x21 {IORX XF i 1 add get MULX mul add} bind def
%        /y21 {IORY F2 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF i 2 add get MULX mul add} bind def
%        /y22 {IORY F2 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke
%} for %j=0,1

/XP 0.50 FIS div def %Y
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def
               
               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put
               
               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put
               
               j 0 eq {FY3 i RLMKXU i get put} if
               j 1 eq {FY4 i RLMKXU i get put} if
               j 1 eq {FY5 i FY3 i get FY4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FY3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FY3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FY3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke

0 0 1 0 setcmykcolor [   ] 0 setdash %I-Y
0 3 36 {/i exch def  %i=0,3,36 
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FY4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FY4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FY4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36 
stroke

21 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 2 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FY4 i 2 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 21 eq {tfn} if
        i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if
        i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if
        x20 y20 75 0 360 arc fill
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FY5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FY5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FY5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke
%} for %j=0,1

/XP 1.0 FIS div  def %G
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def
               
               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put
               
               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put
               
               j 0 eq {FG3 i RLMKXU i get put} if
               j 1 eq {FG4 i RLMKXU i get put} if
               j 1 eq {FG5 i FG3 i get FG4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FG3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FG3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FG3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke

1 0 1 0 setcmykcolor [   ] 0 setdash %I-G
0 3 36 {/i exch def  %i=0,3,36 
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FG4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FG4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FG4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36 
stroke

21 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 4 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FG4 i 4 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 21 eq {tfn} if
        i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if
        i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if
        x20 y20 75 0 360 arc fill
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FG5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FG5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FG5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke
%} for %j=0,1

/XP 1.5 FIS div  def %R
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def
               
               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put
               
               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put
               
               j 0 eq {FR3 i RLMKXU i get put} if
               j 1 eq {FR4 i RLMKXU i get put} if
               j 1 eq {FR5 i FR3 i get FR4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FR3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FR3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FR3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke

0 1 1 0 setcmykcolor [   ] 0 setdash %I-R
0 3 36 {/i exch def  %i=0,3,36 
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FR4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FR4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FR4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36 
stroke

21 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 6 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FR4 i 6 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 21 eq {tfn} if
        i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if
        i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if
        x20 y20 75 0 360 arc fill
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FR5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FR5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FR5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

/XP 2 FIS idiv  def %B
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def
               
               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put
               
               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put
               
               j 0 eq {FB3 i RLMKXU i get put} if
               j 1 eq {FB4 i RLMKXU i get put} if
               j 1 eq {FB5 i FB3 i get FB4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FB3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FB3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FB3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke

1 1 0 0 setcmykcolor [   ] 0 setdash %I-B
0 3 36 {/i exch def  %i=0,3,36 
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FB4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FB4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FB4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36 
stroke

21 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 8 FIS idiv sub get MULX mul add} bind def
        /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 21 eq {tfn} if
        i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if
        i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if
        x20 y20 75 0 360 arc fill
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36 
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FB5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FB5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FB5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36 
%stroke
%} for %j=0,1

showpage
grestore

} for %output with langind end

%%Trailer