%!PS-Adobe-3.0 EPSF-3.0 ME400-6 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 225 210 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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-6) /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 pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %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-6, B9_1_3) show % ( B8321_2, M8550-6, B9_1_3, N=10_1_3) show %! Aus prozrem 12.11.92; Achtung Überlänge um 1mm in y-Richtung 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 4100 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4100 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 PROZREM.FOR: x/y/zquernor100(lambda)*S(lambda),MULY= 200 % BEO=02 FSUM= 95.0402 0 1 moveto 120 4 240 22 360 75 curveto 480 237 600 465 720 691 curveto 840 744 960 648 1080 424 curveto 1200 209 1320 65 1440 10 curveto 1560 18 1680 125 1800 337 curveto 1920 573 2040 853 2160 1125 curveto 2280 1389 2400 1661 2520 1723 curveto 2640 1809 2760 1700 2880 1418 curveto 3000 1012 3120 709 3240 429 curveto 3360 250 3480 136 3600 69 curveto 3720 29 3840 15 3960 8 curveto 4080 3 4200 1 4320 0 curveto stroke % BEO=02 FSUM=100.0000 0 0 moveto 120 0 240 0 360 2 curveto 480 7 600 19 720 45 curveto 840 84 960 133 1080 197 curveto 1200 304 1320 428 1440 668 curveto 1560 1026 1680 1408 1800 1757 curveto 1920 1884 2040 1958 2160 1883 curveto 2280 1735 2400 1577 2520 1270 curveto 2640 1074 2760 852 2880 632 curveto 3000 417 3120 277 3240 162 curveto 3360 92 3480 49 3600 25 curveto 3720 10 3840 5 3960 2 curveto 4080 1 4200 0 4320 0 curveto stroke % BEO=02 FSUM=108.9203 0 6 moveto 120 20 240 106 360 359 curveto 480 1143 600 2275 720 3471 curveto 840 3927 960 3724 1080 2802 curveto 1200 1784 1320 958 1440 563 curveto 1560 323 1680 155 1800 86 curveto 1920 40 2040 17 2160 7 curveto 2280 3 2400 2 2520 1 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 1200 3325 moveto %350 /Times-ISOL1 FS %(Normsp. ) show 350 /Symbol FS 175 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (x) show 350 /Symbol FS ((l)) show 350 /TimesI-ISOL1 FS ( S) 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 350 /TimesI-ISOL1 FS ( S) show 350 /Symbol FS ((l)) show 2250 2900 moveto 350 /Symbol FS (S) show 350 /Symbol FS 25 150 rmoveto (-) show -175 -150 rmoveto 350 /TimesI-ISOL1 FS (y) show 350 /Symbol FS ((l)) show 350 /TimesI-ISOL1 FS ( S) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS ( = 100) show 2400 2500 moveto 350 /Times-ISOL1 FS (f\374r ) showde %08550-6 1 (for ) showen %18550-6 1 (por ) showes %28550-6 1 (for ) showfr %38550-6 1 (for ) showit %48550-6 1 (for ) showjp %58550-6 1 350 /Symbol FS (D l) show 350 /Times-ISOL1 FS ( = 10 nm) show 350 /TimesI-ISOL1 FS 3100 1400 moveto (D65) show 300 /Times-ISOL1 FS 3600 900 moveto (Wellen\255) showde %08550-6 2 (wave\255) showen %18550-6 2 (Ancho) showes %28550-6 2 (wave\255) showfr %38550-6 2 (wave\255) showit %48550-6 2 (wave\255) showjp %58550-6 2 3600 550 moveto (l\344nge) showde %08550-6 3 (length) showen %18550-6 3 (de banda) showes %28550-6 3 (length) showfr %38550-6 3 (length) showit %48550-6 3 (length) showjp %58550-6 3 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 300 /TimesI-ISOL1 FS ( S) show 300 /Symbol FS ((l)) show 1300 2000 moveto 300 /Symbol FS 150 150 rmoveto (-) show -150 -150 rmoveto 300 /TimesI-ISOL1 FS (y) show 300 /Symbol FS ((l)) show 300 /TimesI-ISOL1 FS ( S) 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 300 /TimesI-ISOL1 FS ( S) show 300 /Symbol FS ((l)) show showpage grestore } for %output with langind end %%Trailer