%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/hgx1/hgx10-7n
%%BoundingBox: 70 85 245 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/hgx1/hgx1.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:2023040112000)
 /ModDate (D:20230401112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%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
(hgx10-7n DEQ30-7N) 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 20 rmoveto TBK} def
/TBKr {TBL -20 -60 rmoveto (r) show 0 20 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 5500 def %[x]
/x4e 5500 def %[x]

x0 3750 moveto
TBK
(LABJND colour\255difference formula of CIE 230:2019) showea
(LABJND\255Farbdifferenzformel von CIE 230:2019) showde

x0 3450 moveto 
(Modifications with normalization to ) showea
(Modifikationen mit Normierung zu ) showde
TBIK
(Y) show
TBL 0 -80 rmoveto (u) show 0 80 rmoveto
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

%********************************************
tfn
x0 y0 moveto
TBIK
(dY) show
x1 y0 moveto
TBK
(=[A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
TBK
(]) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

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

x3 y0 moveto 
TBL
(A) show
TBL1
(=0,0358, A) show
TBL2
(=0,00561, A) show
TBL3
(=1,107) show

x4e y0 moveto
TBL
([9d]) show

x1 y0 y0d sub moveto
TBK
(=[A) show
TBK1
TBK
(+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051]) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x3 y0 y0d sub moveto
TBL
(A) show
TBL1
(=0,0358, A) show
TBL2u
(=0,0995, A) show
TBL3
(=1,107) show

x4e y0 y0d sub moveto
TBL
([10d]) 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
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

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

x3 y2 moveto 
TBL
(A) show
TBL1
(=0,0251, A) show
TBL2
(=0,1566, A) show
TBL3
(=1,107) show

x4e y2 moveto
TBL
([7d]) show

x1 y2 y0d sub moveto
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051]) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x3 y2 y0d sub moveto
TBL
(A) show
TBL1
(=0,0251, A) show
TBL2u
(=2,778, A) show
TBL3
(=1,107) show

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

%***********************************************************

%for integral equations F*(Y)
/x0 0050 def %left start
/x1 0250 def %=
/x2 x1 1100 add def
/x3 x1 1150 add def
/x4 x1 1550 add def

/x20 x1 1400 add def
/x30 x1 1600 add def
/x40 x1 2000 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 0400 add y1 000 sub moveto
TBIK
(dY) show


x1 y1 050 sub moveto 1200 0 rlineto stroke

x1 y1 320 sub moveto
TBK
(\050A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
TBK
(\051) show
20 80 rmoveto
TBL
(A) show
TBL3

x20 y1 120 sub moveto
TBK
(=) show
x30 050 add y1 050 sub moveto 1600 0 rlineto stroke

x30 100 add y1 050 add moveto
TBK
([A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
TBK
(]) show
20 80 rmoveto
TBL
(\050A) show
TBL3
TBL
(+1\051) show


x30 300 add y1 270 sub moveto
TBK
(A) show
TBK2
TBK
(\050A) show
TBK3
TBK
(+1\051) show

x20 2000 add y1 120 sub moveto
TBK
(=) show
TBIK
( F*) show
((Y)) show

4900 y1 100 sub moveto
TBL
(A) show
TBL3
TBL
(#1) show

x4e y1 100 sub moveto
TBL
([9i]) 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 0300 add y3 000 sub moveto
TBIK
(dY) show


x11 y3 050 sub moveto 1000 0 rlineto stroke

x11 y3 320 sub moveto
TBK
([1) show
TBK
(+A) show
TBK2
TBIK
(Y) show
TBK
(]) show
20 80 rmoveto
TBL (A) show
TBL3


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

TBK
x21 250 add y3 000 sub moveto (1) show
x21 200 add y3 050 sub moveto 0250 0 rlineto stroke
x21 200 add y3 270 sub moveto (A) show
TBK1

/x31d 300 def
x31 200 add x31d add y3 050 sub moveto 1500 0 rlineto stroke

x31 250 add x31d add y3 050 add moveto
TBK
([1+A) show
TBK2
TBIK
(Y) show
TBK
(]) show
20 80 rmoveto
TBL
(\050A) show
TBL3
TBL
(+1\051) show

x31 500 add x31d add y3 270 sub moveto
TBK
(A) show
TBK2
TBK
(\050A) show
TBK3
TBK
(+1\051) show

x31 2100 add y3 100 sub moveto
TBK
(=) show
TBIK
( F*) show
((Y)) show

4900 y3 100 sub moveto
TBL
(A) show
TBL3
TBL
(#1) show


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

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