%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fgb5/fgb51-6 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /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: farbe.li.tu-berlin.de/fgb5/fgb5.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %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 /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 74 86 moveto (fgb51-6N) 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=spectral colours (1), S=surface colours (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 (\255Erregung f\374r) showde (\255response 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 tfo [100 100] 0 setdash 2000 0000 moveto 0000 2600 rlineto stroke tfw [ ] 0 setdash tfl [100 100] 0 setdash 2130 0000 moveto 0000 2700 rlineto stroke tfw [ ] 0 setdash 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 3600 1000 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse TBM (\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 %0000 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 TBM 18 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 { 1300 i 18 sub 80 mul add y20 moveto 1800 0 rlineto stroke % } if 700 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(0,4%) show} if i 21 eq {( 2%) show} if i 24 eq {( 9%) show} if i 27 eq {(40%) show} if } if 3200 i 18 sub 80 mul add y20 050 sub moveto tfw FMC 1 eq {i 18 eq {(4%) show} if i 21 eq {(20%) show} if i 24 eq {(90%) show} if i 27 eq {(400%) show} if } if i 27 eq {050 y20 350 add moveto tfw (relative luminance:) showen (Relative Leuchtdichte:) 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 18 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 18 eq {tfn x20 y20 75 0 360 arc fill} if i 21 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 24 eq {tfw x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 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 18 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 18 eq {tfn} if i 21 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 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-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 18 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 18 eq {tfn} if i 21 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 24 eq {1.0 0.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 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-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 18 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 18 eq {tfn} if i 21 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 24 eq {0.0 1.0 1.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 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-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 18 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 18 eq {tfn} if i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if i 24 le {x20 y20 75 0 360 arc fill} if i 27 eq {tfw x20 y20 85 0 360 arc fill tfn x20 y20 15 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-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 tfy [ ] 0 setdash 2250 1370 moveto 0000 0630 rlineto 0750 0000 rlineto stroke tfo 2270 1370 moveto -530 0000 rlineto stroke showpage grestore } for %output with langind end %%Trailer