%!PS-Adobe-3.0 EPSF-3.0 eew60-7n_60 %%BoundingBox: 70 85 421 335 %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/eew6/eew6.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:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20****************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind 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-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-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 /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /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 0 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 % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 0 def %0:left page, 1:right page /pchartl 4 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 12250 def %2x6000+250 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(eew60-) show} {(eew61-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl 02.8 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eew6/eew60-5 %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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/eew6/eew6.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:2023060112000) /ModDate (D:20230601112000) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 0 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 % gsave 4 /Times-ISOL1 FS 74 86 moveto (eew60-5a ens00-5n) show 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5650 def 1 setgray 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 %gsave %start in case of clip /yz 0300 def /x0 0100 def /xe 5350 def /y1 yhoe 0600 sub def %F(x) /y2 yhoe 1300 sub def %text /y3 yhoe 1900 sub def %dF(x) /y4 yhoe 2400 sub def %F(x) /y5 yhoe 3000 sub def %dln*1+x) /y6 yhoe 3600 sub def %ln(1+ax) TBK x0 yhoe 220 sub moveto (Line\255element equations according to CIE 230:2019) showea (Linienelement\255Gleichungen nach CIE 230:219) showde 0 yhoe 300 sub moveto xwidth 0 rlineto stroke x0 y1 0 yz mul sub moveto TK (Colour\255threshold (t) function ) showea (Farbschwellen-(t)Funktion ) showde TBIK (f) show 0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK ((x)) show TBK ( = ) show SK (D) show TBIK (Y) show -20 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK ( = ) show SK (D) show TBIK (x) show TBIK 20 0 rmoveto (Y) show -20 -50 rmoveto TBS (u) show 0 50 rmoveto x0 y1 1 yz mul sub moveto SK (D) show TBIK (Y) show -20 -50 rmoveto TBS (t) show 0 50 rmoveto TBK (=\050A) show 0 -50 rmoveto TBS (1) show 0 50 rmoveto TBK (+A) show 0 -50 rmoveto TBS (2) show 0 50 rmoveto TBIK (Y) show %-20 -50 rmoveto TBS (t) show 0 50 rmoveto TBK (\051/A) show 0 -50 rmoveto TBS (0) show 0 50 rmoveto TK ( A) show 0 -50 rmoveto TS (0) show 0 50 rmoveto TK (=1,5, ) show TK (A) show 0 -50 rmoveto TS (1) show 0 50 rmoveto TK (=0,0170, ) show TK (A) show 0 -50 rmoveto TS (2) show 0 50 rmoveto TK (=0,0058) show xe y1 moveto TK ([0]) show /ix0 0400 def /ix1 1500 def /ixt 0000 def /iyt 2500 def /y2h y2 50 add def %line higher /y2a y2 120 add def %text above line /y2s y2 150 sub def %text below line ix0 y2 moveto %cero line txt (=) TBIK (f) show TBS 0 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 30 0 rmoveto (\050x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK (\051 = ) show ix0 800 add y2h moveto 500 0 rlineto stroke ix0 850 add y2a moveto SK (D) show TBIK (Y) show TBS -20 -50 rmoveto TBS (t) show 0 50 rmoveto ix0 800 add y2s moveto SK (D) show TBIK (Y) show TBS -20 -50 rmoveto TBS (tu) show 0 50 rmoveto ix0 1350 add y2 moveto TBIK ( = ) show ix0 1600 add y2h moveto 700 0 rlineto stroke ix0 1600 add y2a moveto TBK (1+b) show 30 0 rmoveto TBIK (x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto ix0 1700 add y2s moveto TBK (1+b) show ix0 2500 add y2 moveto TK (b) show TK (=A) show 0 -50 rmoveto TS (2) show 0 50 rmoveto TIK (Y) show -20 -50 rmoveto TS (u) show 0 50 rmoveto TK (/A) show 0 -50 rmoveto TS (1) show 0 50 rmoveto ix0 3700 add y2 moveto TK (x) show %0 -50 rmoveto TS (t) show 0 50 rmoveto TK (=) show TIK (Y) show %-20 -50 rmoveto TS (t) show 0 50 rmoveto TK (/) show TIK (Y) show -20 -50 rmoveto TS (u) show 0 50 rmoveto xe y2 moveto TK ([1]) show /ix0 0400 def /ix1 1500 def /ix2 3000 def /ixt 0000 def /iyt 2500 def ix1 300 sub y3 150 sub moveto 500 /Symbol FS (\362) show /y3h y3 50 add def %line higher /y3a y3 120 add def %text above line /y3s y3 170 sub def %text below line ix0 y3 moveto %cero line text TBIK (F) show -20 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 30 0 rmoveto (\050x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK (\051 = ) show ix1 100 sub y3h moveto 700 0 rlineto stroke ix1 y3a moveto TBIK (f) show 30 0 rmoveto (') show TBS 0 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 50 0 rmoveto (\050x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK (\051) show ix1 y3s moveto (f) show TBS 0 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 30 0 rmoveto (\050x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK (\051) show ix1 700 add y3 moveto TBIK (dx) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK ( = ) show ix2 300 sub y3 150 sub moveto 500 /Symbol FS (\362) show ix2 100 sub y3h moveto 700 0 rlineto stroke ix2 200 add y3a moveto TBK (b) show ix2 y3s moveto (1+b) show TBIK 30 0 rmoveto (x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto ix2 700 add y3 moveto TBIK (dx) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto xe y3 moveto TK ([2]) show x0 y4 moveto (Example for ) showea (Beispiel f\374r ) showde TIK (L*) show 0 -50 rmoveto TBS (tu) show 20 50 rmoveto TIK ((x)) show TK (, ) show SK (D) show TIK (Y) show 0 -50 rmoveto TBS (t) show 0 50 rmoveto TK ( mit ) showde ( with ) showea TIK (x=Y/Y) show 0 -50 rmoveto TS (u) show 0 50 rmoveto TIK (, x) show 0 -50 rmoveto TS (u) show 0 50 rmoveto TK (=1, b=6,141:) show %( of ) showea %( von ) showde %(CIE 230:2019:) show /ix0 0400 def /ix1 1500 def /ixt 0000 def /iyt 2500 def /y5h y5 50 add def %line higher /y5a y5 120 add def %text above line /y5s y5 150 sub def %text below line ix0 y5 moveto %cero line txt (=) TBIK (L*) show TBS 0 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 30 0 rmoveto (\050x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBIK (\051 = ) show ix0 1000 add y5h moveto 750 0 rlineto stroke ix0 1050 add y5a moveto TBIK (L*) show 0 -50 rmoveto TBS (t) show 20 50 rmoveto TBIK ((x)) show ix0 1000 add y5s moveto TBIK (L*) show 0 -50 rmoveto TBS (tu) show 20 50 rmoveto TBIK ((x)) show %-20 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK %(\051) show ix0 1750 add y5 moveto TBIS ( = ) show ix0 2000 add y5h moveto 900 0 rlineto stroke ix0 2000 add y5a moveto TBK (ln\0501+b) show 30 0 rmoveto TBIK (x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBK (\051) show ix0 2050 add y5s moveto TBK (ln(1+b)) show xe y5 moveto TK ([3]) show /ix0 0400 def /ix1 1500 def /ixt 0000 def /iyt 2500 def /y6h y6 50 add def %line higher /y6a y6 120 add def %text above line /y6s y6 150 sub def %text below line ix0 y6 moveto %cero line txt (=) TBIK (f) show TBS 0 -50 rmoveto TBS (tu) show 0 50 rmoveto TBIK 30 0 rmoveto ((x)) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto TBK ( = ) show ix0 800 add y6h moveto 500 0 rlineto stroke ix0 850 add y6a moveto SK (D) show TBIK (Y) show TBS -20 -50 rmoveto TBS (t) show 0 50 rmoveto ix0 800 add y6s moveto SK (D) show TBIK (Y) show TBS -20 -50 rmoveto TBS (tu) show 0 50 rmoveto ix0 1350 add y6 moveto TBIK ( = ) show ix0 1600 add y6h moveto 700 0 rlineto stroke ix0 1600 add y6a moveto TBK (1+b) show 30 0 rmoveto TBIK (x) show %0 -50 rmoveto TBS (t) show 0 50 rmoveto ix0 1700 add y6s moveto TBK (1+b) show xe y6 moveto TK ([4]) show %grestore %end in case of clip showpage grestore %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eew6/eew60-6 %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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/eew6/eew6.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:2023060112000) /ModDate (D:20230601112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 0 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 % gsave 4 /Times-ISOL1 FS 74 86 moveto (eew60-6a ens00-6n) show 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5650 def 1 setgray 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 %gsave %start in case of clip /yz 0300 def /x0 0100 def /xg 0500 def /xe 5350 def /y1 yhoe 0450 sub def %F(x) /y2 yhoe 1300 sub def %text /y3 yhoe 1900 sub def %dF(x) /y4 yhoe 2400 sub def %F(x) /y5 yhoe 3000 sub def %dln*1+x) /y6 yhoe 3600 sub def %ln(1+ax) TBK x0 yhoe 220 sub moveto (Line\255element equations: loudness - sound level) showea (Linienelement\255Greichngen: Lautheit - Schallpegel) showde 50 70 rmoveto TL (1\051 ) show 0 -100 rmoveto 0 yhoe 300 sub moveto xwidth 0 rlineto stroke x0 y1 0.2 yz mul sub moveto TK (Simple equation by the ) showea (Einfache Gleichung nach dem ) showde TBIK (Weber\255Fechner) show TBK (\255Gesetz) showde ( law) showen x0 y1 1 yz mul sub moveto TK (between the loudness ) showen (zwischen der Lautheit ) showde TIK (N* ) show TK (and the sound level ) showen (und dem Schallpegel ) showde TIK (E) show xg y1 2.2 yz mul sub 70 add moveto 500 0 rlineto stroke xg 1000 add y1 2.2 yz mul sub 70 add moveto 400 0 rlineto stroke xg 50 add y1 2.2 yz mul sub 120 add moveto SK (D) show TBIK (N*) show -400 -250 rmoveto (N*) show xg 550 add y1 2.2 yz mul sub moveto TBK (= n ) show 050 100 rmoveto SK (D) show TBIK (E) show -200 -250 rmoveto (E) show xe y1 2.2 yz mul sub moveto TK ([1]) show %******************************************* x0 y1 3.4 yz mul sub moveto TK (It is assumed at the hearing threshold ) showen (Es wird an der H\366rschwelle angenommen ) showde TBIK (E) show TBK 0 -50 rmoveto (s) show 0 50 rmoveto %******************************************** xg y1 4.6 yz mul sub 70 add moveto 750 0 rlineto stroke xg 1300 add y1 4.6 yz mul sub 70 add moveto 500 0 rlineto stroke xg 150 add y1 4.6 yz mul sub 120 add moveto SK (D) show TBIK (N*) show -600 -250 rmoveto (N*+N*) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto xg 850 add y1 4.6 yz mul sub moveto TBK (= n) show 250 120 rmoveto SK (D) show TBIK (E) show -400 -250 rmoveto (E+E) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto xe y1 4.6 yz mul sub moveto TK ([2]) show %******************************************* x0 y1 6.0 yz mul sub moveto TK (Integration on both sides and requirement ) showen (Beidseitige Integration und Forderung ) showde TIK (N*) show TK (=0 ) show TK (for ) showen (f\374r ) showde TIK (E) show TK (=0) show %******************************************** xg 1750 add y1 7.2 yz mul sub 70 add moveto 300 0 rlineto stroke xg 150 add y1 7.2 yz mul sub moveto TBIK (N*) show TBK (= ) show TBIK (N*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( [ \050 1 + ) show 100 100 rmoveto TBIK (E) show -200 -220 rmoveto TBIK (E) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto 0 120 rmoveto 100 000 rmoveto TBK (\051) show TBS 20 100 rmoveto (n) show 0 -100 rmoveto TBK ( - 1 ]) show xe y1 7.2 yz mul sub moveto TK ([3]) show %******************************************* x0 y1 8.6 yz mul sub moveto TK (Small change with threshold factor ) showen (Kleine \304nderung Schwellenfaktor ) showde TIK (s ) show TK (and ) showen (und ) showde TIK (N*) show TK (=0 ) show TK (for ) showen (f\374r ) showde TIK (E) show TK (=) show TIK (E) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto %******************************************** xg 1850 add y1 10.0 yz mul sub 70 add moveto 600 0 rlineto stroke xg 150 add y1 10.0 yz mul sub moveto TBIK (N*) show TBK (= ) show TBIK (N*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( [ \050 1 + ) show TBIK (s) show 100 140 rmoveto TBIK (E-E) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto -400 -260 rmoveto TBIK (E) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto 200 120 rmoveto TBK (\051) show TBS 20 100 rmoveto (n) show 0 -100 rmoveto TBK ( - 1 ]) show xe y1 10.0 yz mul sub moveto TK ([4]) show %**************************************************** x0 y1 11.1 yz mul sub moveto 0 20 rmoveto TL (1\051 ) show 0 -20 rmoveto TIL (Zwicker E., Feldkeller R., (1967), ) show TL (Das Ohr als Nachrichtenempf\344nger \050the ear as) show x0 y1 11.6 yz mul sub moveto TL (information receiver\051, Hirzel\255Verlag, 232 pages, see 133-139) show %grestore %end in case of clip showpage grestore %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eew6/eew60-7 %%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/eew6/eew6.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:2023060112000) /ModDate (D:20230601112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 0 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 % gsave 4 /Times-ISOL1 FS 74 86 moveto (eew60-7a ens00-7n) show 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5650 def 1 setgray 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 %gsave %start in case of clip /yz 0300 def /x0 0100 def /xg 0500 def /xe 5350 def /y1 yhoe 0450 sub def %F(x) /y2 yhoe 1300 sub def %text /y3 yhoe 1900 sub def %dF(x) /y4 yhoe 2400 sub def %F(x) /y5 yhoe 3000 sub def %dlL*1+x) /y6 yhoe 3600 sub def %ln(1+ax) TBK x0 yhoe 220 sub moveto (Line\255element equations: lightness - luminance) showea (Linienelementgleichungen: Helligkeit-Leuchtdichte) showde 20 70 rmoveto TL (1\051 ) show 0 -70 rmoveto 0 yhoe 300 sub moveto xwidth 0 rlineto stroke x0 y1 0.2 yz mul sub moveto TK (Simple equation by the ) showea (Einfache Gleichung nach dem ) showde TBIK (Weber\255Fechner) show TBK (\255Gesetz) showde ( law) showen x0 y1 1 yz mul sub moveto TK (between the lightness ) showen (zwischen der Helligkeit ) showde TIK (L* ) show TK (and the luminance ) showen (und der Leuchtdichte ) showde TIK (L) show xg y1 2.2 yz mul sub 70 add moveto 500 0 rlineto stroke xg 1000 add y1 2.2 yz mul sub 70 add moveto 400 0 rlineto stroke xg 50 add y1 2.2 yz mul sub 120 add moveto SK (D) show TBIK (L*) show -400 -250 rmoveto (L*) show xg 550 add y1 2.2 yz mul sub moveto TBK (= n ) show 050 100 rmoveto SK (D) show TBIK (L) show -200 -250 rmoveto (L) show xe y1 2.2 yz mul sub moveto TK ([1]) show %******************************************* x0 y1 3.4 yz mul sub moveto TK (It is assumed at the luminance threshold ) showen (Es wird an der Leuchtdichteschwelle angenommen ) showde TBIK (L) show TBK 0 -50 rmoveto (s) show 0 50 rmoveto %******************************************** xg y1 4.6 yz mul sub 70 add moveto 750 0 rlineto stroke xg 1300 add y1 4.6 yz mul sub 70 add moveto 500 0 rlineto stroke xg 150 add y1 4.6 yz mul sub 120 add moveto SK (D) show TBIK (L*) show -600 -250 rmoveto (L*+L*) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto xg 850 add y1 4.6 yz mul sub moveto TBK (= n) show 250 120 rmoveto SK (D) show TBIK (L) show -400 -250 rmoveto (L+L) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto xe y1 4.6 yz mul sub moveto TK ([2]) show %******************************************* x0 y1 6.0 yz mul sub moveto TK (Integration on both sides and requirement ) showen (Beidseitige Integration und Forderung ) showde TIK (L*) show TK (=0 ) show TK (for ) showen (f\374r ) showde TIK (L) show TK (=0) show %******************************************** xg 1700 add y1 7.2 yz mul sub 70 add moveto 300 0 rlineto stroke xg 150 add y1 7.2 yz mul sub moveto TBIK (L*) show TBK (= ) show TBIK (L*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( [ \050 1 + ) show 100 100 rmoveto TBIK (L) show -150 -220 rmoveto TBIK (L) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto 050 120 rmoveto TBK (\051) show TBS 20 100 rmoveto (n) show 0 -100 rmoveto TBK ( - 1 ]) show xe y1 7.2 yz mul sub moveto TK ([3]) show %******************************************* x0 y1 8.6 yz mul sub moveto TK (Small change with threshold factor ) showen (Kleine \304nderung Schwellenfaktor ) showde TIK (s ) show TK (and ) showen (und ) showde TIK (L*) show TK (=0 ) show TK (for ) showen (f\374r ) showde TIK (L) show TK (=) show TIK (L) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto %******************************************** xg 1800 add y1 10.0 yz mul sub 70 add moveto 600 0 rlineto stroke xg 150 add y1 10.0 yz mul sub moveto TBIK (L*) show TBK (= ) show TBIK (L*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( [ \050 1 + ) show TBIK (s) show 100 140 rmoveto TBIK (L-L) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto -400 -260 rmoveto TBIK (L) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto 200 120 rmoveto TBK (\051) show TBS 20 100 rmoveto (n) show 0 -100 rmoveto TBK ( - 1 ]) show xe y1 10.0 yz mul sub moveto TK ([4]) show %**************************************************** x0 y1 11.1 yz mul sub moveto 0 20 rmoveto TL (1\051 ) show 0 -20 rmoveto TIL (Richter, Klaus., ) show TL ((1969), Antagonistic signals in colour vision and relation with the) show x0 y1 11.6 yz mul sub moveto TL (perceived colour order (in German), Dis. Universit\344t Basel, ) show (150 pages, see 115\255123) show %grestore %end in case of clip showpage grestore %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eew6/eew60-8 %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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/eew6/eew6.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:2023060112000) /ModDate (D:20230601112000) /DOCINFO pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 0 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 % gsave 4 /Times-ISOL1 FS 74 86 moveto (eew60-8a ens00-8n) show 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5650 def 1 setgray 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 %gsave %start in case of clip /yz 0300 def /x0 0100 def /xg 0500 def /xe 5350 def /y1 yhoe 0450 sub def %F(x) /y2 yhoe 1300 sub def %text /y3 yhoe 1900 sub def %dF(x) /y4 yhoe 2400 sub def %F(x) /y5 yhoe 3000 sub def %dlL*1+x) /y6 yhoe 3600 sub def %ln(1+ax) TBK x0 yhoe 220 sub moveto (Line\255element equations: lightness - tristimulus value) showea (Linienelementgleichungen: Helligkeit-Hellbezugswert) showde 0 yhoe 300 sub moveto xwidth 0 rlineto stroke x0 y1 0.2 yz mul sub moveto TIK (Richter) show 50 70 rmoveto TL (1\051 ) show 0 -70 rmoveto TK (has used the following equation to approximate ) showen (benutzte folgende Gleichung zur Ann\344herung ) showde x0 y1 1 yz mul sub moveto TK (between the lightness ) showen (zwischen der Helligkeit ) showde TIK (L* ) show TK (and the tristimulus value ) showen (und dem Hellbezugswert ) showde TIK (Y) show %******************************************** xg 1800 add y1 2.2 yz mul sub 70 add moveto 600 0 rlineto stroke xg 150 add y1 2.2 yz mul sub moveto TBIK (L*) show TBK (= ) show TBIK (L*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( [ \050 1 + ) show TBIK (s) show 100 140 rmoveto TBIK (Y-Y) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto -400 -260 rmoveto TBIK (L) show TBS 0 -50 rmoveto (s) show 0 60 rmoveto 200 120 rmoveto TBK (\051) show TBS 20 100 rmoveto (n) show 0 -100 rmoveto TBK ( - 1 ]) show xe y1 2.2 yz mul sub moveto TK ([1]) show %******************************************* x0 y1 3.4 yz mul sub moveto TK (The parameters are for the ) showen (Die Parameter sind \374r die ) showde TIK (Munsell Value) show TK ( function) showen (\255Funktion) showde 20 70 rmoveto TL (2\051 ) show 0 -70 rmoveto %******************************************** x0 500 add y1 4.6 yz mul sub moveto TBK (L*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TK (=2,5125) show x0 1700 add y1 4.6 yz mul sub moveto TBK (s) show TK (=0,4250) show x0 2900 add y1 4.6 yz mul sub moveto TBK (Y) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TK (=0,1551) show x0 4100 add y1 4.6 yz mul sub moveto TBK (n) show TK (=0,3333) show xe y1 4.6 yz mul sub moveto TK ([2]) show %******************************************* x0 y1 5.8 yz mul sub moveto TK (The parameters are for the ) showen (Die Parameter sind \374r die ) showde TIK (CIELAB) show TIK (\255lightness) showen (\255Helligkeits) showde TK ( function) showen (\255Funktion) showde 20 70 rmoveto TL (3\051 ) show 0 -70 rmoveto xg 150 add y1 7.0 yz mul sub moveto TBIK (L*) show TBK ( = 116 \050) show TBIK (Y/Y) show TBS 0 -50 rmoveto (n) show 0 50 rmoveto TBK ( \051) show TBS 0 100 rmoveto (1/3) show 0 -100 rmoveto TBK ( - 16 ) show xg 2700 add y1 7.0 yz mul sub moveto TK (\0500,8<) show TIK (Y) show TK (<100, ) show TIK (Y) show TS 0 -50 rmoveto (n) show 0 50 rmoveto TK (=100\051) show xe y1 7.0 yz mul sub moveto TK ([3]) show %******************************************** x0 500 add y1 8.2 yz mul sub moveto TBK (L*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TK (=2,5125) show x0 1700 add y1 8.2 yz mul sub moveto TBK (s) show TK (=0,4250) show x0 2900 add y1 8.2 yz mul sub moveto TBK (Y) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TK (=0,1551) show x0 4100 add y1 8.2 yz mul sub moveto TBK (n) show TK (=0,3333) show xe y1 8.2 yz mul sub moveto TK ([4]) show %**************************************************** x0 y1 9.1 yz mul sub moveto 0 20 rmoveto TL (1\051 ) show 0 -20 rmoveto TIL (Richter, Klaus., ) show TL ((1969), Antagonistic signals in colour vision and relation with the) show x0 y1 9.6 yz mul sub moveto TL (perceived colour order (in German), Dis. Universit\344t Basel, ) show (150 pages, see 115\255123,) show x0 y1 10.1 yz mul sub moveto TL (74 MB, see for free download ) showen (74 MB, siehe freies Herunterladen ) showde TL 0 0.5 1 setrgbcolor (https://edoc/unibas.ch/72306/) show 0 setgray x0 y1 10.6 yz mul sub moveto 0 20 rmoveto TL (2\051 ) show 0 -20 rmoveto TIL (Newhall, S.M., Nickerson, D., Judd, D.B. (1943), Final report of the ) show (O.S.A.) show x0 y1 11.1 yz mul sub moveto (subcommittee on the spacing of Munsell Colors, OSA 33, 385\255418, ) show (see p. 417) show x0 y1 11.6 yz mul sub moveto 0 20 rmoveto TL (3\051 ) show 0 -20 rmoveto TL (ISO/CIE 11664-4:2019 Colorimetry, CIE 1976 L*a*b* colour space) show %grestore %end in case of clip showpage grestore %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer