%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEQ6/DEQ61-5
%%BoundingBox: 70 85 226 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/DEQ6/DEQ6.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:2021080112000)
 /ModDate (D:20210801112000)
/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
(DEQ61-5N) show

72 90 translate

0.01 MM dup scale

15 setlinewidth

/yhoe 4000 def /xwidth 5333 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 5000 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)

/TBKu {TBL -20 -60 rmoveto (u) show 0 60 rmoveto TBK} def
/TBKr {TBL -20 -60 rmoveto (r) show 0 60 rmoveto TBK} def
/TBLu {TBS -15 -60 rmoveto (u) show 0 60 rmoveto TBL} def
/TBLr {TBS -15 -60 rmoveto (r) show 0 60 rmoveto TBL} def

/TKu {TL -20 -60 rmoveto (u) show 0 60 rmoveto TK} def
/TKr {TL -20 -60 rmoveto (r) show 0 60 rmoveto TK} def
/TLu {TS -15 -60 rmoveto (u) show 0 60 rmoveto TL} def
/TLr {TS -15 -60 rmoveto (r) show 0 60 rmoveto TL} def

/TBKru {TBL -20 -60 rmoveto (ru) show 0 60 rmoveto TBK} def
/TBLru {TBS -15 -60 rmoveto (ru) show 0 60 rmoveto TBL} def
/TKru  {TL  -20 -60 rmoveto (ru) show 0 60 rmoveto TK} def
/TLru  {TS  -15 -60 rmoveto (ru) show 0 60 rmoveto TL} def

/TBK0 {TBL -20 -60 rmoveto (0) show 0 60 rmoveto TBK} def
/TBK1 {TBL -20 -60 rmoveto (1) show 0 60 rmoveto TBK} def
/TBK2 {TBL -20 -60 rmoveto (2) show 0 60 rmoveto TBK} def
/TBL0 {TBS -15 -60 rmoveto (0) show 0 60 rmoveto TBL} def
/TBL1 {TBS -15 -60 rmoveto (1) show 0 60 rmoveto TBL} def
/TBL2 {TBS -15 -60 rmoveto (2) show 0 60 rmoveto TBL} def

/TK0 {TL -20 -60 rmoveto (0) show 0 60 rmoveto TK} def
/TK1 {TL -20 -60 rmoveto (1) show 0 60 rmoveto TK} def
/TK2 {TL -20 -60 rmoveto (2) show 0 60 rmoveto TK} def
/TL0 {TS -15 -60 rmoveto (0) show 0 60 rmoveto TL} def
/TL1 {TS -15 -60 rmoveto (1) show 0 60 rmoveto TL} def
/TL2 {TS -15 -60 rmoveto (2) show 0 60 rmoveto TL} def

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\255discrimination function ) showea
(Farbunterscheidungsfunktion ) showde
TBIK (f) show
TBIK (\050Y) show TBKr TBK (\051) show
TBK ( = ) show
SK
(D) show
TBIK (Y) show TBKr

x0 y1 1 yz mul sub moveto
SK
(D) show
TBIK (Y) show TBKr
TBK
(=\050A) show TBK1
TBK
(+A) show TBK2
TBIK (Y) show TBKr
TBK
(\051/A) show TBK0
TK
(   A) show TK0
TK
(=1,5, ) show
TK
(A) show TK1
TK
(=0,0170, ) show
TK
(A) show TK2
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 150 add def %text above line
/y2s y2 150 sub def %text below line
ix0 y2 moveto %cero line txt (=)
TBIK (f) show TBKu 30 0 rmoveto 
TBIK (\050Y) show TBKr
TBIK (\051) show TBK ( = ) show

ix0 800 add y2h moveto 500 0 rlineto stroke
ix0 850 add y2a moveto
SK
(D) show
TBIK (Y) show TBKr

ix0 800 add y2s moveto
SK
(D) show
TBIK
(Y) show TBKru

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 (Y) show TBKr

ix0 1700 add y2s moveto 
TBK
(1+b) show

ix0 2500 add y2 moveto
TK (b) show
TK (=A) show TK2
TIK (Y) show TKu
TK (/A) show TK1

ix0 3700 add y2 moveto
TIK (Y) show TBKr
TK (=) show
TIK (Y/Y) show TKu

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 150 add def %text above line
/y3s y3 170 sub def %text below line
ix0 y3 moveto %cero line text
TBIK (F) show TBKu
30 0 rmoveto
TBIK (\050Y) show TBKr TBK (\051) show
TBK ( = ) show

ix1 100 sub y3h moveto 700 0 rlineto stroke
ix1 y3a moveto 
TBIK
(f) show 30 0 rmoveto (') show
TBKu 30 0 rmoveto
TBIK (\050Y) show TBKr TBK (\051) show
ix1 y3s moveto
TBIK (f) show TBKu 30 0 rmoveto 
TBIK (\050Y) show TBKr TBK (\051) show
ix1 700 add y3 moveto
TBIK (dY) show TBKr
TBK ( = ) 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 (Y) show TBKr
ix2 700 add y3 moveto
TBIK (dY) show TBKr

xe y3 moveto
TK
([2]) show


x0 y4 moveto
(Example for ) showea
(Beispiel f\374r ) showde
TIK (L*) show
TIK (\050Y) show TKr
TIK (\051) show
TK ( & ) show
SK
(D) show
TIK (Y) show TKr
TK
( mit ) showde
( with ) showea
TIK (Y) show TKru
TK (=) show
TIK (Y) show TKr
TIK (/Y) show TKu
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 150 add def %text above line
/y5s y5 150 sub def %text below line
ix0 y5 moveto %cero line txt (=)
TBIK (L*) show TBKu
TBIK (\050Y) show TBKr
TBIK (\051) show
TBK (= ) show

ix0 0900 add y5h moveto 700 0 rlineto stroke
ix0 0950 add y5a moveto 
TBIK (L*\050Y) show TBKr
TBIK (\051) show
ix0 0900 add y5s moveto 
TBIK (L*\050Y) show TBKru
TBIK (\051) show

ix0 1550 add y5 moveto
TBIS
(  = ) show
ix0 1800 add y5h moveto 900 0 rlineto stroke
ix0 1800 add y5a moveto 
TBK
(ln\0501+b) show 30 0 rmoveto
TBIK (Y) show TBKr
TBIK (\051) show
ix0 1850 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 150 add def %text above line
/y6s y6 150 sub def %text below line
ix0 y6 moveto %cero line txt (=)
TBIK (f) show TBKu
TBIK 30 0 rmoveto (\050Y) show TBKr
TBIK (\051) show
TBK ( = ) show

ix0 800 add y6h moveto 400 0 rlineto stroke
ix0 850 add y6a moveto
SK
(D) show
TBIK (Y) show TBKr

ix0 800 add y6s moveto
SK
(D) show
TBIK (Y) show TBKru 

ix0 1250 add y6 moveto
TBIK ( = ) show
ix0 1500 add y6h moveto 700 0 rlineto stroke
ix0 1500 add y6a moveto 
TBK (1+b) show 30 0 rmoveto
TBIK (Y) show TBKr

ix0 1600 add y6s moveto 
TBK
(1+b) show

xe y6 moveto
TK
([4]) show

%grestore %end in case of clip

showpage
grestore

%%Trailer