%!PS-Adobe-3.0 EPSF-3.0 WG430-3A %%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/WG43/) /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:2015050112000) /ModDate (D:2015050112000) /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 %21*18*3 data from 'WK36'Y10-7R.EPS /XYZ 1200 array def %min 21x19x3=1197 /XYZ [%BEG XYZ Kittelmann DATA P-EXP %WEXX0-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 150421: . %line4: 255 %BEG WE34K-7T_AL.TXT %WPN-AL_KI2.TXT %WDN-WM_KI2.TXT from UE920-7R.PS nr. 294_314, 349, Kittelmann 2009 0096062 0100000 0106783 0016687 0017375 0018602 0016838 0017525 0018664 0001000 00273 00273 00273 00344 00274 02107 12000294 (30WNA_60) 48 0 0 %01 0096062 0100000 0106783 0070007 0073960 0077526 0070448 0074400 0077716 0001000 00299 00299 00293 00306 00246 01613 12000295 (30WNA_60) 89 -2 1 %02 0096062 0100000 0106783 0000980 0001030 0001084 0001019 0001069 0001095 0001000 00524 00524 00521 00887 00459 02966 12000296 (30WNA_60) 9 0 0 %03 0096062 0100000 0106783 0020850 0021820 0023207 0021000 0021960 0023267 0001000 00226 00226 00225 00276 00236 01609 12000301 (30WNA_60) 53 0 0 %04 0096062 0100000 0106783 0025793 0027115 0028489 0025943 0027265 0028549 0001000 00204 00204 00201 00233 00193 01422 12000302 (30WNA_60) 59 -1 0 %05 0096062 0100000 0106783 0030393 0031850 0033366 0030573 0032029 0033445 0001000 00212 00212 00209 00237 00195 01455 12000303 (30WNA_60) 63 0 0 %06 0096062 0100000 0106783 0036384 0038324 0039848 0036575 0038515 0039929 0001000 00200 00200 00196 00215 00178 01297 12000304 (30WNA_60) 68 -1 1 %07 0096062 0100000 0106783 0043308 0045554 0047796 0043539 0045785 0047898 0001000 00214 00214 00210 00230 00187 01334 12000305 (30WNA_60) 73 -1 0 %08 0096062 0100000 0106783 0050818 0053495 0055934 0051078 0053765 0056045 0001000 00229 00229 00224 00243 00192 01354 12000306 (30WNA_60) 78 -1 1 %09 0096062 0100000 0106783 0059072 0061995 0065639 0059390 0062305 0065769 0001000 00243 00243 00241 00271 00214 01357 12000307 (30WNA_60) 82 -1 0 %10 0096062 0100000 0106783 0013841 0014644 0015014 0013941 0014735 0015054 0001000 00197 00197 00193 00230 00209 01443 12000308 (30WNA_60) 45 -1 1 %11 0096062 0100000 0106783 0010059 0010525 0011123 0010138 0010595 0011153 0001000 00199 00199 00198 00261 00217 01489 12000309 (30WNA_60) 38 0 0 %12 0096062 0100000 0106783 0007730 0008109 0008385 0007810 0008189 0008415 0001000 00246 00246 00241 00308 00225 02060 12000310 (30WNA_60) 34 0 1 %13 0096062 0100000 0106783 0005610 0005859 0006057 0005670 0005920 0006077 0001000 00236 00236 00231 00312 00211 01960 12000311 (30WNA_60) 29 0 0 %14 0096062 0100000 0106783 0003964 0004145 0004270 0004014 0004195 0004290 0001000 00235 00235 00231 00324 00205 01991 12000312 (30WNA_60) 24 0 0 %15 0096062 0100000 0106783 0002655 0002780 0002909 0002705 0002840 0002930 0001000 00401 00401 00396 00610 00376 03021 12000313 (30WNA_60) 19 0 0 %16 0096062 0100000 0106783 0001629 0001680 0001819 0001669 0001720 0001840 0001000 00316 00316 00315 00557 00260 02414 12000314 (30WNA_60) 13 0 0 %17 0096062 0100000 0106783 0002200 0002284 0002540 0002239 0002315 0002560 0001000 00284 00284 00282 00436 00364 01636 12000349 (30WNA_60) 17 0 0 %18 %CIELAB_WN.TXT FROM WE280-7R_WN.TXT FOR NORMALIZATION % 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 18110008 (50002_WN) 50 0 0 %19=U %WDN-RC_KI2.TXT from UE920-7R.PS nr. 35, 2, 7-20,_263, Kittelmann 2009 0096062 0100000 0106783 0016728 0017435 0018633 0016797 0017465 0018633 0001000 00239 00239 00239 00368 00348 00706 12000000 (30RCA_60) 48 0 0 %01 0096062 0100000 0106783 0070108 0074135 0077621 0070347 0074225 0077621 0001000 00340 00340 00314 00431 00441 00635 12000001 (30RCA_60) 89 -2 1 %02 0096062 0100000 0106783 0000990 0001045 0001089 0001010 0001055 0001089 0001000 00406 00407 00403 00612 00570 01049 12000002 (30RCA_60) 9 0 0 %03 0096062 0100000 0106783 0020895 0021880 0023237 0020955 0021900 0023237 0001000 00198 00198 00194 00291 00285 00494 12000007 (30RCA_60) 53 0 0 %04 0096062 0100000 0106783 0025833 0027175 0028519 0025903 0027205 0028519 0001000 00180 00180 00174 00250 00248 00478 12000008 (30RCA_60) 59 -1 0 %05 0096062 0100000 0106783 0030443 0031925 0033406 0030523 0031955 0033406 0001000 00197 00197 00192 00276 00278 00469 12000009 (30RCA_60) 63 0 0 %06 0096062 0100000 0106783 0036430 0038399 0039889 0036529 0038440 0039889 0001000 00211 00211 00202 00281 00285 00491 12000010 (30RCA_60) 68 -1 1 %07 0096062 0100000 0106783 0043368 0045649 0047847 0043479 0045690 0047847 0001000 00219 00219 00209 00296 00299 00466 12000011 (30RCA_60) 73 -1 0 %08 0096062 0100000 0106783 0050893 0053605 0055990 0051003 0053655 0055990 0001000 00175 00175 00167 00232 00233 00402 12000012 (30RCA_60) 78 -1 1 %09 0096062 0100000 0106783 0059151 0062120 0065704 0059311 0062180 0065704 0001000 00252 00252 00242 00348 00347 00501 12000013 (30RCA_60) 82 -1 0 %10 0096062 0100000 0106783 0013876 0014684 0015034 0013906 0014695 0015034 0001000 00133 00133 00127 00177 00181 00351 12000014 (30RCA_60) 45 -1 1 %11 0096062 0100000 0106783 0010084 0010555 0011138 0010113 0010565 0011138 0001000 00161 00161 00158 00238 00233 00455 12000015 (30RCA_60) 38 0 0 %12 0096062 0100000 0106783 0007755 0008144 0008400 0007785 0008154 0008400 0001000 00194 00194 00190 00275 00278 00557 12000016 (30RCA_60) 34 0 1 %13 0096062 0100000 0106783 0005630 0005884 0006067 0005650 0005895 0006067 0001000 00129 00129 00128 00186 00183 00474 12000017 (30RCA_60) 29 0 0 %14 0096062 0100000 0106783 0003979 0004165 0004280 0003999 0004175 0004280 0001000 00162 00162 00160 00234 00229 00587 12000018 (30RCA_60) 24 0 0 %15 0096062 0100000 0106783 0002670 0002804 0002919 0002690 0002815 0002920 0001000 00206 00206 00204 00305 00288 00716 12000019 (30RCA_60) 19 0 0 %16 0096062 0100000 0106783 0001639 0001695 0001829 0001659 0001705 0001830 0001000 00289 00289 00286 00444 00401 00903 12000020 (30RCA_60) 13 0 0 %17 0096062 0100000 0106783 0002210 0002294 0002550 0002230 0002305 0002550 0001000 00241 00241 00238 00355 00341 00811 12000055 (30RCA_60) 17 0 0 %18 %CIELAB_RG.TXT FROM WE280-7R_RG.TXT FOR NORMALIZATION % 0095040 0100000 0108880 0017505 0018418 0020054 0017691 0018419 0020055 0001000 00999 00989 00989 01550 01449 00223 18100113 (50002_RG) 50 0 0 %19=U %WDN-YB_KI2.TXT from UE920-7R.PS nr. 196_216, Kittelmann 2009 0096062 0100000 0106783 0016742 0017445 0018524 0016783 0017455 0018744 0001000 00452 00452 00450 00693 00489 01953 12000196 (30BYA_60) 48 0 0 %01 0096062 0100000 0106783 0070143 0074165 0077178 0070312 0074195 0078066 0001000 00726 00726 00663 00913 00710 02105 12000197 (30BYA_60) 89 -2 1 %02 0096062 0100000 0106783 0000991 0001050 0001043 0001009 0001050 0001137 0001000 01409 01409 01361 01987 01551 04517 12000198 (30BYA_60) 9 0 0 %03 0096062 0100000 0106783 0020905 0021890 0023138 0020945 0021890 0023337 0001000 00393 00393 00384 00576 00435 01546 12000203 (30BYA_60) 53 0 0 %04 0096062 0100000 0106783 0025842 0027185 0028377 0025894 0027195 0028662 0001000 00451 00451 00427 00619 00462 01729 12000204 (30BYA_60) 59 -1 0 %05 0096062 0100000 0106783 0030447 0031930 0033221 0030519 0031950 0033592 0001000 00512 00512 00483 00704 00524 01899 12000205 (30BYA_60) 63 0 0 %06 0096062 0100000 0106783 0036436 0038410 0039673 0036524 0038429 0040105 0001000 00544 00544 00499 00706 00544 01883 12000206 (30BYA_60) 68 -1 1 %07 0096062 0100000 0106783 0043374 0045664 0047579 0043473 0045675 0048116 0001000 00620 00620 00578 00824 00632 02055 12000207 (30BYA_60) 73 -1 0 %08 0096062 0100000 0106783 0050892 0053620 0055690 0051004 0053640 0056291 0001000 00608 00608 00561 00791 00607 01939 12000208 (30BYA_60) 78 -1 1 %09 0096062 0100000 0106783 0059168 0062140 0065354 0059294 0062160 0066056 0001000 00641 00641 00611 00880 00662 01987 12000209 (30BYA_60) 82 -1 0 %10 0096062 0100000 0106783 0013877 0014690 0014951 0013905 0014690 0015117 0001000 00422 00422 00386 00546 00421 01771 12000210 (30BYA_60) 45 -1 1 %11 0096062 0100000 0106783 0010083 0010560 0011058 0010114 0010560 0011219 0001000 00511 00511 00495 00745 00561 02285 12000211 (30BYA_60) 38 0 0 %12 0096062 0100000 0106783 0007755 0008149 0008325 0007786 0008149 0008475 0001000 00586 00586 00550 00805 00632 02590 12000212 (30BYA_60) 34 0 1 %13 0096062 0100000 0106783 0005629 0005890 0006018 0005650 0005890 0006117 0001000 00485 00485 00462 00683 00535 02165 12000213 (30BYA_60) 29 0 0 %14 0096062 0100000 0106783 0003979 0004170 0004226 0003999 0004170 0004335 0001000 00653 00653 00619 00911 00703 02918 12000214 (30BYA_60) 24 0 0 %15 0096062 0100000 0106783 0002670 0002804 0002866 0002690 0002815 0002974 0001000 00700 00700 00672 01001 00708 03211 12000215 (30BYA_60) 19 0 0 %16 0096062 0100000 0106783 0001644 0001700 0001781 0001654 0001700 0001879 0001000 00947 00947 00939 01425 00969 03933 12000216 (30BYA_60) 13 0 0 %17 0096062 0100000 0106783 0002205 0002300 0002487 0002234 0002300 0002614 0001000 01141 01141 01129 01744 01297 04681 12000251 (30BYA_60) 17 0 0 %18 %CIELAB_YB.TXT FROM WE280-7R_YB.TXT FOR NORMALIZATION % 0095040 0100000 0108880 0017505 0018418 0020054 0017506 0018419 0019531 0001000 00999 00999 00999 01565 00977 00454 18140218 (50002_BY) 50 0 0 %19=U %END WE34K-7T_AL.TXT ] def %END XYZ /Vexp 330 array def /Vexpa 330 array def /Vexpb 330 array def /Yexp 330 array def /alpha 330 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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /xgr 22 array def /ygr 22 array def /xs2 1 def /ys2 1 def /xfact 1400 def /yfact 1400 def /x018 18 def /xlin 22 array def /xlog 22 array def /xlis 22 array def /F0 22 array def /FK 22 array def /F0log 22 array def /FKlog 22 array def /xlogn 22 array def /xlinn 22 array def /F0n 22 array def /FKn 22 array def /xchart xchart1 1 add def %PO4 %0 1 02 {/xchart exch def %xchart=0,2 /xmode 1 def %0 1 03 {/xmode exch def %0 1 00 {/xmode exch def gsave xmode 0 eq {/tfarc1 {0 0 0 setrgbcolor 60 090 270 arc fill} def /tfarc2 {1 1 1 setrgbcolor 60 270 450 arc fill 0 setgray} def } if xmode 1 eq {/tfarc1 {0 1 1 setrgbcolor 60 090 270 arc fill} def /tfarc2 {1 0 0 setrgbcolor 60 270 450 arc fill 0 setgray} def } if xmode 2 eq {/tfarc1 {0 0 1 setrgbcolor 60 090 270 arc fill} def /tfarc2 {1 1 0 setrgbcolor 60 270 450 arc fill 0 setgray} def } if %dY=A1(1+A2/A1*Y) xchart 0 eq {%xchart=0 %Richter (1985) P, 60 cd/m**2, 25s, AGRI_HPPO2_022S_01.FOR %/A1 0.02054 def %/A2 0.005947 def %/A3 1.00000 def %/A4 1.00000 def %/author (Richter) def %/Atext (_D_PO2_022S) 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 } if %xchart=0 xchart 1 eq {%xchart=1 %Richter (1985) P, 60 cd/m**2, 25s, AGRI_HPPO2_066S_01.FOR /A1 0.01878 def /A2 0.006396 def /A3 1.0000 def /A4 1.0000 def /author (Richter) def /Atext (_D_PO2_066S) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, %AGKI_HPPO4_068A_011.FOR (A1_A5) AND AGKI_HPPO4_068A_0S.FOR (A1_A4) %same result! %proposal VA=A3*Delta_a*Y/(A1+A2*Y) %proposal VB=A4*Delta_b*Y/(A1+A2*Y) /A1 0.03912 def /A2 0.004147 def /A3 2.5070 def /A4 0.5569 def /author (Kittelmann) def /Atext (_PO4_068A) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, AGKI_HPPO4_051A_011.FOR %proposal VA=A3*Delta_a*Y/(A1+A2*Y) %/A1 0.04455 def %/A2 0.004000 def %/A3 3.6540 def %/A4 0.5000 def %/author (Kittelmann) def %/Atext (_PO4_051A) def %3X17 } if %xchart=1 xchart 2 eq {%xchart=2 %Richter (1985) P, 60 cd/m**2, 25s, AGRI_HPPO4_066A_01.FOR %/A1 0.02193 def %/A2 0.006537 def %/A3 1.179 def %/A4 1.685 def %/A5 0.2981 def %/author (Richter) def %/Atext (_P_PO4_066A) def %Kittelmann (2009) D65, 60 cm/m**2, >5s, AGKI_HPPO5_392A_01.FOR %proposal VA=[A3*Delta_a*Y/(1+A5*A3*Delta_a*Y)]/(A1+A2*Y) %proposal VB=[A4*Delta_b*Y/(1+A5*A4*Delta_b*Y)]/(A1+A2*Y) /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 } if %xchart=2 /A2DA1 A2 A1 div def /Yexp18 18 def /iex1 17 def /iex2 33 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 /i21 i 21 mul def /j i iex1 sub def /Xexu XYZ i21 0 add get 0.001 mul def /Yexu XYZ i21 1 add get 0.001 mul def /Zexu XYZ i21 2 add get 0.001 mul def /Xex1 XYZ i21 3 add get 0.001 mul def /Yex1 XYZ i21 4 add get 0.001 mul def /Zex1 XYZ i21 5 add get 0.001 mul def /Xex2 XYZ i21 6 add get 0.001 mul def /Yex2 XYZ i21 7 add get 0.001 mul def /Zex2 XYZ i21 8 add get 0.001 mul def /Xexm Xex1 Xex2 add 0.5 mul def /Yexm Yex1 Yex2 add 0.5 mul def /Zexm Zex1 Zex2 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 Zexu Yexu div -0.4 mul def /ban1 Zex1 Yex1 div -0.4 mul def /ban2 Zex2 Yex2 div -0.4 mul def /banm Zexm 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 dup mul ban1 ban2 sub %delta_a**2 * Y(I) Yexm mul A4 mul dup mul %delta_b**2 * Y(I) add 0.000001 add sqrt put} if %**(1/2) xmode 2 eq {Vexp j aan1 aan2 sub %delta_a * Y(I) Yexm mul A3 mul dup mul ban1 ban2 sub %delta_a**2 * Y(I) Yexm mul A4 mul dup mul %delta_b**2 * Y(I) add 0.000001 add sqrt put} if %**(1/2) 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 (WG430-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 2 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 {(WG430-) show} {(WG431-) 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 xtab1 2000 add ytab yd 16 mul sub 50 add tfarc1 xtab1 2000 add ytab yd 16 mul sub 50 add tfarc2 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 (, ) ns2 xmode 0 eq {tfn (D) ss2 (Y) js2} if xmode 1 eq {tfn (A) js2 (3) is2 ip4 (D) ss2 (a) js2 ip4 (Y) js2} if xmode 2 eq {tfn (A) js2 (4) is2 ip4 (D) ss2 (b) js2 ip4 (Y) js2} if tfw (]) bs2 xchartl 1 le {%xchartl<=1 100 2600 moveto TK (f\374r unbunte Farben) showde (for achromatic colours) showea 100 2300 moveto TK xmode 0 eq {%xmode=0 (in WN\255Richtung) showde (in WN\255direction) showea } if %xmode=0 xmode 1 eq {%xmode=1 (in TM\255Richtung) showde (in TM\255direction) showea } if %xmode=1 xmode 2 eq {%xmode=2 (in BY\255Richtung) showde (in BY\255direction) showea } if %xmode=2 } 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 3100 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 tfarc1 Yexp i get Yexp18 div log xs2 add xfact mul Vexp i get abs log 2 add yfact mul tfarc2 } 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 3100 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 xmode 0 eq {tfn (D) ss2 (Y) js2} if xmode 1 eq {tfn (A) js2 (3) is2 ip4 (D) ss2 (a) js2 ip4 (Y) js2} if xmode 2 eq {tfn (A) js2 (4) is2 ip4 (D) ss2 (b) js2 ip4 (Y) js2} if tfw (]) bs2 (/) bs2 tfy (dY) js2 tfw (=) tfn bs2 (D) ss2 (E*) js2 (exp) is2 tfw (/) bs2 tfy (D) ss2 (E*) js2 (85) 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 tfarc1 xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul tfarc2 } 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 (=) tfb bs2 (D) ss2 (E*) js2 (00) is2 tfw (/) bs2 tfg (D) ss2 (E*) js2 (ab) is2 %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 (=) tfg bs2 (D) ss2 (E*) js2 (ab) is2 tfw (/) bs2 tfy (D) ss2 (E*) js2 (85) 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 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 tfarc1 xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul tfarc2 } 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 (=) tfb bs2 (D) ss2 (E*) js2 (00) is2 tfw (/) bs2 tfy (D) ss2 (E*) js2 (85) 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 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 tfarc1 xlogn i get xs2 add xfact mul Vexp i get FKn i get 0.000001 add div yfact mul tfarc2 } 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