%!PS-Adobe-3.0 EPSF-3.0 JG000-8 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark08 [ /View [ /FitB ] /DOCVIEW pdfmark08 %END PDFDE011 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG 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 /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%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 /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} 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 205 86 moveto ( JG000-8) show % ( B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3725 moveto TBM tfw %B8730-01.eps (Unbunt\255 und ) showde %08241-5 1 (achromatic\255 and ) showen %18241-5 1 (Acrom\341tico\255 y ) showes %28241-5 1 (achromatic\255 and ) showfr %38241-5 1 (achromatic\255 and ) showit %48241-5 1 (achromatic\255 and ) showjp %58241-5 1 30 0 rmoveto (B) TBIM tzv outshowf %(J) TBIM tzy outshowf TBM tfw (\255Bunt\255Signale) showde %08241-5 2 (\255chromatic signals) showen %18241-5 2 (\255opuesto\255se\361al color) showes %28241-5 2 (\255chromatic signals) showfr %38241-5 2 (\255chromatic signals) showit %48241-5 2 (\255chromatic signals) showjp %58241-5 2 tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 1500 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 0200 2850 moveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2400 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show %1850 200 moveto (L) TBIM tfw show %TBK 20 -80 rmoveto (b) show 50 80 rmoveto 2850 0600 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto ( = -2; 0) TBM tfw show 2850 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 4200 1500 moveto TBM tfw (Pro\255) showde %08241-5 3 (pro\255) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 4200 1300 moveto TBM tfw (zesse) showde %08241-5 4 (cess) showen %18241-5 4 (ceso) showes %28241-5 4 (cess) showfr %38241-5 4 (cess) showit %48241-5 4 (cess) showjp %58241-5 4 4250 900 moveto (D) TBIM tfn show 4250 1900 moveto (D) TBIM tfn show (+I) TBIM tfw show 4250 2400 moveto (I) TBIM tfw show /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /DLL 9 array def /DLU 9 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 36 array def /DU 36 array def /XF 36 array def /R00KXU 36 array def /RLMKXU 36 array def /F0 36 array def %I-W /F1 36 array def %D-N /F2 36 array def %ID-NM /F3 36 array def %I-Y /F4 36 array def %D-y /F5 36 array def %ID-JW /F6 36 array def %I-B /F7 36 array def %D-b /F8 36 array def %ID-BW /IORX 2000 def /IORY 1500 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 1500 moveto 4000 0 rlineto stroke 0 1 8 {/k exch def %k=0,8 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,8 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,35 /XFX0 1.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F0 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F0 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F0 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F2 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F2 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F2 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 /XP 2 def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F3 i RLMKXU i get put} if j 1 eq {F4 i RLMKXU i get put} if j 1 eq {F5 i F3 i get F4 i get add put} if } for %i=0,35 /XFX1 1.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F3 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F3 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F3 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F5 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F5 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F5 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 0 0 0 setcmykcolor [100 100] 0 setdash IORX XFX1 MULX mul add 0 moveto 0 2300 rlineto stroke [ ] 0 setdash 0 0 1 0 setcmykcolor IORX XFX1 MULX mul add 2400 sub 2550 moveto TBM (maximum chromatic signal) showen (maximales Bunt\255 und) showde IORX XFX1 MULX mul add 2400 sub 2250 moveto TBM (and chroma signal) showen (Buntheitssignal) showde 0 1 1 0 setcmykcolor 70 setlinewidth IORX XFX0 MULX mul add -150 add IORY F1X1 MULY mul add moveto 300 0 rlineto stroke IORX XFX0 MULX mul add IORY F1X1 MULY mul add -150 add moveto 0 300 rlineto stroke IORX XFX0 MULX mul add -150 add IORY F2X1 MULY mul add moveto 300 0 rlineto stroke IORX XFX0 MULX mul add IORY F2X1 MULY mul add -150 add moveto 0 300 rlineto stroke showpage grestore } for %output with langind end %%Trailer