%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ees6/ees60-7a %%BoundingBox: 70 85 236 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: farbe.li.tu-berlin.de/ees6/ees6.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023030112000) /ModDate (D:20230301112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop %font0311.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} 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 /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-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 /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-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 {295 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-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 /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def %font0311.ps*********************************************** /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /tfy {1 1 0 setrgbcolor} bind def /tfg {0 1 0 setrgbcolor} bind def /tfr {1 0 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /tfbs {0 0.5 1 setrgbcolor} bind def /MULX 1250 def /proz_curve_MUXY {%BEG proz_curve_MUXY 0 3 27 {/k exch def %k=0,27 k 0 eq {%k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def xst yst moveto } if %k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def /x20 {Xi k 1 add get MULX mul} bind def /y20 {Yi k 1 add get MULY mul} bind def /x21 {Xi k 2 add get MULX mul} bind def /y21 {Yi k 2 add get MULY mul} bind def /x22 {Xi k 3 add get MULX mul} bind def /y22 {Yi k 3 add get MULY mul} bind def x20 y20 x21 y21 x22 y22 curveto } for %k=0,27 stroke } bind def %END proz_curve_MUXY %******************************************************************* /proz_eq_table {%BEG proz_eq_table /xwtab 4700 def /ywtab 2600 def /i0eq ixeq xwtab add 420 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([1]) show ixeq iyeqt iyeq0 1 mul sub moveto ixeq iyeqt iyeq0 1 mul sub moveto TIM (n) show TM ( = -0,25) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([2]) show ixeq iyeqt iyeq0 2 mul sub moveto TIM (V) show TM ( = 1/\0500,036) show 50 0 rmoveto TIM (n) show 50 0 rmoveto (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (-0,30) show 0 -80 rmoveto TM (\051) show i0eq iyeqt iyeq0 2 mul sub moveto TM ([3]) show ixeq iyeqt iyeq0 3 mul sub moveto TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM ( = 0,025) show 50 0 rmoveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (0,705) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 3 mul sub moveto TM ([4]) show ixeq iyeqt iyeq0 4 mul sub moveto TIM (s) show TM ( = 1/[1+\050) show 50 0 rmoveto TIM (n V L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM TK -80 80 rmoveto (n) show 0 -80 rmoveto TM TM (\051) show TK 00 80 rmoveto (1/\0501\255) show TIK (n) show TK (\051) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 4 mul sub moveto TM ([5]) show ixeq iyeqt iyeq0 5 mul sub moveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TM ( = 0,1; 1; 10; 100; 1000 cd/m) show TK 00 80 rmoveto (2) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 5 mul sub moveto TM ([6]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 6 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([1-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto i0eq iyeqt iyeq0 6 mul sub moveto TM ([7]) show } bind def %END proz_eq_table %**************************************************** /proz_eq_tabl2 {%BEG proz_eq_tabl2 /xwtab 5250 def /ywtab 0800 def /i0eq ixeq xwtab add 520 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([8]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 1 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([9]) show } bind def %END proz_eq_tabl2 %************************************************************************ /proz_tx_refe1 {%BEG proz_tx_refe1 /xwtab 5250 def /ywtab 1100 def /i0eq ixeq xwtab add 520 sub def /iyeq0 330 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always text reference within the above frame ixeq iyeqt moveto (Richter, K. (1993), CIE proceedings,) show ixeq iyeqt iyeq0 1 mul sub moveto (Advanced Colorimetry, p. 79-84, CIE3 &) show ixeq iyeqt iyeq0 2 mul sub moveto RBM tfbs (http://color.li.tu-berlin.de/BUA4BF.PDF) show tfn } bind def %END proz_tx_refe1 %************************************************************************ /proz_co_system {%BEG proz_co_system /txl [ () (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def %0..8 /txt [ () ( 0,001) ( 0,01) ( 0,1) ( 1) ( 10) ( 100) ( 1000) ( 10000)] def %0..8 /ty0 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ()] def %0..8 DL /ty1 [(-5) ( 0) ( 5) (10) (15) (20) (25) (30) (35)] def %0..8 DL/L /ty2 [(-3) (-2) (-1) ( 0) ( 1) ( 2) () () ()] def %0..8 log DL/L /ty3 [(-25) ( 0) ( 25) ( 50) ( 75) (100) (125) (150) (175)] def %0..8 L* /ty4 [(-1) ( 0) ( 1) ( 2) ( 3) ( 4) () ( ) ( )] def %0..8 DL /ty5 [() ( 0) ( 1) ( 2) ( 3) ( 4) () () ()] def %0..8 DL/L /ty6 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) () () ()] def %0..8 log DL/L /ty7 [() ( 0) ( 1) ( 2) ( 3) ( 4) () () ()] def %0..8 L* 60 setlinewidth ix0 iy0 moveto 10300 0 rlineto stroke %x ix0 iy0 moveto 0 6600 rlineto stroke %y 60 setlinewidth ix0 10300 add iy0 moveto -200 100 rlineto stroke %x_arrow ix0 10300 add iy0 moveto -200 -100 rlineto stroke %x_arrow ix0 iy0 6600 add moveto -100 -200 rlineto stroke %y_arrow ix0 iy0 6600 add moveto 100 -200 rlineto stroke %y_arrow 60 setlinewidth /ix2t ix0 200 sub def /ix1t ix0 500 sub def /iy1t iy0 500 sub def 1 1 8 {/i exch def %xtext ix0 ixsD2 sub i ixs mul add iy0 100 sub moveto 0 200 rlineto stroke ix2t ixsD2 sub i ixs mul add iy0 400 sub moveto txl i get show ix1t ixsD2 sub i ixs mul add iy0 200 add moveto txt i get show } for /ix6a ix0 5.8 ixs mul add def /ix7a ix0 6.8 ixs mul add def /iy6a iy0 600 sub def ix6a iy6a moveto ix7a iy6a lineto stroke ix7a iy6a moveto -200 100 rlineto stroke ix7a iy6a moveto -200 -100 rlineto stroke ix7a 150 add iy6a 100 sub moveto TBM (log) show 60 0 rmoveto TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ix6a 1200 sub iy0 500 add moveto TBM (Infeldleuchtdichte ) showde (central\255field luminance ) showea TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show } bind def %END proz_co_system %*************************************************************** /proz_Li_func047 {%BEG proz_Li_func047 %function L/delta L /Li 31 array def /logLi 31 array def /delLi 31 array def /delLui 5 array def /Xi 31 array def /Yi 31 array def /Yi0 31 array def /Yi1 31 array def /Yi2 31 array def /Yi3 31 array def /Yi4 31 array def /LSi 31 array def /Vuj 6 array def /Lsj 6 array def /sj 6 array def /Yuj0 6 array def /Yuj1 6 array def /Yuj2 6 array def /Yuj3 6 array def 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi logLi i -3 0.25 i mul add put Li i 10 logLi i get exp put Xi i 3 logLi i get add put } for %i=0,30 /n -0.25 def /1Mn 1 n sub def %1,25 /1D1Mn 1 1Mn div def %0,80 /nv1 0.036 def /nv2 -0.30 def /nl1 0.025 def /nl2 0.705 def 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu /V01 Luj j get nv2 exp def %Lu**(-0,30) /V02 nv1 n mul def %0.036*n /V03 V02 V01 mul def %0.036*n*Lu**(-0.30) Vuj j 1 V03 div put %1/[0.036*n*Lu**(-0.30)] /L01 Luj j get nl2 exp def %Lu**(0.705) Lsj j nl1 L01 mul put %0.025*Lu**(0.705) /s01 Lsj j get n exp def %Ls**n /s02 n Vuj j get mul s01 mul def %n*V*Ls**n /s03 s02 1D1Mn exp def %[n*V*Ls**n]**[1/(1-n)] /s04 1 s03 add def %1+[n*V*Ls**n]**[1/(1-n)] sj j 1 s04 div put %1/{1+[n*V*Ls**n]**[1/(1-n)]} } for %j=0,4 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi %delta L /y01 1 n Vuj j get mul div def %1/[n*V] /y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n) /y03 sj j get Li i get mul Lsj j get div def %s*L/Ls /y04 1 sj j get sub y03 add def %1-s+[s*L/Ls] /y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n) delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %L* /LS01 Vuj j get def %V /LS02 Lsj j get sj j get div n exp def %(Ls/s)**n /LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls) /LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls) /LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1 LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n} %*{(1-s+sL/Ls)**n-1} j 0 eq {Yi0 i} if j 1 eq {Yi1 i} if j 2 eq {Yi2 i} if j 3 eq {Yi3 i} if j 4 eq {Yi4 i} if xchartl 4 eq {delLi i get put} if xchartl 5 eq {Li i get delLi i get div put} if xchartl 6 eq {Li i get delLi i get div put} if xchartl 7 eq {LSi i get put} if xchartl 4 eq {%xchartl=4 j 0 eq i 08 eq and {Yuj0 0 Yi0 i get put} if j 1 eq i 12 eq and {Yuj0 1 Yi1 i get put} if j 2 eq i 16 eq and {Yuj0 2 Yi2 i get put} if j 3 eq i 20 eq and {Yuj0 3 Yi3 i get put} if j 4 eq i 24 eq and {Yuj0 4 Yi4 i get put} if } if %xchartl=4 xchartl 5 eq {%xchartl=5 j 0 eq i 08 eq and {Yuj1 0 Yi0 i get put} if j 1 eq i 12 eq and {Yuj1 1 Yi1 i get put} if j 2 eq i 16 eq and {Yuj1 2 Yi2 i get put} if j 3 eq i 20 eq and {Yuj1 3 Yi3 i get put} if j 4 eq i 24 eq and {Yuj1 4 Yi4 i get put} if } if %xchartl=5 xchartl 6 eq {%xchartl=6 j 0 eq i 08 eq and {Yuj2 0 Yi0 i get put} if j 1 eq i 12 eq and {Yuj2 1 Yi1 i get put} if j 2 eq i 16 eq and {Yuj2 2 Yi2 i get put} if j 3 eq i 20 eq and {Yuj2 3 Yi3 i get put} if j 4 eq i 24 eq and {Yuj2 4 Yi4 i get put} if } if %xchartl=6 xchartl 7 eq {%xchartl=7 j 0 eq i 08 eq and {Yuj3 0 Yi0 i get put} if j 1 eq i 12 eq and {Yuj3 1 Yi1 i get put} if j 2 eq i 16 eq and {Yuj3 2 Yi2 i get put} if j 3 eq i 20 eq and {Yuj3 3 Yi3 i get put} if j 4 eq i 24 eq and {Yuj3 4 Yi4 i get put} if } if %xchartl=7 } for %i=0,30 } for %j=0,4 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu } for %j=0,4 %normalization 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi %delta L /y01 1 n Vuj j get mul div def %1/[n*V] /y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n) /y03 sj j get Li i get mul Lsj j get div def %s*L/Ls /y04 1 sj j get sub y03 add def %1-s+[s*L/Ls] /y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n) delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %L* /LS01 Vuj j get def %V /LS02 Lsj j get sj j get div n exp def %(Ls/s)**n /LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls) /LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls) /LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1 LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n} %*{(1-s+sL/Ls)**n-1} j 0 eq {Yi0 i} if j 1 eq {Yi1 i} if j 2 eq {Yi2 i} if j 3 eq {Yi3 i} if j 4 eq {Yi4 i} if xchartl 4 eq {delLi i get Yuj0 j get div log 1 add put} if xchartl 5 eq {Li i get delLi i get div Yuj1 j get div put} if xchartl 6 eq {Li i get delLi i get div Yuj2 j get div log 1 add put} if xchartl 7 eq {LSi i get Yuj3 j get div put} if } for %i=0,30 } for %j=0,4 } bind def %%END proz_Li_func047 %************************************************************************ /proz_color0_9 {%BEG proz_color0_9 iYGRB 0 eq {%iYGRB=0 jkurv 0 eq {0.00 setgray} if jkurv 1 eq {0.25 setgray} if jkurv 2 eq {1.00 setgray} if jkurv 3 eq {0.75 setgray} if jkurv 4 eq {1.00 setgray} if /tfact {0.00 setgray} def } if %iYGRB=0 iYGRB 1 eq {%iYGRB=1 Y jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.25 0.25 0.00 setrgbcolor} if jkurv 2 eq {1.00 1.00 0.00 setrgbcolor} if jkurv 3 eq {0.75 0.75 0.00 setrgbcolor} if jkurv 4 eq {1.00 1.00 0.00 setrgbcolor} if /tfact {1.00 1.00 0.00 setrgbcolor} def } if %iYGRB=1 iYGRB 2 eq {%iYGRB=2 G jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.00 0.25 0.00 setrgbcolor} if jkurv 2 eq {0.00 1.00 0.00 setrgbcolor} if jkurv 3 eq {0.00 0.75 0.00 setrgbcolor} if jkurv 4 eq {0.00 1.00 0.00 setrgbcolor} if /tfact {0.00 1.00 0.00 setrgbcolor} def } if %iYGRB=2 iYGRB 3 eq {%iYGRB=3 R jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.25 0.00 0.00 setrgbcolor} if jkurv 2 eq {1.00 0.00 0.00 setrgbcolor} if jkurv 3 eq {0.75 0.00 0.00 setrgbcolor} if jkurv 4 eq {1.00 0.00 0.00 setrgbcolor} if /tfact {1.00 0.00 0.00 setrgbcolor} def } if %iYGRB=3 iYGRB 4 eq {%iYGRB=4 B jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.00 0.00 0.25 setrgbcolor} if jkurv 2 eq {0.00 0.00 1.00 setrgbcolor} if jkurv 3 eq {0.00 0.00 0.75 setrgbcolor} if jkurv 4 eq {0.00 0.00 1.00 setrgbcolor} if /tfact {0.00 0.00 1.00 setrgbcolor} def } if %iYGRB=4 iYGRB 5 eq {%iYGRB=5 W jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.25 0.25 0.25 setrgbcolor} if jkurv 2 eq {1.00 1.00 1.00 setrgbcolor} if jkurv 3 eq {0.75 0.75 0.75 setrgbcolor} if jkurv 4 eq {1.00 1.00 1.00 setrgbcolor} if /tfact {1.00 1.00 1.00 setrgbcolor} def /tfact {0.00 setgray} def } if %iYGRB=5 iYGRB 6 eq {%iYGRB=6 Wb jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.18 0.18 0.25 setrgbcolor} if jkurv 2 eq {1.00 1.00 1.00 setrgbcolor} if jkurv 3 eq {0.56 0.56 0.75 setrgbcolor} if jkurv 4 eq {0.75 0.75 1.00 setrgbcolor} if /tfact {0.00 0.00 1.00 setrgbcolor} def } if %iYGRB=6 iYGRB 7 eq {%iYGRB=7 WB jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.12 0.12 0.25 setrgbcolor} if jkurv 2 eq {1.00 1.00 1.00 setrgbcolor} if jkurv 3 eq {0.37 0.37 0.75 setrgbcolor} if jkurv 4 eq {0.50 0.50 1.00 setrgbcolor} if /tfact {0.00 0.00 1.00 setrgbcolor} def } if %iYGRB=7 iYGRB 8 eq {%iYGRB=8 wB jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.06 0.06 0.25 setrgbcolor} if jkurv 2 eq {1.00 1.00 1.00 setrgbcolor} if jkurv 3 eq {0.18 0.18 0.75 setrgbcolor} if jkurv 4 eq {0.25 0.25 1.00 setrgbcolor} if /tfact {0.00 0.00 1.00 setrgbcolor} def } if %iYGRB=8 iYGRB 9 eq {%iYGRB=9 B jkurv 0 eq {0.00 0.00 0.00 setrgbcolor} if jkurv 1 eq {0.00 0.00 0.25 setrgbcolor} if jkurv 2 eq {1.00 1.00 1.00 setrgbcolor} if jkurv 3 eq {0.00 0.00 0.75 setrgbcolor} if jkurv 4 eq {0.00 0.00 1.00 setrgbcolor} if /tfact {0.00 0.00 1.00 setrgbcolor} def } if %iYGRB=9 } bind def %END proz_color0_9 %************************************************************************ %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml colorm def /xcolorl xcolor def /xchartl xchart def /pchartl pchart def gsave 72 90 translate 0.01 MM dup scale /xwhl 11600 def /ywhl 8550 def 20 setlinewidth 1.0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath fill 0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath stroke 0 setgray /xbtex0 0 def xbtex0 1 eq {%xbtex0=1 TV 50 -150 moveto (ees60-7a) show } if %xbtex0=1 6 1 6 {/xchartl exch def %xchartl=4,7 20 setlinewidth % xchartl 0 eq { 100 4500 translate} if % xchartl 1 eq { 5850 4500 translate} if % xchartl 2 eq { 100 0250 translate} if % xchartl 3 eq { 5850 0250 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 5850 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 5850 0250 translate} if /cvishow {cvi 6 string cvs show} def 0 setgray TV 50 -150 moveto (ees60-) show xchartl 1 add cvishow (a) show %a 20 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5650 def 0.5 0.5 0.5 setrgbcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /ix0 700 def /iy0 900 def /ix1 300 def %1 /y00 7300 def /iYGRB1 0 def /iYGRB2 2 def /iYGRBD iYGRB2 def %always start values /L0j [0.1 1 10 100 1000 10000] def /L0logj [-1 0 1 2 3 4] def /Ltj [( 0,1) ( 1) ( 10) ( 100) ( 1000) (10000)] def %iYGRB 0U 1Y 2G 3R 4B 5W 6Wb 7WB 8wB 9B /fYGRB [1.0 0.9 0.6 0.4 0.2 1.000 0.775 0.550 0.325 0.100] def /Luj 6 array def /Lulogj 6 array def gsave 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath clip 0.5 0.5 scale /ixs 1250 def /ixsD2 ixs 0.5 mul def 60 setlinewidth %****************************************************************** xchartl 4 eq {%xchartl=4 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [ ) show SM (D) show TBIM (L) show TBM ( / ) show SM (D) show TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM ( ] ) show TBM (nomalized central\255field threshold) showea (Normierte Infeldschwellen) showde %equation table; table /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def proz_co_system /xtu 9200 def /ytu 3100 def xtu ytu 350 add moveto 1000 0000 rlineto stroke xtu 1000 add ytu 350 add moveto -200 100 rlineto stroke xtu 1000 add ytu 350 add moveto -200 -100 rlineto stroke xtu ytu moveto TBM (surround\255field) showea (Umfeld\255) showde xtu ytu 350 sub moveto TBM (luminance) showea (Leuchtdichte) showde xtu ytu 700 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty4 i get show } for %i=1,6 ix0t iy0t translate iYGRB1 iYGRBD iYGRB2 {/iYGRB exch def %iYGRB=0,8 BEG large loop iYGRB iYGRB1 eq {%iYGRB=iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB=iYGRB1 iYGRB iYGRB1 gt {%iYGRB>iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get fYGRB iYGRB get mul put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB>iYGRB1 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {[100 100] 0 setdash} if jkurv 1 eq {[100 100] 0 setdash} if jkurv 2 eq {[] 0 setdash} if jkurv 3 eq {[100 100] 0 setdash} if jkurv 4 eq {[100 100] 0 setdash} if proz_color0_9 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke tfact Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill iYGRB 0 eq iYGRB 5 eq or {%iYGRB=0 or 5 tfn %j 0_8 1_12 2_16 3_20 4_24 /xposj [-500 -500 -500 -500 -500] def /yposj [ 200 200 200 200 200] def /j i 8 sub 4 idiv def Xi i get MULX mul xposj j get add Yi i get MULY mul yposj j get add moveto Ltj j get show } if %iYGRB=0 or 5 } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM } for %iYGRB %iYGRB=0,8 END large loop ix0t neg iy0t neg translate %only once %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.0 mul add def proz_tx_refe1 } if %xchartl=4 %****************************************************************** xchartl 5 eq {%xchartl=5 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (\050) show TBIM (L) show TBM ( / ) show SM (D) show TBIM (L\051 / \050) show TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM ( / ) show SM (D) show TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (\051 ) show TBM (nomalized central\255field threshold contrast) showea (Normierter Infeldschwellen\255Kontrast) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def proz_co_system /xtu 0800 def /ytu 4200 def xtu ytu moveto TBM (surround\255field luminance ) showea (Umfeld\255Leuchtdichte ) showde xtu ytu 350 sub moveto 1000 0000 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 100 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 -100 rlineto stroke xtu 1200 add ytu 450 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show %ytex TBM 0 1 7 {/i exch def %i=1,7 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty5 i get show } for %i=1,7 ix0t iy0t translate iYGRB1 iYGRBD iYGRB2 {/iYGRB exch def %iYGRB=0,8 BEG large loop iYGRB iYGRB1 eq {%iYGRB=iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB=iYGRB1 iYGRB iYGRB1 gt {%iYGRB>iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get fYGRB iYGRB get mul put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB>iYGRB1 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {[100 100] 0 setdash} if jkurv 1 eq {[100 100] 0 setdash} if jkurv 2 eq {[] 0 setdash} if jkurv 3 eq {[100 100] 0 setdash} if jkurv 4 eq {[100 100] 0 setdash} if proz_color0_9 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.5 MULY mul lineto stroke tfact Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill iYGRB 0 eq iYGRB 5 eq or {%iYGRB=0 or 5 tfn %j 0_8 1_12 2_16 3_20 4_24 /xposj [-400 -400 -400 -400 -400] def /yposj [ 200 500 200 200 200] def /j i 8 sub 4 idiv def Xi i get MULX mul xposj j get add Yi i get MULY mul yposj j get add moveto Ltj j get show } if %iYGRB=0 or 5 } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM } for %iYGRB %iYGRB=0,8 END large loop ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.0 mul add def proz_tx_refe1 } if %xchartl=5 %****************************************************************** xchartl 6 eq {%xchartl=6 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [\050) show TBIM (L) show TBM ( / ) show SM (D) show TBIM (L\051 / \050) show TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM ( / ) show SM (D) show TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (\051] ) show TBM (nomalized central\255field threshold contrast) showea (Normierter Infeldschwellen\255Kontrast) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def proz_co_system /xtu 4000 def /ytu 4500 def xtu ytu moveto TBM (surround\255field luminance ) showea (Umfeld\255Leuchtdichte ) showde xtu ytu 350 sub moveto 1000 0000 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 100 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 -100 rlineto stroke xtu 1200 add ytu 450 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty6 i get show } for %i=1,6 ix0t iy0t translate iYGRB1 iYGRBD iYGRB2 {/iYGRB exch def %iYGRB=0,8 BEG large loop iYGRB iYGRB1 eq {%iYGRB=iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB=iYGRB1 iYGRB iYGRB1 gt {%iYGRB>iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get fYGRB iYGRB get mul put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB>iYGRB1 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {[100 100] 0 setdash} if jkurv 1 eq {[100 100] 0 setdash} if jkurv 2 eq {[] 0 setdash} if jkurv 3 eq {[100 100] 0 setdash} if jkurv 4 eq {[100 100] 0 setdash} if proz_color0_9 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke tfact Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill iYGRB 0 eq iYGRB 5 eq or {%iYGRB=0 or 5 tfn %j 0_8 1_12 2_16 3_20 4_24 /xposj [-400 -400 -400 -400 -400] def /yposj [ 200 300 200 200 200] def /j i 8 sub 4 idiv def Xi i get MULX mul xposj j get add Yi i get MULY mul yposj j get add moveto Ltj j get show } if %iYGRB=0 or 5 } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM } for %iYGRB %iYGRB=0,8 END large loop ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.0 mul add def proz_tx_refe1 } if %xchartl=6 %****************************************************************** xchartl 7 eq {%xchartl=7 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBIM (L) show TBK 0 60 rmoveto (*) show 0 -60 rmoveto TBM ( / ) show TBIM (L) show TBK 0 60 rmoveto (*) show 0 -60 rmoveto TBK -60 -80 rmoveto (u) show 0 80 rmoveto TBM ( ) show TBM (nomalized central\255field lightness) showea (Normierte Infeldhelligkeit) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def proz_co_system /xtu 0800 def /ytu 4200 def xtu ytu moveto TBM (surround\255field luminance ) showea (Umfeld\255Leuchtdichte ) showde xtu ytu 350 sub moveto 1000 0000 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 100 rlineto stroke xtu 1000 add ytu 350 sub moveto -200 -100 rlineto stroke xtu 1100 add ytu 450 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke %special 600 instead of 500 sub ix0 600 sub iy0 i iys mul add 100 sub moveto ty7 i get show } for %i=1,6 ix0t iy0t translate iYGRB1 iYGRBD iYGRB2 {/iYGRB exch def %iYGRB=0,8 BEG large loop iYGRB iYGRB1 eq {%iYGRB=iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB=iYGRB1 iYGRB iYGRB1 gt {%iYGRB>iYGRB1 0 1 5 {/j exch def %j=0,5 Luj j L0j j get fYGRB iYGRB get mul put Lulogj j Luj j get log put } for %J=0,5 proz_Li_func047 } if %iYGRB>iYGRB1 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {[100 100] 0 setdash} if jkurv 1 eq {[100 100] 0 setdash} if jkurv 2 eq {[] 0 setdash} if jkurv 3 eq {[100 100] 0 setdash} if jkurv 4 eq {[100 100] 0 setdash} if proz_color0_9 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%SW 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.5 MULY mul lineto stroke tfact Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill iYGRB 0 eq iYGRB 5 eq or {%iYGRB=0 or 5 tfn %j 0_8 1_12 2_16 3_20 4_24 /xposj [-500 -500 -500 -500 -500] def /yposj [ 200 200 200 200 200] def /j i 8 sub 4 idiv def Xi i get MULX mul xposj j get add Yi i get MULY mul yposj j get add moveto Ltj j get show } if %iYGRB=0 or 5 } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM } for %iYGRB %iYGRB=0,8 END large loop ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 iys 4.0 mul add def proz_tx_refe1 } if %xchartl=7 %****************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 4500 neg translate} if % xchartl 1 eq { 5850 neg 4500 neg translate} if % xchartl 2 eq { 100 neg 0250 neg translate} if % xchartl 3 eq { 5850 neg 0250 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 5850 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 5850 neg 0250 neg translate} if } for %xchartl=4,7 showpage grestore %%Trailer