%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/egr2/egr21-8n %%BoundingBox: 70 85 245 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /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/egr2/egr2.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark18 [ /View [ /Fit ] /DOCVIEW pdfmark18 %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 (egr21-8n) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /xwidth 6000 def /ywidth 4000 def tfw %W 0000 0000 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill tfy 0000 1550 moveto xwidth 0 rlineto 0 0750 rlineto xwidth neg 0 rlineto closepath fill tfy 0000 0000 moveto xwidth 0 rlineto 0 0750 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 0 -40 rmoveto TBL (r) show 20 40 rmoveto} def /MKxr {20 0 rmoveto TBIM (x) show 0 -60 rmoveto TBK (r) show 20 60 rmoveto} def /KLLr {20 0 rmoveto TBIK (L) show 0 -40 rmoveto TBL (r) show 20 40 rmoveto} def /MKLr {20 0 rmoveto TBIM (L) show 0 -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 (Gleichungen mit Hyperbel\255 und Potenzfunktionen) showde TBM280 (Equations with hyperbel and 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 400 add def /y00 2700 def /y01 1900 def /y02 1100 def /y03 0350 def %*********************************************** x00 y00 moveto TBIM (F) show TBK -60 -60 rmoveto (ab) show 0 60 rmoveto TBIM (\050) show MKxr TBM (,) show 20 0 rmoveto TBM (a\051) show x0a 200 sub y00 moveto TBM 20 0 rmoveto (=b) show x0a 200 add y00 moveto TBM (tanh\050) show TBIM MKxr TBM (/a) show 0 0 rmoveto TBM (\051) show x0b 300 add y00 70 add moveto 1500 0 rlineto stroke x0b 100 sub y00 moveto TBM 20 0 rmoveto (=b) show 20 0 rmoveto x0b 300 add y00 120 add moveto TBM (e) show 20 60 rmoveto TBIM KLxr TBK (/a) show 0 -60 rmoveto 10 0 rmoveto TBM (-) show 10 0 rmoveto TBM (e) show 20 60 rmoveto TBIK (-) show KLxr TBK (/a) show x0b 300 add y00 220 sub moveto TBM (e) show 20 60 rmoveto TBIK KLxr TBK (/a) show 0 -60 rmoveto 10 0 rmoveto TBM (+) show 10 0 rmoveto TBM (e) show 20 60 rmoveto TBIK (-) show KLxr TBK (/a) show 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 5550 y00 250 sub moveto TBK ([1a]) show %************************************************** x00 y01 70 add moveto 1300 0 rlineto stroke x00 y01 180 add moveto TBIM (dF) show TBK -60 -60 rmoveto (ab) show 0 60 rmoveto TBIM (\050) show MKxr TBM (,) show 20 0 rmoveto TBM (a\051) show x00 400 add y01 230 sub moveto TBIM (d) show MKxr x3a y01 70 add moveto 2000 0 rlineto stroke x3a 250 sub y01 moveto TBM 20 0 rmoveto (=) show 20 0 rmoveto x3a 600 add y01 140 add moveto TBM (4) show 20 0 rmoveto (b) show x3a y01 250 sub moveto TBM (a[e) show 20 60 rmoveto KLxr TBK (/a) show 0 -60 rmoveto 10 0 rmoveto TBM (+) show 10 0 rmoveto TBM (e) show 20 60 rmoveto TBIK (-) show KLxr TBK (/a) show 0 -60 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 KLxr TBK (/) show TBIK (dL) show TBK (=1/\050) show TBK (ln(10)) show TBIK (L\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 5550 y01 250 sub moveto TBK ([5a]) show %*********************************************** x00 y02 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 y02 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 y02 70 add moveto 1300 0 rlineto stroke x0b 100 add y02 moveto TBM 20 0 rmoveto (=b) show 20 0 rmoveto x0b 500 add y02 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 y02 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 y02 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 y02 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 y02 250 sub moveto KLLr TBK (<=1) show 5550 y02 250 sub moveto TBK ([1b]) show %************************************************** x00 y03 70 add moveto 1450 0 rlineto stroke x00 y03 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 y03 230 sub moveto TBIM (d) show MKLr x3a 150 add y03 70 add moveto 1900 0 rlineto stroke x3a 100 sub y03 moveto TBM 20 0 rmoveto (=) show 20 0 rmoveto x3a 600 add y03 140 add moveto TBM (4) show 20 0 rmoveto (b) show 20 0 rmoveto TBM (m) show x3a 150 add y03 250 sub moveto MKLr 20 0 rmoveto 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 y03 70 add moveto 1500 0 rlineto stroke x3b y03 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 y03 000 sub moveto TBIK (d) show KLxr TBK (/) show TBIK (dL) show TBK (=1/\050) show TBK (ln(10)) show TBIK (L\051) show x3b y03 250 sub moveto TBK (m=1/\050) show 20 0 rmoveto TBK (ln(10)) show 20 0 rmoveto TBK (a\051) show 5550 y03 250 sub moveto TBK ([5b]) show 0 0 xwidth ywidth rec stroke showpage grestore } for %output with langind end %%Trailer