%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/egn2/egn20-1n %%BoundingBox: 70 85 226 206 % !for061..68.dat aus (wrpos:farc8910.for fuer 8910(1..8)*.eps) 21.6.95 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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/egn2/egn2.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %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 /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 /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol 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 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} 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 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind 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 r g b {setrgbcolor rec fill} bind def /colrecst %x y width heigth r g b {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /lanind lanind1 def gsave %LANINDL2 END 4 /Times-ISOL1 FS 72 86 moveto (egn20-1n) show %(ME121-3, B8910_2, M8241-3, B4_53_1, N=4_53_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3725 moveto %B8910-02.xps /TRGu {350 /Times-Roman FS (\271) show} def /TRGo {350 /Times-Roman FS (\272) show} def (F) TBIM tfw show 50 0 rmoveto (\050) TBM tfw show 30 0 rmoveto (x) TBIM tfw show 30 0 rmoveto (\051 ) TBM tfw show TRGu TBM tfw (Farberregung = Impulse / s) showde %08241-3 1 (colour response = impulses / s) showen %18241-3 1 (Se\361al del color = Impulse / s) showes %28241-3 1 (colour response = impulses / s) showfr %38241-3 1 (colour response = impulses / s) showit %48241-3 1 (colour response = impulses / s) showjp %58241-3 1 TRGo /tx [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def 2200 3300 moveto (W) TBIM tfw show TBM tfw (\255Proze\337:) showde %08241-3 2 (\255process:) showen %18241-3 2 (\255Proceso:) showes %28241-3 2 (\255process:) showfr %38241-3 2 (\255process:) showit %48241-3 2 (\255process:) showjp %58241-3 2 3900 3300 moveto TBM tfw (Rot )showde %08241-3 3 (red )showen %18241-3 3 (Rojo )showes %28241-3 3 (red )showfr %38241-3 3 (red )showit %48241-3 3 (red )showjp %58241-3 3 (R) TBIM tfw show 3900 2800 moveto TBM tfw (Cyan ) showde %08241-3 4 (cyan ) showen %18241-3 4 (cyan) showes %28241-3 4 (cyan ) showfr %38241-3 4 (cyan ) showit %48241-3 4 (cyan ) showjp %58241-3 4 (C) TBIM tfw show 2200 2300 moveto (N) TBIM tfn show TBM tfw (\255Proze\337:) showde %08241-3 5 (\255process:) showen %18241-3 5 (\255Proceso:) showes %28241-3 5 (\255process:) showfr %38241-3 5 (\255process:) showit %48241-3 5 (\255process:) showjp %58241-3 5 3900 2300 moveto TBM tfw (Rot ) showde %08241-3 6 (red ) showen %18241-3 6 (Rojo ) showes %28241-3 6 (red ) showfr %38241-3 6 (red ) showit %48241-3 6 (red ) showjp %58241-3 6 (r) TBIM tfw show 3900 1800 moveto TBM tfw (Cyan ) showde %08241-3 7 (cyan ) showen %18241-3 7 (cyan ) showes %28241-3 7 (cyan ) showfr %38241-3 7 (cyan ) showit %48241-3 7 (cyan ) showjp %58241-3 7 (c) TBIM tfw show 2200 1300 moveto (W) TBIM tfw show TBM tfw (\255Proze\337:) showde %08241-3 8 (\255process:) showen %18241-3 8 (\255Proceso:) showes %28241-3 8 (\255process:) showfr %38241-3 8 (\255process:) showit %48241-3 8 (\255process:) showjp %58241-3 8 3900 1300 moveto TBM tfw (Mittel ) showde %08241-3 9 (mean ) showen %18241-3 9 (Medio ) showes %28241-3 9 (mean ) showfr %38241-3 9 (mean ) showit %48241-3 9 (mean ) showjp %58241-3 9 (RC) TBIM tfw show 2200 0800 moveto (N) TBIM tfn show TBM tfw (\255Proze\337:) showde %08241-310 (\255process:) showen %18241-310 (\255Proceso:) showes %28241-310 (\255process:) showfr %38241-310 (\255process:) showit %48241-310 (\255process:) showjp %58241-310 3900 0800 moveto TBM tfw (Mittel ) showde %08241-311 (mean ) showen %18241-311 (Medio ) showes %28241-311 (mean ) showfr %38241-311 (mean ) showit %48241-311 (mean ) showjp %58241-311 (rc) TBIM tfw show tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!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 3750 -300 moveto (x) TBIM tfw show 30 0 rmoveto (=) TBM tfw show 30 0 rmoveto (log) TBM tfw show 50 0 rmoveto (L) TBIM tfw show 50 setlinewidth %!wrpos:FARC8910.FOR; AUSGABE for061...68.dat %! J MUL,KURVA,KURVT: 0 16 1 R 0 R %! 0.0 1.0 1.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 150.00 7.66 157.66 15.15 165.15 22.45 172.45 %! 30.00 180.00 37.66 180.00 45.15 180.00 52.45 180.00 %! 60.00 180.00 67.66 180.00 75.15 180.00 82.45 180.00 %! 90.00 180.00 tfo [ ] 0 setdash % 1 R 0 2400 moveto 122 2522 242 2642 359 2759 curveto 480 2880 602 2880 722 2880 curveto 839 2880 960 2880 1082 2880 curveto 1202 2880 1319 2880 1440 2880 curveto stroke %! J MUL,KURVA,KURVT: 1 16 1 G 0 G %! 1.0 0.0 1.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 120.00 7.66 127.66 15.15 135.15 22.45 142.45 %! 30.00 150.00 37.66 150.00 45.15 150.00 52.45 150.00 %! 60.00 150.00 67.66 150.00 75.15 150.00 82.45 150.00 %! 90.00 150.00 tfc [ ] 0 setdash % 1 G 0 1920 moveto 122 2042 242 2162 359 2279 curveto 480 2400 602 2400 722 2400 curveto 839 2400 960 2400 1082 2400 curveto 1202 2400 1319 2400 1440 2400 curveto stroke %! J MUL,KURVA,KURVT: 2 16 1 r 0 r %! 0.0 1.0 1.0 0.5 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 90.00 7.66 97.66 15.15 105.15 22.45 112.45 %! 30.00 120.00 37.66 120.00 45.15 120.00 52.45 120.00 %! 60.00 120.00 67.66 120.00 75.15 120.00 82.45 120.00 %! 90.00 120.00 tfon [ ] 0 setdash % 1 r 0 1440 moveto 122 1562 242 1682 359 1799 curveto 480 1920 602 1920 722 1920 curveto 839 1920 960 1920 1082 1920 curveto 1202 1920 1319 1920 1440 1920 curveto stroke %! J MUL,KURVA,KURVT: 3 16 1 g 0 g %! 1.0 0.0 1.0 0.5 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 60.00 7.66 67.66 15.15 75.15 22.45 82.45 %! 30.00 90.00 37.66 90.00 45.15 90.00 52.45 90.00 %! 60.00 90.00 67.66 90.00 75.15 90.00 82.45 90.00 %! 90.00 90.00 tfcn [ ] 0 setdash % 1 g 0 960 moveto 122 1082 242 1202 359 1319 curveto 480 1440 602 1440 722 1440 curveto 839 1440 960 1440 1082 1440 curveto 1202 1440 1319 1440 1440 1440 curveto stroke %! J MUL,KURVA,KURVT: 4 16 2 RG 0 RG %! 0.0 1.0 1.0 0.0 %! 1.0 0.0 1.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 30.00 7.66 37.66 15.15 45.15 22.45 52.45 %! 30.00 60.00 37.66 60.00 45.15 60.00 52.45 60.00 %! 60.00 60.00 67.66 60.00 75.15 60.00 82.45 60.00 %! 90.00 60.00 tfo [ ] 0 setdash % 2 RG 0 480 moveto 122 602 242 722 359 839 curveto 480 960 602 960 722 960 curveto 839 960 960 960 1082 960 curveto 1202 960 1319 960 1440 960 curveto stroke tfc [100 100] 0 setdash % 2 RG 0 480 moveto 122 602 242 722 359 839 curveto 480 960 602 960 722 960 curveto 839 960 960 960 1082 960 curveto 1202 960 1319 960 1440 960 curveto stroke %! J MUL,KURVA,KURVT: 5 16 2 rg 0 rg %! 0.0 1.0 1.0 0.5 %! 1.0 0.0 1.0 0.5 %! 0.0 0.0 0.0 0.0 %! 0.0 0.0 0.0 0.0 %! 0.00 0.00 7.66 7.66 15.15 15.15 22.45 22.45 %! 30.00 30.00 37.66 30.00 45.15 30.00 52.45 30.00 %! 60.00 30.00 67.66 30.00 75.15 30.00 82.45 30.00 %! 90.00 30.00 tfon [ ] 0 setdash % 2 rg 0 0 moveto 122 122 242 242 359 359 curveto 480 480 602 480 722 480 curveto 839 480 960 480 1082 480 curveto 1202 480 1319 480 1440 480 curveto stroke tfcn [100 100] 0 setdash % 2 rg 0 0 moveto 122 122 242 242 359 359 curveto 480 480 602 480 722 480 curveto 839 480 960 480 1082 480 curveto 1202 480 1319 480 1440 480 curveto stroke showpage grestore %%Trailer