%!PS-Adobe-3.0 EPSF-3.0 ME400-5 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 205 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: ME400-5) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %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 %%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 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (ME400-5, B9_1_2) show % ( B8321_1, M8550-5, B9_1_2, N=10_1_2) show %! Aus pprozspe.com mit MULY=1500 und FERN, D65, Kurve Nr. 1 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps /ausz 8 def 15 setlinewidth 0.0 0.0 0.5 0.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 350 translate 20 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke %Programm PROZSPE.FOR: x/y/zquernor100(lambda),MULY= 200 %R FSUM=100.0000 DG= 1.0002 0 2 moveto 120 7 240 26 360 81 curveto 480 251 600 531 720 652 curveto 840 629 960 544 1080 365 curveto 1200 179 1320 59 1440 9 curveto 1560 17 1680 118 1800 309 curveto 1920 543 2040 811 2160 1112 curveto 2280 1426 2400 1715 2520 1921 curveto 2640 1988 2760 1876 2880 1599 curveto 3000 1202 3120 838 3240 530 curveto 3360 308 3480 163 3600 87 curveto 3720 42 3840 21 3960 10 curveto 4080 5 4200 2 4320 1 curveto stroke %G FSUM=100.0000 DG= 1.0000 0 0 moveto 120 0 240 0 360 2 curveto 480 7 600 21 720 43 curveto 840 71 960 112 1080 170 curveto 1200 260 1320 389 1440 604 curveto 1560 941 1680 1328 1800 1613 curveto 1920 1785 2040 1862 2160 1862 curveto 2280 1781 2400 1628 2520 1416 curveto 2640 1181 2760 941 2880 713 curveto 3000 495 3120 327 3240 200 curveto 3360 114 3480 59 3600 31 curveto 3720 15 3840 7 3960 3 curveto 4080 1 4200 0 4320 0 curveto stroke %B FSUM=100.0000 DG= 1.0008 0 12 moveto 120 37 240 127 360 388 curveto 480 1209 600 2595 720 3272 curveto 840 3319 960 3126 1080 2411 curveto 1200 1522 1320 871 1440 509 curveto 1560 296 1680 146 1800 78 curveto 1920 38 2040 16 2160 7 curveto 2280 3 2400 3 2520 2 curveto 2640 1 2760 0 2880 0 curveto 3000 0 3120 0 3240 0 curveto 3360 0 3480 0 3600 0 curveto 3720 0 3840 0 3960 0 curveto 4080 0 4200 0 4320 0 curveto stroke 300 /Times-ISOL1 FS %! 100 lambda-Einheiten = 1200 Skalen-Einheiten 240 50 moveto 0 -100 rlineto stroke 1440 50 moveto 0 -100 rlineto stroke 2640 50 moveto 0 -100 rlineto stroke 3840 50 moveto 0 -100 rlineto stroke 20 -300 moveto (400) show 1220 -300 moveto (500) show 2420 -300 moveto (600) show 3620 -300 moveto (700) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 750 moveto 100 0 rlineto stroke -50 1500 moveto 100 0 rlineto stroke -50 2250 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -500 -80 moveto ( 0) show -500 670 moveto ( 5) show -500 1420 moveto ( 10) show -500 2170 moveto ( 15) show -500 2920 moveto ( 20) show -525 3325 moveto 350 /Times-ISOL1 FS (Normspektralwerte) showde %08550-5 1 (tristimulus values) showen %18550-5 1 (CIE tristimulus ) showes %28550-5 1 (tristimulus values) showfr %38550-5 1 (tristimulus values) showit %48550-5 1 (tristimulus values) showjp %58550-5 1 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (x) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (,) show 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (y) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS (,) show 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (z) show 350 /Symbol FS ((l)) show 1050 2900 moveto 300 /Times-ISOL1 FS (Normierung:) showde %08550-5 2 (normalization:) showen %18550-5 2 (Normalizaci\363n:) showes %28550-5 2 (normalization:) showfr %38550-5 2 (normalization:) showit %48550-4 2 (normalization:) showjp %58550-5 2 2950 2900 moveto 300 /Symbol FS (S) show 300 /Symbol FS 25 150 rmoveto (-) show -175 -150 rmoveto 300 /TimesI-ISOL1 FS (y) show 300 /Symbol FS ((l)) show 300 /Times-ISOL1 FS ( = 100) show 2400 2500 moveto 300 /Times-ISOL1 FS (f\374r ) showde %08550-5 3 (for ) showen %18550-5 3 (por ) showes %28550-5 3 (for ) showfr %38550-5 3 (for ) showit %48550-5 3 (for ) showjp %58550-5 3 300 /Symbol FS (D l) show 300 /Times-ISOL1 FS ( = 10 nm) show 300 /Times-ISOL1 FS 3600 900 moveto (Wellen\255) showde %08550-5 4 (wave\255) showen %18550-5 4 (Ancho) showes %28550-5 4 (wave\255) showfr %38550-5 4 (wave\255) showit %48550-5 4 (wave\255) showjp %58550-5 4 3600 550 moveto (l\344nge) showde %08550-5 5 (length) showen %18550-5 5 (de banda) showes %28550-5 5 (length) showfr %38550-5 5 (length) showit %48550-5 5 (length) showjp %58550-5 5 3600 200 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2700 1900 moveto 200 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (x) show 300 /Symbol FS ((l)) show 1700 2000 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (y) show 300 /Symbol FS ((l)) show 1000 2400 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (z) show 300 /Symbol FS ((l)) show showpage grestore } for %output with langind end %%Trailer