%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/hex1/hex10-1n
%%BoundingBox: 70 85 245 206

%START PDFDE011.EPS
/pdfmark01 where {pop} {userdict /pdfmark01 /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/hex1/hex1.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 pdfmark01
[ /View [ /Fit ]
/DOCVIEW pdfmark01
%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 1 def /lanind2 1 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
4 /Times-ISOL1 FS
74 86 moveto
(hex10-1n) 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
                          

/x0 0050 def %left start
/x1 0320 def %=
/x2 2000 def %error
/x3 2600 def %Ai
/x4 5650 def %[x]
/x4e 5600 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 
(Main integral equations with ) showea
(Hauptintegralgleichungen mit ) showde
TBIK
(Y ) show
TBK
(and ) showea
(und ) showde
TBIK
(Y) show
TBKu
TBK
( of surround u) showea
( vom Umfeld u) 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
([1+A) show
TBK2
TBIK
(Y) show
TBK
(]) 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,3343) show

x4e y0 moveto
TBL
([5d]) show

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

x3 y0 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 y0 y0d sub moveto
TBL
([6d]) 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

%********************************************************
x0 y2 y0d sub moveto
TBIK
(dY) show
TBKr
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2u
TBK
(\050) show
TBIK
(Y) show
TBKr
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]

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

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

x11 0200 add y1 050 add moveto
TBIK
(dY) show

x11 y1 050 sub moveto 0800 0 rlineto stroke

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

x21 200 sub y1 100 sub moveto
TBK
(=) show

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

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

x21 100 sub 2000 add y1 100 sub moveto
TBK
(=) show

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

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

x4e y1 100 sub moveto
TBL
([5i]) 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 050 add moveto
TBIK
(dY) show


x11 050 sub y3 050 sub moveto 1150 0 rlineto stroke

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


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

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

/x31d 400 def
x31 200 add x31d add y3 050 sub moveto 1600 0 rlineto stroke

x31 200 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 600 add x31d add y3 270 sub moveto
TBK
(A) show
TBK2
TBK
(\050A) show
TBK3
TBK
(+1\051) show

x31 2250 add y3 120 sub moveto
TBK
(=) show
TBIK
( F*) show
(\050Y) show
TBIK
(\051) show

5000 y3 100 sub moveto
TBL
(\050A) show
TBL3
TBL
(#1\051) 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