%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/hgy1/hgy10-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/hgy1/hgy1.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:2024120112000)
 /ModDate (D:20241201112000)
/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

%OUTLIN.PS BEG 
/outxshowf {show} bind def
 
/outxshow {show} bind def
 
/outSK {250 /Symbol FS outxshow} bind def
/outSM {290 /Symbol FS outxshow} bind def
/outSG {350 /Symbol FS outxshow} bind def
 
/outshowf {setrgbcolor show} bind def
%OUTLIN.PS END 
 
%%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
 
/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
(hgy10-1n eer10-1n eeo41-8n) show
 
72 90 translate
 
0.01 MM dup scale

30 setlinewidth

/xwidth 6000 def
/ywidth 4000 def

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

tfy
0000 1600  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

tfy 0000 3150 xwidth 0850 rec fill
tfn 0000 3150 moveto xwidth 0 rlineto stroke
 
tfn
/TRGu {350 /Times-Roman FS (\271) show} def
/TRGo {350 /Times-Roman FS (\272) show} def
/TRMu {300 /Times-Roman FS (\271) show} def
/TRMo {300 /Times-Roman FS (\272) show} def

/KLxr {20 0 rmoveto TBIK (x) show
       -20 -40 rmoveto TBL (r) show 20 40 rmoveto} def
/MKxr {20 0 rmoveto TBIM (x) show
       -20 -60 rmoveto TBK (r) show 20 60 rmoveto} def
/KLLr {20 0 rmoveto TBIK (L) show
       -10 -40 rmoveto TBL (r) show 20 40 rmoveto} def
/MKLr {20 0 rmoveto TBIM (L) show
       -10 -60 rmoveto TBK (r) show 20 60 rmoveto} def

/x0 50 def
/TBM270 {270 /TimesB-ISOL1 FS} bind def
/TBM280 {280 /TimesB-ISOL1 FS} bind def
x0 3650 moveto
TBM270
(Achromatisches Sehen mit relativer Leuchtdichte) showde
TBM280
(Achromatic colour vision with relative luminance) showen

x0 3300 moveto
TBM270
(Mathematische Gleichungen mit Potenzfunktionen) showde
TBM280
(Mathematical equations with potential functions) showen

%*******************************************************
40 setlinewidth
/x00 x0   def
/x0a x0 1300 add def
/x0b x0 2870 add def
/x0c x0 4850 add def

/x01 x0 3000 add def
/x1a x0 1550 add def

/x2a x0 1550 add def

/x3a x0 1350 add 200 add def
/x3b x0 3450 add 300 add def 

/y00 2700 def
/y01 1950 def
/y02 1150 def
/y03 0350 def

%***********************************************
x00 y00 moveto
TBIM (F) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050) show MKLr TBM (,) show
20 0 rmoveto TBM (m\051) show

x0a 000 sub y00 moveto
TBM 20 0 rmoveto (=b) show
20 0 rmoveto
TBM (tanh\050) show
TBIM MKxr TBM (/a) show 0 0 rmoveto
TBM  (\051) show

x0b 500 add y00 70 add moveto 1300 0 rlineto stroke

x0b 100 add y00 moveto
TBM 20 0 rmoveto (=b) show 20 0 rmoveto

x0b 500 add y00 160 add moveto
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( - ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto

x0b 500 add y00 240 sub moveto
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( + ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto

x0b 1950 add y00 250 add moveto
KLxr TBK (=log\050) show TBIK (L) show
0 -40 rmoveto TBL (r) show 0 40 rmoveto
TBK (\051) show

x0b 1950 add y00 000 add moveto
TBIK (L) show
0 -40 rmoveto TBL (r) show 0 40 rmoveto
TBIK (=L/L) show
0 -40 rmoveto TBL (u) show 0 40 rmoveto

x0b 1950 add y00 250 sub moveto
KLxr TBK (<=0) show

5650 y00 250 sub moveto TBK ([1]) show

%**************************************************
x00 y01 70 add moveto 1400 0 rlineto stroke

x00 y01 180 add moveto
TBIM (dF) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050) show MKLr TBM (,) show
20 0 rmoveto TBM (m\051) show

x00 400 add y01 230 sub moveto
TBIM (d) show MKLr

x3a 150 add y01 70 add moveto 1900 0 rlineto stroke

x3a 100 sub y01 moveto
TBM 20 0 rmoveto (=) show 20 0 rmoveto
x3a 800 add y01 140 add moveto
TBM (4) show 20 0 rmoveto (b) show 20 0 rmoveto TBM (m) show

x3a 150 add y01 250 sub moveto
MKLr TBM ([) show
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( + ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto

%**********************************************************
%x3b y01 70 add moveto 1500 0 rlineto stroke

x3b y01 250 add moveto
KLxr TBK (=ln) show 10 0 rmoveto TBIK (L) show
0 -40 rmoveto TBL (r) show 0 40 rmoveto
TBK (/ln(10)) show

x3b y01 000 sub moveto
TBIK (d) show -20 0 rmoveto KLxr TBK (/) show TBIK (d) show
-20 0 rmoveto KLLr TBK (=1/\050) show
TBK (ln(10)) show
KLLr -20 0 rmoveto TBK (\051) show

x3b y01 250 sub moveto
TBK (m=1/\050) show 20 0 rmoveto TBK (ln(10)) show
20 0 rmoveto TBK (a\051) show

5650 y01 250 sub moveto TBK ([5]) show  

%382**************************************************
x00 y02 70 add moveto 1450 0 rlineto stroke

x00 y02 180 add moveto
TBIM (dF) show
TBK -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIM (\050) show MKLr TBM (,) show
20 0 rmoveto TBM (m\051) show

x00 400 add y02 230 sub moveto
TBIM (d) show TBIM (L) show

x00 0650 add y02 70 add moveto 600 0 rlineto stroke

/x4a x3a 050 add def

x4a 150 add y02 70 add moveto 2000 0 rlineto stroke

x4a 100 sub y02 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x4a 600 add y02 160 add moveto
TBM (4) show 20 0 rmoveto (b) show 20 0 rmoveto TBM (m) show
30 0 rmoveto TBIM (L) show
0 -50 rmoveto TBK (u) show 0 50 rmoveto

x4a 160 add y02 250 sub moveto
MKLr TBM ([) show
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( + ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto


x3b 650 add y02 250 add moveto
TBIK (d) show KLLr 10 0 rmoveto TBK (=) show 30 0 rmoveto
TBIK (dL) show 30 0 rmoveto TBK (/) show 20 0 rmoveto
TBIK (L) show 0 -60 rmoveto TBK (u) show 0 60 rmoveto

x3b 650 add y02 000 sub moveto
TBIK (dF) show
TBL -60 -60 rmoveto (ab) show 0 60 rmoveto
TBIK (\050) show KLLr TBM (,) show
20 0 rmoveto TBK (m\051) show
20 0 rmoveto TBK (=) show 20 0 rmoveto TBK (1) show

5650 y02 200 sub moveto TBK ([6]) show

%428**************************************************
x00 000 add y03 70 add moveto 350 0 rlineto stroke

x00 100 add y03 160 add moveto
TBIM (L) show

x00 020 add y03 230 sub moveto
TBIM (dL) show

/x4a x3a 900 sub def

x4a y03 70 add moveto 2000 0 rlineto stroke
%x4a 2250 add y03 moveto TBM (;) show

x4a 250 sub y03 moveto

TBM 20 0 rmoveto (=) show 20 0 rmoveto
x4a 400 add y03 160 add moveto
TBM (4) show 20 0 rmoveto (b) show 20 0 rmoveto TBM (m) show
30 0 rmoveto TBIM (L) show
0 -50 rmoveto TBK (u) show 0 50 rmoveto
40 0 rmoveto TBIM (L) show 

x4a 00 add y03 250 sub moveto
MKLr TBM ([) show
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( + ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto

%**************************************************
/x5a 3150 def
x5a y03 moveto
TBIM (dL) show 20 0 rmoveto TBM (=) show

/x5b x5a 650 add def

x5b 050 sub y03 70 add moveto 1950 0 rlineto stroke

x5b y03 160 add moveto
MKLr TBM ([) show
MKLr
-140 110 rmoveto TBK (m) show 0 -110 rmoveto
10 0 rmoveto TBM ( + ) show 10 0 rmoveto
MKLr
-140 110 rmoveto TBK (-m) show 0 -110 rmoveto
TBM (]) show
0 100 rmoveto TBK (2) show 0 -100 rmoveto

x5b 500 add y03 250 sub moveto

TBM (4) show 20 0 rmoveto (b) show 20 0 rmoveto TBM (m) show
30 0 rmoveto TBIM (L) show
0 -50 rmoveto TBK (u) show 0 50 rmoveto

5650 y03 250 sub moveto TBK ([7]) show

0 0 xwidth ywidth rec stroke

showpage
grestore
} for %output with langind end
%%Trailer