%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DGQ3/DGQ30-5N
%%BoundingBox: 70 85 245 206

%START PDFDE011.EPS
/pdfmark02 where {pop} {userdict /pdfmark02 /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/DGQ3/DGQ3.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 pdfmark02
[ /View [ /Fit ]
/DOCVIEW pdfmark02
%END  PDFDE011

/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
/TS {160 /Times-ISOL1 FS} bind def
/TL {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

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIS {160 /TimesI-ISOL1 FS} bind def
/TIL {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

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBS {160 /TimesB-ISOL1 FS} bind def
/TBL {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIS {160 /TimesBI-ISOL1 FS} bind def
/TBIL {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

/SV {120 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def
/SL {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CV {120 /Courier FS} bind def
/CS {160 /Courier FS} bind def
/CL {200 /Courier FS} bind def
/CK {250 /Courier FS} bind def
/CM {300 /Courier FS} bind def
/CG {350 /Courier FS} bind def

/CIV {120 /Courier-Oblique FS} bind def
/CIS {160 /Courier-Oblique FS} bind def
/CIL {200 /Courier-Oblique FS} bind def
/CIK {250 /Courier-Oblique FS} bind def
/CIM {300 /Courier-Oblique FS} bind def
/CIG {350 /Courier-Oblique FS} bind def

/CBV {120 /Courier-Bold FS} bind def
/CBS {160 /Courier-Bold FS} bind def
/CBL {200 /Courier-Bold FS} bind def
/CBK {250 /Courier-Bold FS} bind def
/CBM {300 /Courier-Bold FS} bind def
/CBG {350 /Courier-Bold FS} bind def

/CBIV {120 /Courier-BoldOblique FS} bind def
/CBIS {160 /Courier-BoldOblique FS} bind def
/CBIL {200 /Courier-BoldOblique FS} bind def
/CBIK {250 /Courier-BoldOblique FS} bind def
/CBIM {300 /Courier-BoldOblique FS} bind def
/CBIG {350 /Courier-BoldOblique FS} bind def

/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBM show} bind def
/bkshow1 {TBIM show} bind def
/ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def
/eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def
 
/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto TM} bind def
/eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto TM} bind def
/jshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto TBM} bind def
/jshow20 {TBK -50 -70 rmoveto show 0 70 rmoveto TBM} bind def 

%XCHA03.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setrgbcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setrgbcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setrgbcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setrgbcolor rem stroke} bind def

/tzr {1 0 0} bind def %Reproduktionsfarben
/tzg {0 1 0} bind def
/tzb {0 0 1} bind def
/tzc {0 1 1} bind def
/tzm {1 0 1} bind def
/tzy {1 1 0} bind def
/tzo {1 0 0} bind def %Reproduktionsfarben
/tzl {0 1 0} bind def
/tzv {0 0 1} bind def

/tzn {0.00} bind def %Graureihe
/tzd {0.25} bind def
/tzz {0.50} bind def
/tzh {0.75} bind def
/tzw {1.00} bind def

/tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfg {0 1 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} bind def
/tfc {0 1 1 setrgbcolor} bind def
/tfm {1 0 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfl {0 1 0 setrgbcolor} bind def
/tfv {0 0 1 setrgbcolor} bind def

/tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfgn {0.0 0.5 0.0 setrgbcolor} bind def
/tfbn {0.0 0.0 0.5 setrgbcolor} bind def
/tfcn {0.0 0.5 0.5 setrgbcolor} bind def
/tfmn {0.5 0.0 0.5 setrgbcolor} bind def
/tfyn {0.5 0.5 0.0 setrgbcolor} bind def
/tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfln {0.0 0.5 0.0 setrgbcolor} bind def
/tfvn {0.0 0.0 0.5 setrgbcolor} bind def

/tfn {0.00 setgray} bind def %Graureihe
/tfd {0.25 setgray} bind def
/tfz {0.50 setgray} bind def
/tfh {0.75 setgray} bind def
/tfw {1.00 setgray} bind def
%XCHA03.PS BEG

%%EndProlog
gsave
%LANINDL2 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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
4 /Times-ISOL1 FS
74 86 moveto
(DGQ30-5N) show
 
72 90 translate
 
0.01 MM dup scale

30 setlinewidth

/xwidth 6000 def
/ywidth 4000 def

tfz %Z
0000 0000 moveto xwidth 0 rlineto 0 ywidth rlineto 
             xwidth neg 0 rlineto closepath fill

tfy
0000 3300  moveto xwidth 0 rlineto 0 0700 rlineto
              xwidth neg 0 rlineto closepath fill
 
tfw
0000 2400  moveto xwidth 0 rlineto 0 0900 rlineto
              xwidth neg 0 rlineto closepath fill

tfy
0000 1600  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill

tfw
0000 0800  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill

tfy
0000 0000  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill
 
tfn

/TBKu {TBL -20 -60 rmoveto (u) show 0 60 rmoveto TBK} def
/TBKr {TBL -20 -60 rmoveto (r) show 0 60 rmoveto TBK} def
/TBK1 {TBL 0 -80 rmoveto (1) show 0 80 rmoveto TBK} def
/TBK2 {TBL 0 -80 rmoveto (2) show 0 80 rmoveto TBK} def
/TBK3 {TBL 0 -80 rmoveto (3) show 0 80 rmoveto TBK} def
/TBK4 {TBL 0 -80 rmoveto (4) show 0 80 rmoveto TBK} def
/TBK5 {TBL 0 -80 rmoveto (5) show 0 80 rmoveto TBK} def
/TBK1u {TBL 0 -80 rmoveto (1u) show 0 80 rmoveto TBK} def
/TBK2u {TBL 0 -80 rmoveto (2u) show 0 80 rmoveto TBK} def
/TBK3u {TBL 0 -80 rmoveto (3u) show 0 80 rmoveto TBK} def
/TBK4u {TBL 0 -80 rmoveto (4u) show 0 80 rmoveto TBK} def
/TBK5u {TBL 0 -80 rmoveto (5u) show 0 80 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
/TBL1 {TBS 0 -80 rmoveto (1) show 0 80 rmoveto TBL} def
/TBL2 {TBS 0 -80 rmoveto (2) show 0 80 rmoveto TBL} def
/TBL3 {TBS 0 -80 rmoveto (3) show 0 80 rmoveto TBL} def
/TBL4 {TBS 0 -80 rmoveto (4) show 0 80 rmoveto TBL} def
/TBL5 {TBS 0 -80 rmoveto (5) show 0 80 rmoveto TBL} def
/TBL1u {TBS 0 -80 rmoveto (1u) show 0 80 rmoveto TBL} def
/TBL2u {TBS 0 -80 rmoveto (2u) show 0 80 rmoveto TBL} def
/TBL3u {TBS 0 -80 rmoveto (3u) show 0 80 rmoveto TBL} def
/TBL4u {TBS 0 -80 rmoveto (4u) show 0 80 rmoveto TBL} def
/TBL5u {TBS 0 -80 rmoveto (5u) show 0 80 rmoveto TBL} def

%for derivation equations DY        
/x0 0050 def %left start
/x1 0320 def %=
/x2 2000 def %error
/x3 2600 def %Ai
/x4 5600 def %[x]
/x4e 5600 def %[x]

x0 3750 moveto
TBK
(LABJND colour difference formula of CIE 230:2019) showea
(LABJND-Farbdiffernzformel von CIE 230:2019) showde

x0 3450 moveto 
(Modifications with normalization to ) showea
(Modifikationen mit Normierung zu ) showde
TBIK
(Y) show
TBKu
TBK
( of surround) showea
( vom Umfeld) showde 

/y0  2900 def
/y0d 0300 def
/y1  2100 def
/y2  1300 def
/y3  0500 def

tfn
x2 y0 y0d add moveto
TBL
tfo
(error) showea
(Fehler) showde
tfn


x0 y0 moveto
TBIK
(dY) show
x1 y0 moveto
TBK
( =A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show

x2 y0 100 add moveto
tfo
TBL
(0,0044) show
tfn

x3 y0 moveto
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2
(=0,0058) show

x4e y0 moveto
TBL
([1d]) show

x0 y0 y0d sub moveto
TBIK
(dY) show
TBKr
TBK
(=A) show
TBK1
TBK
(+A) show
TBK2u
TBIK
(Y) show
TBKr

x3 y0 y0d sub moveto
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2u
(=0,1004, ) show
TBIL
(Y) show
TBLr
TBL
(=) show
TBIL
( \050Y/Y) show
TBLu
TBIL
(\051) show

x4e y0 y0d sub moveto
TBL
([2d]) show

%********************************************
tfn
x0 y2 moveto
TBIK
(dY) show
x1 y2 moveto
TBK
( =A) show
TBK1
TBK
([1+A) show
TBK2
TBIK
(Y) show
TBK
(]) show

x2 y2 100 add moveto
tfo
TBL
(0,0044) show
tfn

x3 y2 moveto 
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2
(=0,3343) show

x4e y2 moveto
TBL
([5d]) show

x0 y2 y0d sub moveto
TBIK
(dY) show
TBKr
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2u
TBIK
(Y) show
TBKr
TBK
(]) show

x3 y2 y0d sub moveto 
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2u
(=5,931, ) show
TBIL
(Y) show
TBLr
TBL
(=) show
TBIL
( \050Y/Y) show
TBLu
TBIL
(\051) show

x4e y2 y0d sub moveto
TBL
([6d]) show


%**************************************************
%for integral equations F*(Yr)

/x0 0050 def %left start
/x1 0250 def %=
/x2 x1 1000 add def
/x3 x1 1150 add def
/x4 x1 1550 add def

/x0d 400 def
/x01 x0 x0d add def %left start
/x11 x1 x0d add def %=
/x21 x2 x0d add def %error
/x31 x3 x0d add def %Ai
/x41 x4 x0d add 200 add def %[x]

x0 y1 000 add moveto
SK
(\363) show
x0 y1 150 sub moveto
(\364) show
x0 y1 300 sub moveto
(\365) show

x1 0300 add y1 050 add moveto
TBIK
(dY) show
TBKr


x1 y1 050 sub moveto 0900 0 rlineto stroke

x1 y1 270 sub moveto
TBK
(A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
TBKr

x2 y1 100 sub moveto
TBK
(=) show
x3 150 add y1 000 sub moveto (1) show
x3 100 add y1 050 sub moveto 0250 0 rlineto stroke
x3 100 add y1 270 sub moveto (A) show
TBK2

x4 y1 100 sub moveto
TBK
(ln) show
SK
(\364) show
TBK
(A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
TBKr
SK
(\364) show

x2 2050 add y1 100 sub moveto
TBK
(=) show
TBIK
( F*\050Y) show
TBKr
TBIK
(\051) show

4900 y1 100 sub moveto
TBL
(\050A) show
TBL3
TBL
(=1\051) show

x4e y1 100 sub moveto
TBL
([2i]) show

%**********************************************
TBK
x0 150 add y3 000 sub moveto (1) show
x0 100 add y3 050 sub moveto 0250 0 rlineto stroke
x0 100 add y3 270 sub moveto (A) show
TBK1


x01 y3 000 add moveto
SK
(\363) show
x01 y3 150 sub moveto
(\364) show
x01 y3 300 sub moveto
(\365) show

x11 0200 add y3 050 add moveto
TBIK
(dY) show
TBKr

x11 y3 050 sub moveto 0800 0 rlineto stroke

x11 y3 270 sub moveto
TBK
(1) show
TBK
(+A) show
TBK2
TBIK
(Y) show
TBKr

x21 100 sub y3 100 sub moveto
TBK
(=) show

x31 150 add y3 000 sub moveto (1) show
x31 000 add y3 050 sub moveto 0400 0 rlineto stroke
x31 000 add y3 270 sub moveto (A) show
TBK1
(A) show
TBK2


x41 y3 100 sub moveto
TBK
(ln) show
SK
(\364) show
TBK
(1) show
TBK
(+A) show
TBK2
TBIK
(Y) show
TBKr
SK
(\364) show

x21 100 sub 2200 add y3 100 sub moveto
TBK
(=) show

TBIK
( F*\050Y) show
TBKr
TBIK
(\051) show


4900 y3 100 sub moveto
TBL
(\050A) show
TBL3
TBL
(=1\051) show

x4e y3 100 sub moveto
TBL
([6i]) show

30 setlinewidth
tfn
0 0 xwidth ywidth rec stroke
 
showpage
grestore
} for %output with langind end
%%Trailer