%!PS-Adobe-3.0 EPSF-3.0 UE701-1A %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/UE70/) /author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014060112000) /ModDate (D:2014060112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /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 /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 %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TS} 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 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 /cvsshow4 {10000 mul cvi 0.0001 mul 8 string cvs show} def %Daten XYZ 650 x 16 = XXX, 650 colours a 16 data, only 26 achromatic used %special data WDN-WN: 294+004_020, 17 samples, Y=1.7_74.1 %special data WPN & QPN-QN: 308_329, 22 samples, Y=0.1_197, 15 samples Y=1.3_197 /IWDN1_WN 000 def /IWDN2_WN IWDN1_WN 25 add def /IWDN20_WN IWDN1_WN 8 add def /IQPN1_QN 308 def /IQPN2_QN IQPN1_QN 21 add def /IQPN20_QN IQPN1_QN 14 add def %special data WDN-TM: 231_241, 11 samples, Y=0.6_27.1, 9 samples Y=1.2_27.1 %special data WPN & OPN-TM: 242_263, 22 samples, Y=0.1_197, 15 samples Y=1.3_197 /IWDN1_TM 231 def /IWDN2_TM IWDN1_TM 10 add def /IWDN20_TM IWDN1_TM 8 add def /IQPN1_TM 242 def /IQPN2_TM IQPN1_TM 21 add def /IQPN20_TM IQPN1_TM 14 add def %special data WDN-BY: 044_054, 11 samples, Y=0.6_27.1, 9 samples Y=1.2_27.1 %special data WPN & OPN-BY: 055_076, 22 samples, Y=0.1_197, 15 samples Y=1.3_197 /IWDN1_BY 044 def /IWDN2_BY IWDN1_BY 10 add def /IWDN20_BY IWDN1_BY 8 add def /IQPN1_BY 055 def /IQPN2_BY IQPN1_BY 21 add def /IQPN20_BY IQPN1_BY 14 add def /XYZ [ %special exchange for achromatic colours 0_26 %UE5X0-7R.DAT calculated from %UE520-7R.PS with GS.SCRIPT PS->ASCII on ME17AG 140825 %1-003030-L0 UE510-7R + UE520-7R %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* %CIEXYZ*1000 data for all colour (A) of experiment 0090383 0100000 0087548 0024543 0027115 0023100 0024624 0027205 0023177 0001000 00082 00082 00082 00058 00073 00773 %0297 WDN_WN60 59 0 1 0090383 0100000 0087548 0015078 0016695 0014808 0015141 0016765 0014870 0001000 00089 00089 00089 00071 00087 00920 %0298 WDN_WN60 47 0 0 0090383 0100000 0087548 0009368 0010380 0009474 0009423 0010440 0009528 0001000 00104 00104 00104 00096 00090 01163 %0299 WDN_WN60 38 0 -1 0090383 0100000 0087548 0006284 0006960 0006400 0006320 0007000 0006436 0001000 00091 00091 00091 00096 00072 01044 %0300 WDN_WN60 31 0 -1 0090383 0100000 0087548 0004305 0004770 0004349 0004341 0004810 0004386 0001000 00117 00117 00117 00143 00086 01340 %0301 WDN_WN60 26 0 0 0090383 0100000 0087548 0002981 0003304 0002968 0003009 0003335 0002995 0001000 00112 00112 00112 00160 00078 01241 %0302 WDN_WN60 21 0 0 0090383 0100000 0087548 0002060 0002274 0001994 0002087 0002305 0002020 0001000 00143 00143 00143 00248 00096 01486 %0303 WDN_WN60 16 0 0 0090383 0100000 0087548 0001608 0001760 0001504 0001625 0001780 0001522 0001000 00114 00114 00114 00222 00075 01102 %0304 WDN_WN60 14 0 0 0090383 0100000 0087548 0001156 0001260 0001037 0001174 0001280 0001055 0001000 00142 00142 00142 00277 00091 01234 %0305 WDN_WN60 11 0 0 0096062 0100000 0106783 0016687 0017375 0018602 0016838 0017525 0018664 0001000 00273 00273 00273 00344 00274 02107 %0294 30WNA_60 50 0 0 0096062 0100000 0106783 0070007 0073960 0077526 0070448 0074400 0077716 0001000 00299 00299 00293 00306 00246 01613 %0295 30WNA_60 90 0 0 0096062 0100000 0106783 0000980 0001030 0001084 0001019 0001069 0001095 0001000 00524 00524 00521 00887 00459 02966 %0296 30WNA_60 10 0 0 0096062 0100000 0106783 0020850 0021820 0023207 0021000 0021960 0023267 0001000 00226 00226 00225 00276 00236 01609 %0301 30WNA_60 55 0 0 0096062 0100000 0106783 0025793 0027115 0028489 0025943 0027265 0028549 0001000 00204 00204 00201 00233 00193 01422 %0302 30WNA_60 60 0 0 0096062 0100000 0106783 0030393 0031850 0033366 0030573 0032029 0033445 0001000 00212 00212 00209 00237 00195 01455 %0303 30WNA_60 65 0 0 0096062 0100000 0106783 0036384 0038324 0039848 0036575 0038515 0039929 0001000 00200 00200 00196 00215 00178 01297 %0304 30WNA_60 70 0 0 0096062 0100000 0106783 0043308 0045554 0047796 0043539 0045785 0047898 0001000 00214 00214 00210 00230 00187 01334 %0305 30WNA_60 75 0 0 0096062 0100000 0106783 0050818 0053495 0055934 0051078 0053765 0056045 0001000 00229 00229 00224 00243 00192 01354 %0306 30WNA_60 80 0 0 0096062 0100000 0106783 0059072 0061995 0065639 0059390 0062305 0065769 0001000 00243 00243 00241 00271 00214 01357 %0307 30WNA_60 85 0 0 0096062 0100000 0106783 0013841 0014644 0015014 0013941 0014735 0015054 0001000 00197 00197 00193 00230 00209 01443 %0308 30WNA_60 45 0 0 0096062 0100000 0106783 0010059 0010525 0011123 0010138 0010595 0011153 0001000 00199 00199 00198 00261 00217 01489 %0309 30WNA_60 40 0 0 0096062 0100000 0106783 0007730 0008109 0008385 0007810 0008189 0008415 0001000 00246 00246 00241 00308 00225 02060 %0310 30WNA_60 35 0 0 0096062 0100000 0106783 0005610 0005859 0006057 0005670 0005920 0006077 0001000 00236 00236 00231 00312 00211 01960 %0311 30WNA_60 30 0 0 0096062 0100000 0106783 0003964 0004145 0004270 0004014 0004195 0004290 0001000 00235 00235 00231 00324 00205 01991 %0312 30WNA_60 25 0 0 0096062 0100000 0106783 0002655 0002780 0002909 0002705 0002840 0002930 0001000 00401 00401 00396 00610 00376 03021 %0313 30WNA_60 20 0 0 0096062 0100000 0106783 0001629 0001680 0001819 0001669 0001720 0001840 0001000 00316 00316 00315 00557 00260 02414 %0314 30WNA_60 15 0 0 ] def /Vexp 392 array def /Vexpa 392 array def /Vexpb 392 array def /Yexp 392 array def /alpha 392 array 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 /xgr 27 array def /ygr 27 array def /xs2 1 def /ys2 1 def /xfact 1400 def /yfact 1400 def /x018 18 def /xlin 27 array def /xlog 27 array def /xlis 27 array def /F0 27 array def /FK 27 array def /F0log 27 array def /FKlog 27 array def /xlogn 27 array def /xlinn 27 array def /F0n 27 array def /FKn 27 array def /xchart xchart1 def 0 1 02 {/xchart exch def %xchart=0,2 /xmode 0 def %0 1 03 {/xmode exch def %0 1 00 {/xmode exch def gsave %dY=A1(1+A2/A1*Y) xchart 0 eq {%xchart=0 %Richter (1985) D65, 60 cd/m**2, 25s, AGRI_HPPO2_009A_011.FOR %/A1 0.02169 def %/A2 0.003075 def %/A3 1.00000 def %/A4 1.00000 def %/author (Richter) def %/Atext (_D_PO2_009A) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, AGKI_HPPO2_017A_011.FOR %/A1 0.03885 def %/A2 0.004765 def %/A3 1.0000 def %/A4 1.0000 def %/author (Kittelmann) def %/Atext (_PO2_017A) def %Richter+Kittelmann D65, 60 cm/m**2, >5s, AGRK_HPPO2_026A_011.FOR /A1 0.03022 def /A2 0.004764 def /A3 1.0000 def /A4 1.0000 def /author (Rich+Kitt) def /Atext (_PO2_026A) def } if %xchart=0 xchart 1 eq {%xchart=1 %Richter (1985) D65, 60 cd/m**2, 25s, AGRI_HPPO4_027A_011.FOR %/A1 0.01972 def %/A2 0.003385 def %/A3 0.9221 def %/A4 1.8118 def %/author (Richter) def %/Atext (_D_PO4_027S) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, AGKI_HPPO4_068A_011.FOR %/A1 0.03912 def %/A2 0.004147 def %/A3 2.5070 def %/A4 0.5569 def %/author (Kittelmann) def %/Atext (_PO4_068A) def %Richter+Kittelmann D65, 60 cm/m**2, >5s, AGRK_HPPO4_095A_011.FOR /A1 0.02984 def /A2 0.003842 def /A3 1.5420 def /A4 0.8738 def /author (Rich+Kitt) def /Atext (_PO4_095A) def } if %xchart=1 xchart 2 eq {%xchart=2 %Richter (1985) D65, 60 cd/m**2, 25s, AGRI_HPPO5_258A_01.FOR %/A1 0.02566 def %/A2 0.002187 def %/A3 0.4145 def %/A4 0.7344 def %/A5 0.2799 def %/author (Richter) def %/Atext (_D_PO5_258A) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, AGKI_HPPO5_392A_01.FOR %/A1 0.03505 def %/A2 0.003458 def %/A3 1.1410 def %/A4 0.8536 def %/A5 0.2362 def %/author (Kittelmann) def %/Atext (_PO5_392A) def %Richter+Kittelmann D65, 60 cm/m**2, >5s, AGRK_HPPO5_650A_01.FOR /A1 0.03075 def /A2 0.003342 def /A3 0.6339 def /A4 0.8836 def /A5 0.2041 def /author (Rich+Kitt) def /Atext (_PO5_650A) def } if %xchart=2 /A2DA1 A2 A1 div def /Yexp18 18 def /iex1 IWDN1_WN def /iex2 IWDN2_WN def /Iexp iex2 iex1 sub def /kmax 0 def %xmode 2 le {/kmax 0 def}{/kmax 1 def} ifelse 0 1 kmax {/k exch def %k=0,kmax k 1 eq {/iex1 iex11 def /iex2 iex21 def} if iex1 1 iex2 {/i exch def %i=iex1,iex2 /i16 i 16 mul def /j i iex1 sub def /Xexu XYZ i16 0 add get 0.001 mul def /Yexu XYZ i16 1 add get 0.001 mul def /NA.PSu XYZ i16 2 add get 0.001 mul def /Xex1 XYZ i16 3 add get 0.001 mul def /Yex1 XYZ i16 4 add get 0.001 mul def /NA.PS1 XYZ i16 5 add get 0.001 mul def /Xex2 XYZ i16 6 add get 0.001 mul def /Yex2 XYZ i16 7 add get 0.001 mul def /NA.PS2 XYZ i16 8 add get 0.001 mul def /Xexm Xex1 Xex2 add 0.5 mul def /Yexm Yex1 Yex2 add 0.5 mul def /NA.PSm NA.PS1 NA.PS2 add 0.5 mul def /aanu Xexu Yexu div def /aan1 Xex1 Yex1 div def /aan2 Xex2 Yex2 div def /aanm Xexm Yexm div def /banu NA.PSu Yexu div -0.4 mul def /ban1 NA.PS1 Yex1 div -0.4 mul def /ban2 NA.PS2 Yex2 div -0.4 mul def /banm NA.PSm Yexm div -0.4 mul def xmode 0 eq {Vexp j Yex2 Yex1 sub put} if %delta_Y(I) xmode 1 eq {Vexp j aan1 aan2 sub %delta_a * Y(I) Yexm mul A3 mul put} if xmode 2 eq {Vexp j ban1 ban2 sub %delta_b * Y(I) Yexm mul A4 mul put} if xmode 3 eq k 0 eq and {Vexpa j aan1 aan2 sub %delta_c3 * Y(I) Yexm mul A3 mul put} if xmode 3 eq k 1 eq and {Vexpb j ban1 ban2 sub %delta_c4 * Y(I) Yexm mul A4 mul put alpha j banm banu sub A3 mul aanm aanu sub A4 mul atan put %delta_c4 * Y(I) Vexp j Vexpa j get alpha j get cos mul Vexpb j get alpha j get sin mul add put} if Yexp j Yex1 Yex2 add 0.5 mul put %Y(I) xlinn j Yexm 18 div put xlogn j Yexm 18 div log put F0n j A2 A1 div Yexm mul 1 add put FKn j F0n j get A1 mul put } for %i=iex1,iex2 } for %k=0,kmax 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS %175 85 moveto (UE701-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 8 def %0 1 15 {/xchartl exch def %xchartl=0,15 /xchartl4 xchartl xchartl 4 idiv 4 mul sub def %0..3 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UE701-) show} {(UE701-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth tfw 700 700 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke tfg [100] 0 setdash 1.0 700 mul 0 moveto 3.0 700 mul 0 lineto stroke [ ] 0 setdash tfw /yd 120 def %half /ytab 2300 def TBM /tx0 [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /txy [(0,25) (0,75) (1,25) (1,75) (2,25) (2,75)] def /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -400 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt 100 add -320 moveto xchartl 1 eq xchartl 9 eq or {txy} {tx0} ifelse i get exec ns4 ixt 100 add -600 moveto tz i get exec ns4 ixl 75 moveto 0 -150 rlineto stroke } for /xlog [-1.0 -0.75 -0.5 -0.25 0.0 0.25 0.5 0.75 1.00] def /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i 10 xlog i get exp 18 mul put F0 i A2 A1 div xlin i get mul 1 add put FK i F0 i get A1 mul put } for %i=0,IM xchartl 1 eq xchartl 9 eq or {%xchartl=1 or 9 -100 5.3 0700 mul add -300 moveto (x) js4 (y) ib6 (=log[) bs4 (Y) js4 (]) bs4 } %xchartl=1 or 9 { %xchartl#1 or 9 -550 5.3 0700 mul add -300 moveto (x) js4 (r) ib6 (=log[) bs4 (Y/Y) js4 (18) ib6 (]) bs4 } ifelse %xchartl#1 or 9 -350 5 0700 mul add -600 moveto (Y) js4 /xtab0 1500 def /xtab1 2600 def /xtab2 3200 def /xtab3 3700 def /xtab4 4250 def xtab2 ytab yd 10 mul sub moveto (A) ns6 (2) is6 (/A) ns6 (1) is6 ( = ) ns6 A2DA1 cvsshow4 xtab1 ytab yd 12 mul sub moveto (A) ns6 (1) is6 ( = ) ns6 A1 cvsshow4 xtab3 ytab yd 12 mul sub moveto TS (A) ns6 (2) is6 ( = ) ns6 A2 cvsshow4 xchart 1 ge {%xchart>=1 xtab1 ytab yd 14 mul sub moveto (A) ns6 (3) is6 ( = ) ns6 A3 cvsshow3 xtab3 ytab yd 14 mul sub moveto (A) ns6 (4) is6 ( = ) ns6 A4 cvsshow3 } if %xchart>=1 xchart 2 eq {%xchart=2 xtab0 ytab yd 16 mul sub moveto (A) ns6 (5) is6 ( = ) ns6 A5 cvsshow4 } if %xchart=2 tfw %text author tfw xtab1 ytab yd 16 mul sub moveto TS author ks6 Atext ks6 newpath tfn xtab1 2000 add ytab yd 16 mul sub 50 add 50 0 360 arc fill tfw xtab1 ytab yd 18 mul sub moveto TS xchart 3 le {((x,y,Y)) ks6 (u) is6 (=(0,33, 0,36, 18)) ns6} {((x,y,Y)) ks6 (u) is6 (=(0,40, 0,42, 18)) ns6} ifelse %************************************************************************** xchartl 7 le {%xchart<=7 /xcharte xchartl xchartl 2 idiv 2 mul sub def xchartl 0 eq xchartl 1 eq or {/iout 0 def /tfx {tfy} def} if xchartl 2 eq xchartl 3 eq or {/iout 0 def /tfx {tfy} def} if xchartl 4 eq xchartl 5 eq or {/iout 1 def /tfx {tfg} def} if xchartl 6 eq xchartl 7 eq or {/iout 2 def /tfx {tfb} def} if /tyln [(-4,0) (-3,0) (-2,0) (-1,0) ( 0,0) ( 1,0) ( 2,0)] def /tylog [(-2,0) (-1,5) (-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0)] def 0 1 4 {/i exch def TK /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto tylog i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto tfw (log [) bs2 tfy (dY) js2 tfw tfw (, ) ns2 tfn (D) ss2 (Y) js2 tfw (]) bs2 xchartl 1 le {%xchartl<=1 100 2600 moveto TK (f\374r unbunte Farben) showde (for achromatic colours) showea 100 2300 moveto TK (in WN\255Richtung) showde (in WN\255direction) showea } if %xchartl<=1 %constants /i 4 def /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def /yf1 FK 4 get def /yf2 dY def /yf3 dY SL mul def %equations 2500 3100 moveto tfy (dY) js6 tfw (=) bs6 (A) bs6 (1) is6 ([1+A) bs6 (2) is6 (/A) bs6 (1) is6 (Y) js6 (]) bs6 %header table xtab2 ytab 250 add moveto (x) js4 (r) ib4 xtab3 ytab 250 add moveto tfx (dY) js6 (n) is6 tfw xcharte 0 eq {xtab4 ytab 250 add moveto (Y) js6} {xtab4 50 sub ytab 250 add moveto (log Y) js6} ifelse %log dY tfw 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i FK i get put } for %i=0,IM tfn 35 setlinewidth %diagonal black broken line [100] 0 setdash -1.0 xs2 add xfact mul -2.0 2 add yfact mul moveto 1.0 xs2 add xfact mul 0.0 2 add yfact mul lineto stroke [ ] 0 setdash 50 setlinewidth tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM %values table (iout=0) 0 2 IM {/i exch def %i=0,2,IM xtab2 ytab yd i mul sub moveto TS xlog i get cvsshow1 /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def xtab3 ytab yd i mul sub moveto TS iout 0 eq {%iout=0 tfx FK i get cvsshow3 tfw } if %iout=0 xtab4 ytab yd i mul sub moveto TS xcharte 0 eq {%xcharte=0,1 xlin i get tfw i IM lt {cvsshow1}{cvishow} ifelse }%xcharte=0 {%xcharte=1 xlin i get log cvsshow2 } ifelse %xcharte=0,1 } for %i=0,2,IM newpath tfn 0 1 Iexp {/i exch def %i=0,Iexp Yexp i get Yexp18 div log xs2 add xfact mul Vexp i get abs log 2 add yfact mul 60 0 360 arc fill } for %i=0,Iexp tfw tfw 35 setlinewidth [100] 0 setdash %horizontal1 xgr 0 get xs2 add xfact mul yf1 log 2 add yfact mul moveto xgr 4 get xs2 add xfact mul yf1 log 2 add yfact mul lineto stroke %vertical1 xgr 4 get xs2 add xfact mul 0 yfact mul moveto xgr 4 get xs2 add xfact mul yf1 log 2 add yfact mul lineto stroke xchartl 2 ge {%2<=xchart<=7 %in addition horizontal2 xgr 0 get xs2 add xfact mul yf2 log 2 add yfact mul moveto xgr 4 get xs2 add xfact mul yf2 log 2 add yfact mul lineto stroke %vertical1 xgr 4 get xs2 add xfact mul yf1 log 2 add yfact mul moveto xgr 4 get xs2 add xfact mul yf2 log 2 add yfact mul lineto stroke } if %2<=xchartl<=7 [ ] 0 setdash 50 setlinewidth } if %xchartl<=7 xchartl 2 ge xchartl 7 le and {%2<=xchart<=7 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten %L*=116*(Y/100)**(1/3) - 16 %dL*/dY=116*(1/3)*(Y/100)**(-2/3)*(1/100.) %for dL*=1 %dY=100./(116/3.)*(Y/100)**(2/3) %dY=300./116.*(Y/100)**(2/3) %L*=116*(Y/100)**(1/3) - 16 = L' %(dL'/SL)/dY=116*(1/3)*(Y/100)**(-2/3)*(1/100.) %SL = 1 + 0.015*(L'-50)**2 / ((20.+(L'-50.))**2)**0.5) %dY=dL'*(Y/100)**(2/3)/(116*(1/3)*(1/100))*SL %dY=dL'*(100./(116/3.)*(Y/100)**(2/3))*SL %dY=dL'*(300./116.*(Y/100)**(2/3))*SL 2500 2850 moveto (S) js6 (n) is6 (=) bs6 (dY) js6 (CIELAB) is6 (/) bs6 (dY) js6 (JND) is6 (=) bs6 yf2 yf1 div cvsshow1 %specific values table (iout=1 & 2) 0 2 IM {/i exch def %i=0,2,IM xtab2 ytab yd i mul sub moveto TS xlog i get cvsshow1 /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def xtab3 ytab yd i mul sub moveto TS iout 1 eq {%iout=1 tfx dY yf1 mul yf2 div cvsshow3 tfw } if %iout=1 iout 2 eq {%iout=2 tfx dY SL mul yf1 mul yf3 div cvsshow3 tfw } if %iout=2 xtab4 ytab yd i mul sub moveto TS xcharte 0 eq {%xcharte=0,1 xlin i get tfw i IM lt {cvsshow1}{cvishow} ifelse }%xcharte=0 {%xcharte=1 xlin i get log cvsshow2 } ifelse %xcharte=0,1 } for %i=0,2,IM %log dY tfw 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i FK i get put } for %i=0,IM tfn 35 setlinewidth %diagonal broken line [100] 0 setdash -1.0 xs2 add xfact mul -2.0 2 add yfact mul moveto 1.0 xs2 add xfact mul 0.0 2 add yfact mul lineto stroke [ ] 0 setdash 50 setlinewidth tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i xlog i get put /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def ygr i dY put } for %i=0,IM tfg 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM 35 setlinewidth [100] 0 setdash tfg 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yf1 mul yf2 div log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw [ ] 0 setdash 50 setlinewidth %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i xlog i get put /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def ygr i dY SL mul put } for %i=0,Iexp tfb 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM [100] 0 setdash tfb 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yf1 mul yf3 div log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw [ ] 0 setdash 50 setlinewidth tfw xcharte 1 eq {%xcharte=1 %log dY 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i FK i get put } for %i=0,IM tfn 35 setlinewidth [100] 0 setdash -1.0 xs2 add xfact mul -2.0 2 add yfact mul moveto 1.0 xs2 add xfact mul 0.0 2 add yfact mul lineto stroke [ ] 0 setdash 50 setlinewidth tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get log 2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } if %xcharte=1 tfw xgr 0 get xs2 add xfact mul 100 add yf2 log 2 add yfact mul 100 add moveto (dY) js6 (CIELAB) is6 xgr 0 get xs2 add xfact mul 100 add yf1 log 2 add yfact mul 100 add moveto (dY) js6 (JND) is6 tfb xgr 0 get xs2 add xfact mul 050 add yf2 log 2 add yfact mul 100 add 350 sub moveto (DE2000) bs6 tfg xgr 0 get xs2 add xfact mul 400 add yf1 log 2 add yfact mul 100 add 300 add moveto (CIELAB) bs6 } if %2<=xchart<=7 %************************************************************************** xchartl 08 ge xchartl 15 le and {%8<=xchartl<=15 /xcharte xchartl xchartl 2 idiv 2 mul sub def xchartl 08 eq xchartl 09 eq or {/iout 0 def /tfx {tfy} def} if xchartl 10 eq xchartl 11 eq or {/iout 0 def /tfx {tfy} def} if xchartl 12 eq xchartl 13 eq or {/iout 1 def /tfx {tfg} def} if xchartl 14 eq xchartl 15 eq or {/iout 2 def /tfx {tfb} def} if %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5) ( 3,0)] def /tyln [(-4,0) (-3,0) (-2,0) (-1,0) ( 0,0) ( 1,0) ( 2,0)] def /tylog [(-2,0) (-1,5) (-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def TS /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten %constants /i 4 def /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def /yf1 FK 4 get def /yf2 dY def /yf3 dY SL mul def %equations 2500 3100 moveto tfy (dY) js6 tfw (=) bs6 (A) bs6 (1) is6 ([1+A) bs6 (2) is6 (/A) bs6 (1) is6 (Y) js6 (]) bs6 %header table xtab2 ytab 250 add moveto (x) js4 (r) ib4 xtab3 ytab 250 add moveto tfx (dY) js6 (n) is6 tfw xcharte 0 eq {xtab4 ytab 250 add moveto (Y) js6} {xtab4 50 sub ytab 250 add moveto (log Y) js6} ifelse %values table (iout=0) 0 2 IM {/i exch def %i=0,2,IM xtab2 ytab yd i mul sub moveto TS xlog i get cvsshow1 /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def xtab3 ytab yd i mul sub moveto TS iout 0 eq {%iout=0 tfx FK i get cvsshow3 tfw } if %iout=0 xtab4 ytab yd i mul sub moveto TS xcharte 0 eq {%xcharte=0,1 xlin i get tfw i IM lt {cvsshow1}{cvishow} ifelse }%xcharte=0 {%xcharte=1 xlin i get log cvsshow2 } ifelse %xcharte=0,1 } for %i=0,2,IM tfw 35 setlinewidth [100] 0 setdash %vertical 0 xs2 add xfact mul 0 yfact mul moveto 0 xs2 add xfact mul 1. yfact mul lineto stroke [ ] 0 setdash 50 setlinewidth xchartl 10 ge xchartl 15 le and {%10<=xchart<=15 2500 2850 moveto (S) js6 (n) is6 (=) bs6 (dY) js6 (CIELAB) is6 (/) bs6 (dY) js6 (JND) is6 (=) bs6 yf2 yf1 div cvsshow1 %specific values table (iout=1 & 2) 0 2 IM {/i exch def %i=0,2,IM xtab2 ytab yd i mul sub moveto TS xlog i get cvsshow1 /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def xtab3 ytab yd i mul sub moveto TS iout 1 eq {%iout=1 tfx dY yf1 mul yf2 div cvsshow3 tfw } if %iout=1 iout 2 eq {%iout=2 tfx dY SL mul yf1 mul yf3 div cvsshow3 tfw } if %iout=2 xtab4 ytab yd i mul sub moveto TS xcharte 0 eq {%xcharte=0,1 xlin i get tfw i IM lt {cvsshow1}{cvishow} ifelse }%xcharte=0 {%xcharte=1 xlin i get log cvsshow2 } ifelse %xcharte=0,1 } for %i=0,2,IM } if %10<=xchart<=15 } if %8<=xchartl<=15 %Special curves /xc1 8 def /xc2 9 def xchartl xc1 eq xchartl xc2 eq or {%xchart=xc1,xc2 %text -650 3000 moveto tfw ([) bs2 tfn (D) ss2 (Y) js2 tfw (]) bs2 (/) bs2 tfy (dY) js2 tfw ( = ) bs2 (D) ss2 (E*) js2 (LABJND) is2 100 2600 moveto TK (f\374r unbunte Farben) showde (for achromatic colours) showea 100 2300 moveto TK (in WN\255Richtung) showde (in WN\255direction) showea %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i 1. put } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,Iexp tfn 0 1 Iexp {/i exch def %i=0,Iexp xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul 60 0 360 arc fill } for %i=0,Iexp } if %xchartl=xc1,xc2 %Special curves /xc1 10 def /xc2 11 def xchartl xc1 eq xchartl xc2 eq or {%xchart=xc1,xc2 %text -650 3000 moveto tfw ([) bs2 tfb (dY) js2 tfw (]) bs2 (/) bs2 tfg (dY) js2 tfw %text 100 1000 moveto tfg (dY) js2 (n) is2 tfw (=) bs2 tfg (dY) js2 tfw (/) bs2 (S) js2 (n) is2 100 0600 moveto tfb (dY) js2 (n) is2 tfw (=) bs2 tfb (dY) js2 tfw (/) bs2 (S) js2 (n) is2 %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i 1. put } for %i=0,IM tfg 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i xlog i get put /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def ygr i SL put } for %i=0,IM tfb 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM } if %xchartl=xc1,xc2 %Special curves /xc1 12 def /xc2 13 def xchartl xc1 eq xchartl xc2 eq or {%xchart=xc1,xc2 %text -650 3000 moveto tfw ([) bs2 tfg (dY) js2 (n) is2 tfw (]) bs2 (/) bs2 tfy (dY) js2 tfw %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i 1. put } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,Iexp %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i xlog i get put /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def ygr i dY yf1 mul yf2 div FK i get div put } for %i=0,IM tfg 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfn 0 1 Iexp {/i exch def %i=0,Iexp xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul 60 0 360 arc fill } for %i=0,Iexp } if %xchartl=xc1,xc2 %Special curves /xc1 14 def /xc2 15 def xchartl xc1 eq xchartl xc2 eq or {%xchart=xc1,xc2 %text -650 3000 moveto tfw ([) bs2 tfb (dY) js2 (n) is2 tfw (]) bs2 (/) bs2 tfy (dY) js2 tfw %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i 1. put } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,Iexp %delta_Y/dY = 1 0 1 IM {/i exch def %i=0,IM xgr i xlog i get put /LS 116. xlin i get 100 div 0.333334 exp mul 16 sub def /SL 1 0.015 LS 50 sub dup mul mul 20.00 LS 50 sub dup mul add sqrt div add def /dY 300. 116. div xlin i get 100 div 0.666667 exp mul def ygr i dY SL mul yf1 mul yf3 div FK i get div put } for %i=0,IM tfb 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfn 0 1 Iexp {/i exch def %i=0,Iexp xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul 60 0 360 arc fill } for %i=0,Iexp } if %xchartl=xc1,xc2 50 setlinewidth 700 neg 700 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore %} for %xmode=0,2 } for %xchart=0,2 %%Trailer