%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EE59/EE591-8A 20230801 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/EE59/EE59.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:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 %BEG font0312.ps*********************************************** /CV {100 /Courier-ISOL1 FS} bind def /CS {150 /Courier-ISOL1 FS} bind def /CL {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {100 /CourierB-ISOL1 FS} bind def /CBS {150 /CourierB-ISOL1 FS} bind def /CBL {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RV {100 /Times-Roman FS} bind def /RS {150 /Times-Roman FS} bind def /RL {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {100 /Times-Italic FS} bind def /RIS {150 /Times-Italic FS} bind def /RIL {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {100 /Times-Bold FS} bind def /RBS {150 /Times-Bold FS} bind def /RBL {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {100 /Times-BoldItalic FS} bind def /RBIS {150 /Times-BoldItalic FS} bind def /RBIL {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TV {100 /Times-ISOL1 FS} bind def /TS {150 /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 {100 /TimesI-ISOL1 FS} bind def /TIS {150 /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 {100 /TimesB-ISOL1 FS} bind def /TBS {150 /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 {295 /TimesB-ISOL1 FS} bind def /TBIV {100 /TimesBI-ISOL1 FS} bind def /TBIS {150 /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 {100 /Symbol FS} bind def /SS {150 /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 %END font0312.ps*********************************************** %normal (L) or 20% less /nLs {200 /Times-ISOL1 FS show TL} bind def /kLs {200 /TimesI-ISOL1 FS show TL} bind def /bLs {200 /TimesB-ISOL1 FS show TL} bind def /jLs {200 /TimesBI-ISOL1 FS show TL} bind def /sLs {200 /Symbol FS show TL} bind def /iLs {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /eLs {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TL} bind def /ibLs {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebLs {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TL} bind def /ipL {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TL} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /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 {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /ui 802 array def /di 802 array def /fj 802 array def /fi 802 array def /1DW2pi 1 2 3.1428 mul sqrt div def /ek 10 ln def /ek 2.718281 def %from Papula, Mathematische Formelsammlung, p. 103 %*********************************************************** %data from Papula, Mathematische Formelsammlung, p. 472 /fj [%BED data fj for range u=0.000 to 2.000 %0.0 1 2 3 4 5 6 7 8 9 0.5000 0.5040 0.5080 0.5120 0.5160 0.5199 0.5239 0.5279 0.5319 0.5359 0.5398 0.5438 0.5478 0.5517 0.5557 0.5596 0.5639 0.5675 0.5714 0.5754 0.5793 0.5832 0.5871 0.5910 0.5948 0.5987 0.6026 0.6064 0.6103 0.6141 0.6179 0.6217 0.6255 0.6293 0.6331 0.6368 0.6406 0.6443 0.6480 0.6517 0.6554 0.6591 0.6628 0.6664 0.6700 0.6736 0.6772 0.6808 0.6844 0.6879 %0.5 0.6915 0.6950 0.6985 0.7019 0.7054 0.7088 0.7123 0.7157 0.7190 0.7224 0.7258 0.7291 0.7324 0.7357 0.7389 0.7422 0.7454 0.7486 0.7518 0.7549 0.7580 0.7612 0.7642 0.7673 0.7704 0.7734 0.7764 0.7794 0.7823 0.7852 0.7881 0.7910 0.7939 0.7967 0.7996 0.8023 0.8051 0.8078 0.8106 0.8133 0.8159 0.8186 0.8212 0.8238 0.8264 0.8289 0.8315 0.8340 0.8365 0.8398 %1.0 0.8413 0.8438 0.8461 0.8485 0.8508 0.8531 0.8554 0.8577 0.8599 0.8621 0.8643 0.8665 0.8686 0.8708 0.8729 0.8749 0.8770 0.8790 0.8810 0.8830 0.8849 0.8869 0.8888 0.8907 0.8925 0.8944 0.8962 0.8980 0.8997 0.9015 0.9032 0.9049 0.9066 0.9082 0.9089 0.9115 0.9131 0.9147 0.9162 0.9177 0.9192 0.9207 0.9222 0.9236 0.9251 0.9265 0.9279 0.9292 0.9306 0.9319 %1.5 0.9332 0.9345 0.9357 0.9370 0.9382 0.9304 0.9406 0.9418 0.9429 0.9441 0.9452 0.9463 0.9474 0.9484 0.9495 0.9505 0.9515 0.9525 0.9535 0.9545 0.9554 0.9564 0.9573 0.9582 0.9591 0.9599 0.9608 0.9616 0.9625 0.9633 0.9641 0.9649 0.9656 0.9664 0.9671 0.9678 0.9686 0.9693 0.9699 0.9706 0.9713 0.9719 0.9726 0.9732 0.9738 0.9744 0.9750 0.9756 0.9761 0.9767 %2.0 0.9772 0.9778 0.9783 0.9788 0.9793 0.9798 0.9803 0.9808 0.9812 0.9817 0.9821 0.9826 0.9830 0.9834 0.9838 0.9842 0.9846 0.9850 0.9854 0.9857 0.9861 0.9864 0.9868 0.9871 0.9875 0.9878 0.9881 0.9884 0.9887 0.9890 0.9893 0.9896 0.9898 0.9901 0.9904 0.9906 0.9909 0.9911 0.9913 0.9916 0.9918 0.9920 0.9922 0.9925 0.9927 0.9929 0.9931 0.9932 0.9934 0.9936 %2.5 0.9938 0.9940 0.9941 0.9943 0.9945 0.9946 0.9948 0.9949 0.9951 0.9952 0.9953 0.9955 0.9956 0.9957 0.9959 0.9960 0.9961 0.9962 0.9963 0.9964 0.9965 0.9966 0.9967 0.9968 0.9969 0.9970 0.9971 0.9972 0.9973 0.9974 0.9974 0.9975 0.9976 0.9977 0.9977 0.9978 0.9979 0.9979 0.9980 0.9981 0.9981 0.9982 0.9982 0.9983 0.9984 0.9984 0.9985 0.9985 0.9986 0.9986 %3.0 0.9987 0.9987 0.9987 0.9988 0.9988 0.9989 0.9989 0.9989 0.9990 0.9990 0.9990 0.9991 0.9991 0.9991 0.9992 0.9992 0.9992 0.9992 0.9993 0.9993 0.9993 0.9993 0.9994 0.9994 0.9994 0.9994 0.9994 0.9995 0.9995 0.9995 0.9995 0.9995 0.9995 0.9996 0.9996 0.9996 0.9996 0.9996 0.9996 0.9997 0.9997 0.9997 0.9997 0.9997 0.9997 0.9997 0.9997 0.9997 0.9997 0.9998 %3.5 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9998 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 0.9990 0.9999 0.9999 0.9999 0.9999 0.9999 0.9999 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 %4.0 1.0000 ] def /tui 6 array def /tui [(-2) (-1) ( 0) ( 1) ( 2)] def /tli 5 array def /tli [(0,01)(0,10)( 1)( 10)(100)] def /tyi 5 array def /tyi [( 0,18)( 1,8)( )( 180)(1800)] def %************************************************ /proc_hscales {%BEG proc_hscales %horizontal scales u=log(Lr),Lr,Y TS -2 1 2 {/i exch def %i=-2,1,+2 /x 0000 i 1000 mul add def /y0 -050 def x 100 sub y0 180 sub moveto tui i 2 add get show x y0 moveto 0 100 rlineto stroke iscal 1 eq {%iscal=1 x 100 sub y0 150 add moveto tli i 2 add get show 0 0 1 setrgbcolor x 150 sub y0 300 add moveto tyi i 2 add get show i 0 eq {x 050 add y0 300 add moveto TIS (Y) show TIV 0 -50 rmoveto (u) show 0 50 rmoveto TS (=18) show } if } if %iscal=1 0 setgray } for %i=-2,1,+2 %text horizontal axis -2000 0 moveto 4300 0 rlineto stroke 2100 -200 moveto TIL (u) show TL (=log) show 20 0 rmoveto TIL (L) show TVr iscal 1 eq {%iscal=1 2200 070 moveto TIL (L) show TVr TL (=10) show TS 10 100 rmoveto (u) show 0 -100 rmoveto TL 0 0 1 setrgbcolor 2400 220 moveto TIL (Y) show %TS (CIE) show TL 0 setgray } if %iscal=1 } bind def %END proc_hscales %*********************************************************** /proc_DF {%BEG proc_DF /j 1 def %1 1 1 {/j exch def %j=0,2 /epk -0.75 j 0.25 mul sub def 0 1 800 {/i exch def %i=0,800 ui i -4.0 i 0.01 mul add put /ep epk ui i get dup mul mul def di i 1DW2pi ek ep exp mul put } for %0,800 %for integral area 1 0 0 setrgbcolor /Lr 5 def /uLr Lr log def /xux uLr 1000 mul cvi def /iux 400 xux 10 idiv add def /yux di iux get 1000 mul def /xu0 -1000 def /yu0 0 def ifunc 0 eq {/ianf 200 def /ired 600 def} if ifunc 1 eq {/ianf 200 def /ired iux def} if ifunc 2 eq {/ianf 200 def /ired 600 def} if ifunc 3 eq {/ianf 200 def /ired 450 def} if 0.7 setgray ianf 1 ired {/i exch def %i=ianf,1,ired /xfunc ui i get 1000 mul def /yfunc di i get 1000 mul def i ianf eq {xfunc yfunc moveto} if i ired le {xfunc yfunc lineto} if i ired eq {xux yu0 lineto xu0 yu0 lineto closepath fill } if } for %i=ianf,1,ired 0 setgray %vertical axis & arrows, function text in main area with equation 0 0 moveto 0 0700 rlineto stroke 0 0700 moveto -050 -100 rlineto stroke 0 0700 moveto 050 -100 rlineto stroke proc_hscales 0000 050 sub 0500 moveto 100 0 rlineto stroke 0000 300 sub 0450 moveto TL inor 1 eq {(0,5) show} if inor 2 eq {1 0 0 setrgbcolor (1,0) show 0 setgray} if j 0 eq {1 0 0 setrgbcolor [100 100] 0 setdash} if j 1 eq {0 setgray} if j 2 eq {0 1 0 setrgbcolor [100 100] 0 setdash} if 0 setgray 0200 1 0600 {/i exch def %i=200,1,600 /xfunc ui i get 1000 mul def /yfunc di i get 1000 mul def i 0200 eq {xfunc yfunc moveto} if i 0600 le {xfunc yfunc lineto} if i 0600 eq {stroke} if } for %i=200,1,600 [ ] 0 setdash 0 setgray ifunc 0 eq {%ifunc=0 %arrow 0450 0450 moveto -200 -200 rlineto stroke %integral area 0500 0500 moveto TL (area normalized to ) showea (Fl\344che normiert auf ) showde inor 1 eq {inor cvishow} if inor 2 eq {1 0 0 setrgbcolor inor cvishow 0 setgray} if } if %ifunc=0 ifunc 1 eq {%ifunc=1 1 0 0 setrgbcolor %arrow 0450 0350 moveto -200 -200 rlineto stroke %integral area xux 50 sub -200 moveto TIL (u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto xux yu0 moveto xux yux lineto stroke xux yu0 moveto xu0 yu0 lineto stroke %red equation /iy2ex 400 def 500 iy2ex moveto SL (f) show TIL (\050u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto TIL (\051) show TL ( = ) show 100 0 rmoveto SL (\362) show 80 0 rmoveto SL (j) show TIL (\050u) show TIL (\051) show 50 0 rmoveto TIL (du) show 500 600 add iy2ex 150 sub moveto TL (-) show 20 0 rmoveto SL (\245) show 500 750 add iy2ex 200 add moveto TIL (u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto 2500 iy2ex moveto TL ([3]) show } if %ifunc=1 0200 1 iux {/i exch def %i=200,1,iux /xfunc ui i get 1000 mul def /yfunc di i get 1000 mul def i 0200 eq {xfunc yfunc moveto} if i iux le {xfunc yfunc lineto} if i iux eq {stroke} if } for %i=200,1,iux 0 setgray %} for %j=0,2 } bind def %END proc_DF %*********************************************************** /proc_VF {%BEG proc_VF 000 1 400 {/j exch def %j=0,400 /i j 400 add def fi i fj j get put } for %0,400 000 1 399 {/j exch def %j=0,399 fi 399 j sub 1.000 fj j get sub put } for %0,399 0 1 800 {/i exch def %i=0,800 ui i -4.0 i 0.01 mul add put fi i fi i get put } for %0,800 0.7 setgray 0200 1 0600 {/i exch def %i=200,1,600 /xfunc ui i get 1000 mul def /yfunc fi i get 1000 mul def i 0200 eq {xfunc yfunc moveto} if i 0600 le {xfunc yfunc lineto} if i 0600 eq {xfunc 0 lineto ui 200 get 1000 mul 0 lineto closepath fill } if } for %i=200,1,600 0 setgray ifunc 1 eq {%ifunc=1 1 0 0 setrgbcolor /Lr 5 def /uLr Lr log def /xux uLr 1000 mul cvi def /iux 400 xux 10 idiv add def /yux fi iux get 1000 mul def /xu0 0 def /yu0 0 def xux 050 sub -180 moveto TIL (u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto xux 0 moveto xux yux lineto 0 yux lineto stroke newpath xux neg yux 100 sub moveto SL (f) show TIL (\050u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto TIL (\051) show 0 setgray xux 20 add 100 moveto TS (5) show 0 0 1 setrgbcolor xux 20 add 250 moveto TS (90) show 0 setgray } if %ifunc=1 [100 100] 0 setdash -2000 1000 moveto 4000 0 rlineto stroke [ ] 0 setdash %vertical axis & arrows, function text in main area with equations 0 0 moveto 0 1200 rlineto stroke %arrows 0 1200 moveto -050 -100 rlineto stroke 0 1200 moveto 050 -100 rlineto stroke proc_hscales %white rectangle for special vertical data (1,0) 1 setgray 0000 350 sub 0900 moveto 300 0 rlineto 0 250 rlineto -300 0 rlineto closepath fill 0 setgray 0000 300 sub 0950 moveto TL inor 1 eq {(1,0) show} if inor 2 eq {1 0 0 setrgbcolor (2,0) show 0 setgray} if 0000 050 sub 0500 moveto 100 0 rlineto stroke 0000 050 sub 1000 moveto 100 0 rlineto stroke 0000 300 sub 0480 moveto TL inor 1 eq {(0,5) show} if inor 2 eq {1 0 0 setrgbcolor (1,0) show 0 setgray} if 0 setgray 0200 1 0600 {/i exch def %i=200,1,600 /xfunc ui i get 1000 mul def /yfunc fi i get 1000 mul def i 0200 eq {xfunc yfunc moveto} if i 0600 le {xfunc yfunc lineto} if i 0600 eq {stroke} if } for %i=200,1,600 } bind def %END proc_VF %***************************************************** %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth /rtext 0 def rtext 1 eq {%if rtext=1 20 setlinewidth 0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 100 -150 moveto (EE591-7R) show %(_) show xchartx 1 add cvishow } if %rtext=1 %/ifunc 0 def %0: no red text, 1: with red additional text %/inor 1 def %1: normalizing factor 1, 2: normalizing factor 2 %/isim 0 def %0: no correspondance, 1: correspondance /TVr {10 -30 rmoveto TV (r) show 20 30 rmoveto} bind def /TVu {10 -30 rmoveto TV (u) show 20 30 rmoveto} bind def /xchartl 7 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave xchartl 0 eq {/ifunc 0 def /inor 1 def /isim 0 def /iscal 0 def} if xchartl 1 eq {/ifunc 1 def /inor 1 def /isim 0 def /iscal 1 def} if xchartl 2 eq {/ifunc 0 def /inor 2 def /isim 0 def /iscal 0 def} if xchartl 3 eq {/ifunc 1 def /inor 2 def /isim 0 def /iscal 1 def} if xchartl 4 eq {/ifunc 0 def /inor 1 def /isim 1 def /iscal 0 def} if xchartl 5 eq {/ifunc 1 def /inor 1 def /isim 1 def /iscal 1 def} if xchartl 6 eq {/ifunc 0 def /inor 2 def /isim 1 def /iscal 0 def} if xchartl 7 eq {/ifunc 1 def /inor 2 def /isim 1 def /iscal 1 def} if % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 100 -150 moveto (EE591-) show xchartl 1 add cvishow (A) show %A %(_) show xchartx 1 add cvishow 20 setlinewidth /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black %gsave %start because of clip %***************************************************************** /ix0 0030 def /ix1 0500 def /iyd 0200 def %line distance /iy0t ywidth iyd 1.0 mul sub def /iy1t ywidth iyd 2.2 mul sub def /iy1e ywidth iyd 3.8 mul sub def /iy2t ywidth iyd 10.2 mul sub def /iy2e ywidth iyd 12.0 mul sub def 0 setgray ix0 iy0t moveto TBL (Two standard normal functions according to ) showea (Zwei Norm\255Normalfunctionen nach ) showde TBIL (Gau\337) show ix0 iy1t moveto TL (Density function ) showea (Dichtefunktion ) showde SL (j) show TIL ((u)) show isim 1 eq {1 0 0 setrgbcolor TL ( compare with CIE luminance contrast ) showea ( vergleiche mit CIE\255Leuchtdichtekontrast ) showde TIL (L/) show SL (D) show TIL (L) show 0 setgray } if ix0 iy1e moveto SL (j) show TIL ((u)) show TL (=\050) show TL inor 1 eq {(1) show} if inor 2 eq {1 0 0 setrgbcolor (2) show 0 setgray} if SL (/\326) show -120 0 rmoveto SL (\140\140) show -070 0 rmoveto TL (2) show SL (p) show TBL (\051) show ipL TIL (e) show 0 100 rmoveto TL (-(1/2)) show ipL TIL (u) show 20 80 rmoveto TS (2) show %text vertical axis ix0 2600 add iy1e moveto SL (j) show TIL (\050u) show TIL (\051) show ix0 3300 add iy1e moveto TL (\050) show TL (-) show 20 0 rmoveto SL (\245) show SL ( \074 ) show TIL (u) show SL ( \074 ) show SL (\245) show TL (\051) show xwidth 300 sub iy1e moveto TL ([1]) show ix0 iy2t moveto TL (Distribution function ) showea (Verteilungsfunktion ) showde SL (f) show TIL ((u)) show isim 1 eq {1 0 0 setrgbcolor TL ( corresponds to the CIE lightness ) showea ( entspricht der CIE Helligkeit ) showde TIL (L*) show 0 setgray } if ix0 iy2e moveto SL (f) show TIL ((u)) show TL (=\050) show TL inor 1 eq {(1) show} if inor 2 eq {1 0 0 setrgbcolor (2) show 0 setgray} if SL (/\326) show -120 0 rmoveto SL (\140\140) show -070 0 rmoveto TL (2) show SL (p) show TBL (\051) show 020 0 rmoveto SL (\362) show 40 0 rmoveto TIL (e) show TL 30 80 rmoveto (-(1/2)) show ipL TIL (t) show 30 80 rmoveto TS (2) show TL 0 -80 rmoveto 0 -80 rmoveto -50 0 rmoveto TIL (dt) show 1 0 0 setrgbcolor TL inor 1 eq {( -0,5) show} if inor 2 eq {( -1,0) show} if 0 setgray ix0 0960 add iy2e 160 sub moveto TL (-) show 20 0 rmoveto SL (\245) show ix0 1110 add iy2e 210 add moveto TIL (u) show %text vertical axis ix0 2600 add iy2e moveto SL (f) show TIL (\050u) show TIL (\051) show xwidth 300 sub iy2e moveto TL ([2]) show /xtrans 2600 def /ytrans 2500 def xtrans ytrans translate /iscal 0 def proc_DF xtrans neg ytrans neg translate /xtrans 2600 def /ytrans 0300 def xtrans ytrans translate /iscal 1 def proc_VF xtrans neg ytrans neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%Trailer