%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EG59/EG590-7A 20230801 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/EG59/EG59.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 pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 0 1 800 {/i exch def %i=0,800 ui i -4.0 i 0.01 mul add put di i 0.5 put i 300 lt {di i 0.0 put} if i 500 gt {di i 0.0 put} if } 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 %500 1100 moveto %TL %Lr cvsshow2 (; ) show %uLr cvsshow2 (; ) show %xux cvishow (; ) show %yux cvsshow2 (; ) show %xu0 cvsshow2 (; ) show %yu0 cvsshow2 ifunc 0 eq {/ianf 250 def /ired 550 def} if ifunc 1 eq {/ianf 300 def /ired iux def} if ifunc 2 eq {/ianf 250 def /ired 550 def} if ifunc 3 eq {/ianf 300 def /ired 400 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 {xfunc 0 lineto ui ianf get 1000 mul 0 lineto ui ianf get 1000 mul yfunc lineto xfunc yfunc lineto fill } if } for %i=ianf,1,ired 0 setgray %vertical axis & arrows, function text in main area with equations 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 0250 1 0550 {/i exch def %i=250,1,550 /xfunc ui i get 1000 mul def /yfunc di i get 1000 mul def i 0250 eq {xfunc yfunc moveto} if i 0550 le {xfunc yfunc lineto} if i 0550 eq {stroke} if } for %i=250,1,550 [ ] 0 setdash 0 setgray ifunc 0 eq {%ifunc=0 %arrow 0450 0600 moveto -200 -200 rlineto stroke %integral area 0500 0600 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 0600 moveto -200 -200 rlineto stroke %integral area xux 50 sub -200 moveto TIL (u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto xu0 yu0 moveto xux 0 lineto xux yux lineto xu0 yux lineto closepath stroke %red equation /iy2ex 600 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 180 sub moveto TL (-1) show 500 700 add iy2ex 220 add moveto TIL (u) show 0 -50 rmoveto TS (x) show 0 50 rmoveto 2500 iy2ex moveto TL ([3]) show } if %ifunc=1 0300 1 0450 {/i exch def %i=300,1,450 /xfunc ui i get 1000 mul def /yfunc di i get 1000 mul def i 0300 eq {xfunc yfunc moveto} if i 0450 le {xfunc yfunc lineto} if i 0450 eq {stroke} if } for %i=300,1,450 0 setgray %} for %j=0,2 } bind def %END proc_DF %*********************************************************** /proc_VF {%BEG proc_VF 0 1 800 {/i exch def %i=0,800 ui i -4.0 i 0.01 mul add put } for %0,800 /MULY 0.5 def 0 1 800 {/i exch def %i=0,800 fi i ui i get MULY mul 0.5 add put } for %i=0,800 0.7 setgray 0300 1 0500 {/i exch def %i=300,1,500 /xfunc ui i get 1000 mul def /yfunc fi i get 1000 mul def i 0300 eq {xfunc yfunc moveto} if i 0500 le {xfunc yfunc lineto} if i 0500 eq {xfunc 0 lineto closepath fill } if } for %i=300,1,500 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 %500 1100 moveto %TL %Lr cvsshow2 (; ) show %uLr cvsshow2 (; ) show %xux cvishow (; ) show %yux cvsshow2 (; ) show %xu0 cvishow (; ) show %yu0 cvsshow2 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 [100 100] 0 setdash 0250 1 0550 {/i exch def %i=250,1,550 /xfunc ui i get 1000 mul def /yfunc fi i get 1000 mul def i 0250 eq {xfunc yfunc moveto} if i 0550 le {xfunc yfunc lineto} if i 0550 eq {stroke} if } for %i=250,1,550 0 1 0 setrgbcolor 0300 1 0500 {/i exch def %i=300,1,500 /xfunc ui i get 1000 mul def /yfunc fi i get 1000 mul def i 0300 eq {xfunc yfunc moveto} if i 0300 le {xfunc yfunc lineto} if i 0500 eq {stroke} if } for %i=300,1,500 0 setgray } 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 0 def /lanind2 0 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 %XCHA01.PS END 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 (EG590-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 6 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 (EG590-) 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.5 mul sub def /iy2t ywidth iyd 10.2 mul sub def /iy2e ywidth iyd 11.5 mul sub def 0 setgray ix0 iy0t moveto TBL (Density and distribution function ) showea (Dichte\255 & Verteilungsfunktion ) showde (for luminance and lightness) showea (f\374r Leuchtdichte & Helligkeit) showde 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 TL (/2\051) show ipL TL (1) show %text vertical axis ix0 2600 add iy1e moveto SL (j) show TIL (\050u) show TIL (\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 TL (/2\051) show ipL TL (\050 1 + ) show TIL (u) show TL ( \051) 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 1 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