%!PS-Adobe-3.0 EPSF-3.0 TE391-8A %%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/TE01/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /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 {160 /Times-ISOL1 FS} bind def /TL {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIL {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBL {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIL {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SL {240 1 sub /Symbol FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} 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 /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 %%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 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 gsave %XCHA01.PS END 5 /Times-ISOL1 FS %175 85 moveto (TE391-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 15 def %0 1 15 {/xchartl exch def %xchartl=0,15 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 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(TE391-) show} {(TE391-) 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.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke 0 setlinewidth 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip /ishowz {0 -50 rmoveto TBK (z) show 0 50 rmoveto TBM} def /ishowg {0 -50 rmoveto TBK (g) show 0 50 rmoveto TBM} def /ishoww {0 -50 rmoveto TBK (w) show 0 50 rmoveto TBM} def /ishowp {0 -50 rmoveto TBK (p) show 0 50 rmoveto TBM} def /ishown {0 -50 rmoveto TBK (n) show 0 50 rmoveto TBM} def 20 setlinewidth 050 3725 moveto TBIM tfw xchartl 0 eq {%xchartl=0 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt1 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt1 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=0 xchartl 1 eq {%xchartl=1 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt1 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt1 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=1 xchartl 2 eq {%xchartl=2 TBM (log ) show SM (D) show TBIM (L/L ) show TBM (relative luminance) showen (relative Leuchtdichte\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (difference threshold) showen TBM (Differenzschwelle) showde xt1 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt1 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=2 xchartl 3 eq {%xchartl=3 TBM (log ) show TBIM (T* ) show TBM (threshold steps) showen (Schwellenstufen) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt1 yt0 1 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=3 xchartl 4 eq {%xchartl=4 TBIM (T* ) show TBM (threshold steps) showen (Schwellenstufen) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 1 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=4 xchartl 5 eq {%xchartl=5 TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt0 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeits\255Schwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,4s) show } if %xchartl=5 xchartl 6 eq {%xchartl=6 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L) show TBM ( - log ) show TBIM (L) show ishowz TBM (/) show SM (D) show TBIM (L) show ishowz TBM ( ) show (relative sensitivity) showen (relative Empfindlichkeit) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 100 add yt0 0.2 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,4s) show } if %xchartl=6 xchartl 7 eq {%xchartl=7 TBM (log ) show SM (D) show TBIM (L/L) show TBM ( - log ) show SM (D) show TBIM (L) show ishowz TBIM (/L) show ishowz TBM ( ) show (relative difference) showen (relative Differenz) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 100 add yt0 0.2 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,4s) show } if %xchartl=7 xchartl 8 eq {%xchartl=8 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,1s and ) show 1 0 0 setrgbcolor (26s) show 1 setgray xt0 yt0 3 ytd mul sub moveto (adaptation range) showen (Adaptationsbereich) showde xt0 yt0 4 ytd mul sub moveto (4 log units) showen (4 log\255Einheiten) showde } if %xchartl=8 xchartl 9 eq {%xchartl=9 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,1s and ) show 1 0 0 setrgbcolor (26s) show 1 setgray xt0 yt0 2 ytd mul sub moveto (adaptation range) showen (Adaptationsbereich) showde ( 4 log units) showen ( 4 log\255Einheiten) showde } if %xchartl=9 xchartl 10 eq {%xchartl=10 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 2 ytd mul sub moveto TBIM ( t) show ishowp TBM (=0,1s and ) show 0 1 0 setrgbcolor (2s) show 1 setgray xt0 yt0 3 ytd mul sub moveto (adaptation range) showen (Adaptationsbereich) showde xt0 yt0 4 ytd mul sub moveto (2 log units) showen (2 log\255Einheiten) showde } if %xchartl=10 xchartl 11 eq {%xchartl=11 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,1s and ) show 0 1 0 setrgbcolor (2s) show 1 setgray xt0 yt0 2 ytd mul sub moveto (adaptation range) showen (Adaptationsbereich) showde ( 2 log units) showen ( 2 log\255Einheiten) showde } if %xchartl=11 xchartl 12 eq {%xchartl=12 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,1s and ) show 1 0 0 setrgbcolor (26s) show 1 setgray xt0 yt0 3.1 ytd mul sub moveto 1 1 0 setrgbcolor (separate samples) showen (Separate Muster) showde xt0 yt0 4.2 ytd mul sub moveto SM (D) show TBIM (L) show TBM (_CIELAB) show 1 setgray } if %xchartl=12 xchartl 13 eq {%xchartl=13 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,1s and ) show 1 0 0 setrgbcolor (26s) show 1 setgray xt0 yt0 2.1 ytd mul sub moveto 1 1 0 setrgbcolor (separate samples) showen (Separate Muster) showde xt0 yt0 3.2 ytd mul sub moveto SM (D) show TBIM (L) show TBM (_CIELAB) show 1 setgray } if %xchartl=13 xchartl 14 eq {%xchartl=14 TBM (log ) show SM (D) show TBIM (L ) show TBM (luminance difference) showen (Leuchtdichte\255Diffe\255) showde /xt0 0800 def /xt1 0800 200 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (threshold) showen TBM (renzschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde xt0 yt0 2 ytd mul sub moveto TBIM (t) show ishowp TBM (=0,1s and ) show 0 1 0 setrgbcolor (2s) show 1 setgray xt0 yt0 3.1 ytd mul sub moveto 1 1 0 setrgbcolor (separate samples) showen (Separate Muster) showde xt0 yt0 4.2 ytd mul sub moveto SM (D) show TBIM (L) show ishown TBM (_CIELAB) show } if %xchartl=14 xchartl 15 eq {%xchartl=15 TBM (log ) show TBIM (L/) show SM (D) show TBIM (L ) show TBM (luminance contrast) showen (Leuchtdichte\255Kontrast\255) showde /xt0 0800 def /xt1 0800 450 add def /yt0 3475 def /ytd 250 def xt1 yt0 0 ytd mul sub moveto TBM (sensitivity threshold) showen TBM (Empfindlichkeitsschwelle) showde xt0 yt0 1 ytd mul sub moveto TBM (presentation time) showen (Darbietungszeit) showde TBIM ( t) show ishowp TBM (=0,1s and ) show 0 1 0 setrgbcolor (2s) show 1 setgray xt0 yt0 2.1 ytd mul sub moveto 1 1 0 setrgbcolor (separate samples) showen (Separate Muster) showde xt0 yt0 3.2 ytd mul sub moveto SM (D) show TBIM (L) show ishown TBM (_CIELAB) show 1 setgray } if %xchartl=15 tfw 550 400 translate 50 setlinewidth 0 0 moveto 4500 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) 30 setlinewidth [100] 0 setdash xchartl 0 eq xchartl 1 eq or xchartl 6 eq or {%xchartl=0,1,6 1000 0 moveto 3000 3000 rlineto stroke 4050 3000 100 sub moveto TBIM (m) show TBM (=1) show } if %xchartl=0,1,6 xchartl 2 eq xchartl 7 eq or {%xchartl=2,7 1000 0 moveto -1000 1000 rlineto stroke 0200 800 moveto TBIM (m) show TBM (=-1) show 1000 0 moveto 3000 0750 rlineto stroke 3050 500 200 sub moveto TBIM (m) show TBM (=1/4) show } if %xchartl=2,7 /eshowM1 {-00 100 rmoveto TBL (-1) show 0 -100 rmoveto} bind def /eshow0 {-00 100 rmoveto TBL (0) show 0 -100 rmoveto} bind def /eshow1 {-00 100 rmoveto TBL (1) show 0 -100 rmoveto} bind def /eshow2 {-00 100 rmoveto TBL (2) show 0 -100 rmoveto} bind def /eshow3 {-00 100 rmoveto TBL (3) show 0 -100 rmoveto} bind def /eshow4 {-00 100 rmoveto TBL (4) show 0 -100 rmoveto} bind def /eshow5 {-00 100 rmoveto TBL (5) show 0 -100 rmoveto} bind def /x0 4000 def /x1 4350 def /y0 2200 def /y1 2100 def /yd 300 def x0 50 sub y0 1000 add moveto xchartl 8 eq xchartl 9 eq or xchartl 12 eq or xchartl 13 eq or {1 0 0 setrgbcolor TBIM (L) show ishowz TBM (=10) show 1 setgray} if xchartl 10 eq xchartl 11 eq or xchartl 14 eq or xchartl 15 eq or {0 1 0 setrgbcolor TBIM (L) show ishowz TBM (=100) show 1 setgray} if x0 y0 350 add moveto (L) TBIM tfw show ishowz TBM (=) show (L) TBIM tfw show ishoww x0 y0 moveto TBK ([cd/m) show eshow2 TBK (]) show [ ] 0 setdash 0 setgray %N x1 y1 yd 1 mul sub moveto TBK (10) show eshowM1 x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke 0.3 setgray %D x1 y1 yd 2 mul sub moveto TBK (10) show eshow0 x0 y0 yd 2 mul sub moveto 300 0 rlineto stroke 1 setgray %W x1 y1 yd 3 mul sub moveto TBK (10) show eshow1 0 setgray %N x0 y0 yd 3 mul sub moveto 300 0 rlineto stroke [100 ] 0 setdash 1 setgray %W x0 y0 yd 3 mul sub moveto 300 0 rlineto stroke [ ] 0 setdash 0.7 setgray %H x1 y1 yd 4 mul sub moveto TBK (10) show eshow2 x0 y0 yd 4 mul sub moveto 300 0 rlineto stroke 1 setgray %W x1 y1 yd 5 mul sub moveto TBK (10) show eshow3 x0 y0 yd 5 mul sub moveto 300 0 rlineto stroke 50 setlinewidth [ ] 0 setdash TBM /tx [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /ty4 [( 0) ( 50) (100) (150) (200) (250) (300) (350)] def /ty5 [( 0) (10) (20) (30) (40) (50) (60) (70)] def /ty6 [(-5) (-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ty7 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 8 {/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 xchartl 0 eq {ty i get exec show} if xchartl 1 eq {ty i get exec show} if xchartl 2 eq {ty i get exec show} if xchartl 3 eq {ty i get exec show} if xchartl 4 eq {ty4 i get exec show} if xchartl 5 eq {ty5 i get exec show} if xchartl 6 eq {ty6 i get exec show} if xchartl 7 eq {ty7 i get exec show} if xchartl 8 eq {ty i get exec show} if xchartl 9 eq {ty i get exec show} if xchartl 10 eq {ty i get exec show} if xchartl 11 eq {ty i get exec show} if xchartl 12 eq {ty i get exec show} if xchartl 13 eq {ty i get exec show} if xchartl 14 eq {ty i get exec show} if xchartl 15 eq {ty i get exec show} if -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth 3870 150 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /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 % DIMENSION DLU(5),DL(32),FAKT(4),DLL(8),DELTL(32,5) % DIMENSION XGRAPH(500),YGRAPH(500),IANZ(10) % DATA DLU/0.1,1.,10.,100.,1000./ % DATA DLL/0.001,0.01,0.1,1.,10.,100.,1000.,10000./ % DATA FAKT/1.,2.5,5.,7.5/ /DLU 5 array def /DLUE 5 array def /DL 32 array def /DLX 32 array def /FAKT 4 array def /DLL 8 array def /DELTL0 32 array def /DELTL1 32 array def /DELTL2 32 array def /DELTL3 32 array def /DELTL4 32 array def /XGRAPH 500 array def /YGRAPH 500 array def /IANZ 10 array def /DLU [0.1 1. 10. 100. 1000.] def /DLUE [2.5 15.8 100. 630. 3891.] def /DLL [0.001 0.01 0.1 1. 10. 100. 1000. 10000.] def /FAKT [1. 1.8 3.2 5.6] def % DO 10 K=1,8 % DO 10 J=1,4 % I=(K-1)*4+J % 10 DL(I)=DLL(K)*FAKT(J) % WRITE(9,20)(DL(I),I=1,32) % 20 FORMAT(8F10.3) TK %Scale: 1 log = 500 units /Fx 500 def /Fy 500 def 0 1 7 {/K exch def %K=0,7 0 1 3 {/J exch def %J=0,3 /I K 4 mul J add def DL I DLL K get FAKT J get mul put DLX I DL I get put % 100 J 1000 mul add 3500 K 300 mul sub moveto % DLX I get cvsshow3 } for %J=0,3 } for %K=0,7 0 1 4 {/ILU exch def %ILU=0,4 % DO 30 ILU=1,5 % EN=-0.25 % V1=1./(EN*0.036*DLU(ILU)**(-0.30)) % YS=0.025*DLU(ILU)**0.705 % S=1./(1.+(EN*V1*YS**EN)**(1./(1.-EN))) % VGR=V1*(YS/S)**EN % WRITE(9,28)EN,V1,YS,S,VGR % 28 FORMAT(' EN,V1,YS,S,VGR',5E13.4) % DO 30 ILL=1,32 % DELTL(ILL,ILU)=VGR*((1.-S+S*DL(ILL)/YS)**EN-1.) % IF(DELTL(ILL,ILU).GT.0.)GO TO 29 % DELTL(ILL,ILU)=0.00000001 % 29 DELTL(ILL,ILU)=10.*SQRT(DELTL(ILL,ILU)) %10*SQRT unsinnig? % 30 CONTINUE /EN -0.25 def /YS0 0.025 def /V1 1. EN 0.036 mul DLU ILU get -0.30 exp mul div def /YS YS0 DLU ILU get 0.705 exp mul def /S1 EN V1 mul YS EN exp mul def /S2 1. 1. EN sub div def /S 1. 1. S1 S2 exp add div def /V12 1 EN V1 mul div YS S div 1 EN sub exp mul def /VGR V1 YS S div EN exp mul def %/x0 100 def %/y8 3500 8 ILU mul 300 mul sub def %x0 0 1000 mul add y8 moveto %EN cvsshow3 %x0 1 1000 mul add y8 moveto %V1 cvsshow1 %x0 2 1000 mul add y8 moveto %YS cvsshow3 %x0 3 1000 mul add y8 moveto %S cvsshow3 %x0 4 1000 mul add y8 moveto %VGR cvsshow1 %8 procedures for xchartl=0,7 /LOG_DL {%BEG LOG_DL, xchartl=0 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LOG_DL /SILL V12 SIL2 mul def DELTL0 ILL SILL log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL, xchartl=0 /LOG_L_DL {%BEG LOG_L_DL, xchartl=1 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LOG_L_DL /SILL DL ILL get V12 SIL2 mul div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DL, xchartl=1 /LOG_DL_L {%BEG LOG_DL_L, xchartl=2 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LOG_DL_L=log(delta_L/L) /SILL V12 SIL2 mul DL ILL get div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_L, xchartl=2 /LOG_T* {%BEG LOG_T*, xchart=3 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add EN exp def %LOG_T* /SILL VGR SIL2 1 sub mul def SILL 0. le {DELTL0 ILL -3 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 lt {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_T*, xchart=3 /LIN_T* {%BEG LIN_T*, xchart=4 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add EN exp def %LIN_T* /SILL VGR SIL2 1 sub mul def SILL 200. gt {DELTL0 ILL 200. put} {DELTL0 ILL SILL put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get 0 le {DELTL0 ILL 0 put} if YGRAPH ILL DELTL0 ILL get put /Fx1 500 def /Fy1 20 def XGRAPH ILL get Fx1 mul YGRAPH ILL get Fy1 mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx1 mul YGRAPH ILX get Fy1 mul moveto XGRAPH ILX get Fx1 mul 0.001 log Fy1 mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LIN_T*, xchart=4 %STOP0 /LIN_L_DL {%BEG LIN_L_DL, xchart=5 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LIN_L_DL /SILL DL ILL get V12 SIL2 mul div def SILL 60. gt {DELTL0 ILL 60. put} {DELTL0 ILL SILL put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get 0 le {DELTL0 ILL 0 put} if YGRAPH ILL DELTL0 ILL get put /Fx1 500 def /Fy1 100 def XGRAPH ILL get Fx1 mul YGRAPH ILL get Fy1 mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx1 mul YGRAPH ILX get Fy1 mul moveto XGRAPH ILX get Fx1 mul 0 Fy1 mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LIN_L_DL, xchartl=5 /LOG_L_DLn {%BEG LOG_L_DLn, xchartl=6 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LIN_L_DL /SILL DL ILL get V12 SIL2 mul div def /SIL2u 1. S sub DLU ILU get YS div S mul add 1. EN sub exp def %LIN_Lu_DLu /SILLu DLU ILU get V12 SIL2u mul div def /SILn SILL SILLu div def DELTL0 ILL SILn abs log put XGRAPH ILL DL ILL get log put DELTL0 ILL get -5 le {DELTL0 ILL -5 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul -5 Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DLn, xchartl=6 /LOG_DL_Ln {%BEG LOG_DL_Ln, xchartl=7 0 1 31 {/ILL exch def %ILL=0,31 /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def %LOG_DL_Ln=log(delta_L/L) - log(delta_Lu/Lu) /SILL V12 SIL2 mul DL ILL get div def /SIL2u 1. S sub DLU ILU get YS div S mul add 1. EN sub exp def /SILLu V12 SIL2u mul DLU ILU get div def /SILn SILL SILLu div def SILL 10000. gt {DELTL0 ILL 10000. put} {DELTL0 ILL SILn abs log put} ifelse % DELTL0 ILL SILn abs log put XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if %vertical lines of surround ILL 31 eq {%ILL=31 /ILX 8 ILU 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul -2 Fy mul lineto stroke } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_Ln, xchartl=7 /PARAM_SIL2 {%BEG PARAM_SIL2 ILL1, ILL2 needed ILL ILL1 lt {%ILLILL2 /V1 1. EN 0.036 mul DLX ILL2 get -0.30 exp mul div def /YS YS0 DLX ILL2 get 0.705 exp mul def /S1 EN V1 mul YS EN exp mul def /S2 1. 1. EN sub div def /S 1. 1. S1 S2 exp add div def /V12 1 EN V1 mul div YS S div 1 EN sub exp mul def /VGR V1 YS S div EN exp mul def /SIL2 1. S sub DL ILL get YS div S mul add 1. EN sub exp def } if %ILL>ILL2 ILL ILL1 ge ILL ILL2 le and { /V1 1. EN 0.036 mul DLX ILL get -0.30 exp mul div def /YS YS0 DLX ILL get 0.705 exp mul def /S1 EN V1 mul YS EN exp mul def /S2 1. 1. EN sub div def /S 1. 1. S1 S2 exp add div def /V12 1 EN V1 mul div YS S div 1 EN sub exp mul def /VGR V1 YS S div EN exp mul def /SIL2 1. S sub DLX ILL get YS div S mul add 1. EN sub exp def } if %ILL>=ILL1, ILL<=ILL2 } def %BEG PARAM_SIL2 ILL1, ILL2 needed /LOG_DL_26_4 {%BEG LOG_DL_26_4, xchartl=8 0 1 31 {/ILL exch def %ILL=0,31 /ILL1 8 def /ILL2 24 def PARAM_SIL2 /SILL V12 SIL2 mul def DELTL0 ILL SILL log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if ILL 31 eq {%ILL=31 %vertical lines of surround /ILX 8 2 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke %horizontal line of adaptation range /xds 0.30 Fx mul def /yds 0.15 Fy mul def 1 0 0 setrgbcolor XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke XGRAPH ILL1 get Fx mul xds add -2.5 Fy mul yds sub moveto xds neg yds rlineto xds yds rlineto closepath stroke XGRAPH ILL2 get Fx mul xds sub -2.5 Fy mul yds sub moveto xds yds rlineto xds neg yds rlineto closepath stroke 1 setgray newpath } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_26_4, xchartl=8 /LOG_L_DL_26_4 {%BEG LOG_L_DL_26_4, xchartl=9 0 1 31 {/ILL exch def %ILL=0,31 /ILL1 8 def /ILL2 24 def PARAM_SIL2 /SILL DL ILL get V12 SIL2 mul div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if ILL 31 eq {%ILL=31 %vertical lines of surround /ILX 8 2 4 mul add def XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke %horizontal line of adaptation range /xds 0.30 Fx mul def /yds 0.15 Fy mul def 1 0 0 setrgbcolor XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke XGRAPH ILL1 get Fx mul xds add -2.5 Fy mul yds sub moveto xds neg yds rlineto xds yds rlineto closepath stroke XGRAPH ILL2 get Fx mul xds sub -2.5 Fy mul yds sub moveto xds yds rlineto xds neg yds rlineto closepath stroke 1 setgray newpath } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DL_26_4, xchartl=9 /LOG_DL_26_2 {%BEG LOG_DL_26_2, xchartl=10 0 1 31 {/ILL exch def %ILL=0,31 /ILL1 16 def /ILL2 24 def /ILX 20 def PARAM_SIL2 /SILL V12 SIL2 mul def DELTL0 ILL SILL log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put % xchartl 14 eq % ILL 20 eq and % IOUT 1 eq and {3 Fx mul -2 Fy mul moveto % YGRAPH ILL get cvsshow2 (, ) show % ILL cvishow (, ) show % XGRAPH ILL get cvsshow2 % } if % newpath XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if ILL 31 eq {%ILL=31 %vertical lines of surround XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke %horizontal line of adaptation range /xds 0.30 Fx mul def /yds 0.15 Fy mul def 0 1 0 setrgbcolor XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke XGRAPH ILL1 get Fx mul xds add -2.5 Fy mul yds sub moveto xds neg yds rlineto xds yds rlineto closepath stroke XGRAPH ILL2 get Fx mul xds sub -2.5 Fy mul yds sub moveto xds yds rlineto xds neg yds rlineto closepath stroke 1 setgray newpath } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_26_2, xchartl=10 /LOG_L_DL_26_2 {%BEG LOG_L_DL_26_2, xchartl=11 0 1 31 {/ILL exch def %ILL=0,31 /ILL1 16 def /ILL2 24 def /ILX 20 def PARAM_SIL2 /SILL DL ILL get V12 SIL2 mul div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 0 eq {moveto} if ILL 01 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if ILL 31 eq {%ILL=31 %vertical lines of surround XGRAPH ILX get Fx mul YGRAPH ILX get Fy mul moveto XGRAPH ILX get Fx mul 0.001 log Fy mul lineto stroke %horizontal line of adaptation range /xds 0.30 Fx mul def /yds 0.15 Fy mul def 0 1 0 setrgbcolor XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke XGRAPH ILL1 get Fx mul xds add -2.5 Fy mul yds sub moveto xds neg yds rlineto xds yds rlineto closepath stroke XGRAPH ILL2 get Fx mul xds sub -2.5 Fy mul yds sub moveto xds yds rlineto xds neg yds rlineto closepath stroke 1 setgray newpath } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DL_26_2, xchartl=11 /PARAM_CIELAB0 { %BEG PARAM_CIELAB0 %Compare BAM-Report n0. 61, 1979, page 27, %Va=Vo*(s/Ys)**n %Vo=Va*(Ys/s)**n /EN 0.3333 def /YS 0.1533 def /S 0.4209 def /VGR 2.5124 def /V12 1. def /L1 17.990 def /L2 0.5707 def /L3 2.800 def %L*=L1*[ (L2+L3*Y)**n -1] %DL*/dY = L1*L3*n*[(L2+L3*Y)**(n-1)] %dY = 1/[L1*L3*n(L2+L3*Y)**(n-1)] /SIL2 1 L1 L3 mul EN mul L3 DL ILL get mul L2 add EN 1 sub exp mul div def } def %END PARAM_CIELAB0 /LOG_DL_CIELAB0 {%BEG LOG_DL_CIELAB0, xchartl=12 08 1 31 {/ILL exch def %ILL=0,31 PARAM_CIELAB0 /SILL V12 SIL2 mul def DELTL0 ILL SILL log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put % xchartl 14 eq % ILL 20 eq and % IOUT 1 eq and {3 Fx mul 0 Fy mul moveto % YGRAPH ILL get cvsshow2 (, ) show % ILL cvishow (, ) show % XGRAPH ILL get cvsshow2 % } if % newpath XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 08 eq {moveto} if ILL 09 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if % ILL 31 eq {%ILL=31 % %vertical lines of surround % /ILX 8 2 4 mul add def % XGRAPH ILX get Fx mul % YGRAPH ILX get Fy mul moveto % XGRAPH ILX get Fx mul % 0.001 log Fy mul lineto stroke % } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_CIELAB0, xchartl=12 /LOG_L_DL_CIELAB0 {%BEG LOG_L_DL_CIELAB0, xchartl=13 08 1 31 {/ILL exch def %ILL=0,31 PARAM_CIELAB0 /SILL DL ILL get V12 SIL2 mul div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put % xchartl 14 eq % ILL 16 eq and % IOUT 1 eq and {3 Fx mul -1 Fy mul moveto % YGRAPH ILL get cvsshow2 (, ) show % ILL cvishow (, ) show % XGRAPH ILL get cvsshow2 % } if XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 08 eq {moveto} if ILL 09 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if ILL 31 eq {%ILL=31 % %vertical lines of surround % /ILX 8 2 4 mul add def % XGRAPH ILX get Fx mul % YGRAPH ILX get Fy mul moveto % XGRAPH ILX get Fx mul % 0.001 log Fy mul lineto stroke %horizontal line of adaptation range % /xds 0.30 Fx mul def % /yds 0.15 Fy mul def % 1 0 0 setrgbcolor % XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto % XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke % XGRAPH ILL1 get Fx mul xds add % -2.5 Fy mul yds sub moveto % xds neg yds rlineto xds yds rlineto closepath stroke % XGRAPH ILL2 get Fx mul xds sub % -2.5 Fy mul yds sub moveto % xds yds rlineto xds neg yds rlineto closepath stroke % 1 setgray newpath } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DL_CIELAB0, xchartl=13 /PARAM_CIELAB1 { %BEG PARAM_CIELAB1 %Compare BAM-Report n0. 61, 1979, page 27, %Va=Vo*(s/Ys)**n %Vo=Va*(Ys/s)**n /EN 0.3333 def /YS 0.1533 def /S 0.4209 def /VGR 2.5124 def /V12 1. def /L1 17.990 def /L2 0.5707 def /L3 2.800 def %L*=L1*[ (L2+L3*Y)**n -1] %DL*/dY = L1*L3*n*[(L2+L3*Y)**(n-1)] %dY = 1/[L1*L3*n(L2+L3*Y)**(n-1)] /SIL2 1 L1 L3 mul EN mul L3 DL ILL get mul L2 add EN 1 sub exp mul div def } def %END PARAM_CIELAB1 /LOG_DL_CIELAB1 {%BEG LOG_DL_CIELAB1, xchartl=14 12 1 31 {/ILL exch def %ILL=0,31 /ILL1 16 def /ILL2 24 def /ILX 20 def PARAM_CIELAB1 /SILL V12 SIL2 mul 1.5 mul def DELTL0 ILL SILL log put DELTL0 ILL get 4.3 gt {DELTL0 ILL 4.3 put} if XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put % xchartl 14 eq % ILL 20 eq and % IOUT 1 eq and {3 Fx mul 0 Fy mul moveto % YGRAPH ILL get cvsshow2 (, ) show % ILL cvishow (, ) show % XGRAPH ILL get cvsshow2 % } if % newpath XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 12 eq {moveto} if ILL 13 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if % ILL 31 eq {%ILL=31 % %vertical lines of surround % XGRAPH ILX get Fx mul % YGRAPH ILX get Fy mul moveto % XGRAPH ILX get Fx mul % 0.001 log Fy mul lineto stroke % } if %ILL=31 } for %ILL=0,31 } def %END LOG_DL_CIELAB1, xchartl=14 /LOG_L_DL_CIELAB1 {%BEG LOG_L_DL_CIELAB1, xchartl=15 12 1 31 {/ILL exch def %ILL=0,31 /ILL1 16 def /ILL2 24 def /ILX 20 def PARAM_CIELAB1 /SILL DL ILL get V12 SIL2 mul 1.5 mul div def SILL 0. le {DELTL0 ILL 0.00000001 put} {DELTL0 ILL SILL log put} ifelse XGRAPH ILL DL ILL get log put DELTL0 ILL get -3 le {DELTL0 ILL -3 put} if YGRAPH ILL DELTL0 ILL get put xchartl 14 eq ILL 16 eq and IOUT 1 eq and {3 Fx mul -1 Fy mul moveto YGRAPH ILL get cvsshow2 (, ) show ILL cvishow (, ) show XGRAPH ILL get cvsshow2 } if XGRAPH ILL get Fx mul YGRAPH ILL get Fy mul ILL 12 eq {moveto} if ILL 13 ge ILL 30 le and {lineto} if ILL 31 eq {lineto stroke} if % ILL 31 eq {%ILL=31 % %vertical lines of surround % XGRAPH ILX get Fx mul % YGRAPH ILX get Fy mul moveto % XGRAPH ILX get Fx mul % 0.001 log Fy mul lineto stroke % %horizontal line of adaptation range % /xds 0.30 Fx mul def % /yds 0.15 Fy mul def % 1 0 0 setrgbcolor % XGRAPH ILL1 get Fx mul -2.5 Fy mul moveto % XGRAPH ILL2 get Fx mul -2.5 Fy mul lineto stroke % XGRAPH ILL1 get Fx mul xds add % -2.5 Fy mul yds sub moveto % xds neg yds rlineto xds yds rlineto closepath stroke % XGRAPH ILL2 get Fx mul xds sub % -2.5 Fy mul yds sub moveto % xds yds rlineto xds neg yds rlineto closepath stroke % 1 setgray newpath % } if %ILL=31 } for %ILL=0,31 } def %END LOG_L_DL_CIELAB1, xchartl=15 TS ILU 0.25 mul setgray ILU 2 eq {0 setgray} if [ ] 0 setdash /IOUT 0 def xchartl 0 eq {%xchartl=0 1500 1500 translate %new cero point at xr=0 LOG_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL } if %ILU=2 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=0 xchartl 1 eq {%xchartl=1 1500 1500 translate %new cero point at xr=0 LOG_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DL } if %ILU=2 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=1 xchartl 2 eq {%xchartl=2 1500 1500 translate %new cero point at xr=0 LOG_DL_L ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL_L } if %ILU=2 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=2 xchartl 3 eq {%xchartl=3 1500 1500 translate %new cero point at xr=0 LOG_T* ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_T* } if %ILU=2 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=3 xchartl 4 eq {%xchartl=4 1500 000 translate %new cero point at xr=0 LIN_T* ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LIN_T* } if %ILU=2 -1500 -000 translate %new cero point at xr=0 } if %xchartl=4 xchartl 5 eq {%xchartl=5 1500 000 translate %new cero point at xr=0 LIN_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LIN_L_DL } if %ILU=2 -1500 -000 translate %new cero point at xr=0 } if %xchartl=5 xchartl 6 eq {%xchartl=6 1500 2500 translate %new cero point at xr=0 LOG_L_DLn ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DLn } if %ILU=2 -1500 -2500 translate %new cero point at xr=0 } if %xchartl=6 xchartl 7 eq {%xchartl=7 1500 1000 translate %new cero point at xr=0 LOG_DL_Ln ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL_Ln } if %ILU=2 -1500 -1000 translate %new cero point at xr=0 } if %xchartl=7 xchartl 8 eq {%xchartl=8 1500 1500 translate %new cero point at xr=0 LOG_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_DL_26_4 [100] 0 setdash 1 0 0 setrgbcolor LOG_DL_26_4 } if %ILU=4 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=8 xchartl 9 eq {%xchartl=9 1500 1500 translate %new cero point at xr=0 LOG_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_L_DL_26_4 [100] 0 setdash 1 0 0 setrgbcolor LOG_L_DL_26_4 } if %ILU=4 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=9 xchartl 10 eq {%xchartl=10 1500 1500 translate %new cero point at xr=0 /ILL1 16 def /ILL2 24 def LOG_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_DL_26_2 [100] 0 setdash 0 1 0 setrgbcolor LOG_DL_26_2 } if %ILU=4 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=10 xchartl 11 eq {%xchartl=11 1500 1500 translate %new cero point at xr=0 LOG_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_L_DL_26_2 [100] 0 setdash 0 1 0 setrgbcolor LOG_L_DL_26_2 } if %ILU=4 -1500 -1500 translate %new cero point at xr=0 } if %xchartl=11 xchartl 12 eq {%xchartl=12 1500 1500 translate %new cero point at xr=0 LOG_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_DL_26_4 [100] 0 setdash 1 0 0 setrgbcolor LOG_DL_26_4 } if %ILU=4 1 1 0 setrgbcolor /ILL1 8 def /ILL2 24 def LOG_DL_CIELAB0 1 setgray -1500 -1500 translate %new cero point at xr=0 } if %xchartl=12 xchartl 13 eq {%xchartl=13 1500 1500 translate %new cero point at xr=0 LOG_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_L_DL_26_4 [100] 0 setdash 1 0 0 setrgbcolor LOG_L_DL_26_4 } if %ILU=4 1 1 0 setrgbcolor /ILL1 8 def /ILL2 24 def LOG_L_DL_CIELAB0 1 setgray -1500 -1500 translate %new cero point at xr=0 } if %xchartl=13 xchartl 14 eq {%xchartl=14 1500 1500 translate %new cero point at xr=0 LOG_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_DL } if %ILU=2 ILU 4 eq {%ILU=4 /IOUT 1 def LOG_DL_26_2 /IOUT 0 def [100] 0 setdash 0 1 0 setrgbcolor LOG_DL_26_2 } if %ILU=4 1 1 0 setrgbcolor /ILL1 16 def /ILL2 24 def /IOUT 1 def LOG_DL_CIELAB1 /IOUT 0 def 1 setgray -1500 -1500 translate %new cero point at xr=0 } if %xchartl=14 xchartl 15 eq {%xchartl=15 1500 1500 translate %new cero point at xr=0 LOG_L_DL ILU 2 eq {%ILU=2 [100] 0 setdash 1 setgray LOG_L_DL } if %ILU=2 ILU 4 eq {%ILU=4 LOG_L_DL_26_2 [100] 0 setdash 0 1 0 setrgbcolor LOG_L_DL_26_2 } if %ILU=4 1 1 0 setrgbcolor /ILL1 16 def /ILL2 24 def LOG_L_DL_CIELAB1 1 setgray -1500 -1500 translate %new cero point at xr=0 } if %xchartl=15 } for %ILU=0,4 550 neg 400 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 %end xchartl=0,15 showpage grestore %%Trailer