%!PS-Adobe-3.0 EPSF-3.0 egj11-7n %%BoundingBox: 70 83 392 335 %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: http://farbe.li.tu-berlin.de/egj1/egj1.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 pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %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 /TG {350 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /RG {350 /Times-Roman FS} bind def %special includes show /ishow {280 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto} bind def /eshow {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {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 /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /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 /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 %XCHA02.PS BEG %%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 {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 /showea {1 lanind le {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 /inc 0 def %0: achromatic title, 1: chromatic title /ipe 1 def %0/1: no/with CIE230 Title /ire 0 def %0/1: no/with relative coordinales /iYt 1 def %0/1: no/with performance result text 5 /Times-ISOL1 FS 72 85 moveto (egj11-7n) show %former ENG10-3N, ENA10-3N, BNA61-7N %BEA60-7N.PS, B8190_7, M8310-7, B4_70, N=4_70 2x2) show 72 90 translate /yhoe 8500 def 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 1 1 0 setrgbcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill /ix0 6700 def /iy0 1250 def 1 setgray %W ix0 800 add iy0 800 add moveto 2600 0 rlineto 0 2600 rlineto -2600 0 rlineto closepath fill 0 setgray %N 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 600 sub moveto 11200 0 rlineto stroke %! 1 x-Log-Einheit = 1000 Skalen-Einheiten %Titeltext 150 8000 moveto inc 0 eq {%inc=0 ire 1 eq {%ire=1 TBG tfr (Normalized ) showea (Normierte ) showde tfn } if %ire=1 TBIG (NW\255) show TBG (Unbunt\255Schwellen ) showde %08310-7 4 (achromatic thresholds ) showen %18310-7 4 (achromatic thresholds ) showes %28310-7 4 (achromatic thresholds ) showfr %38310-7 4 (achromatic thresholds ) showit %48310-7 4 (achromatic thresholds ) showjp %58310-7 4 ire 0 eq {%ire=0 SG (D) show TBIG (Y) show } if %ire=0 ire 1 eq {%ire=1 tfr SG (D) show TBIG (Y) show (ru) ishow TG ( = ) show SG (D) show TBIG (Y) show TBG ( / ) show SG (D) show TBIG (Y) show (u) ishow tfn } if %ire=1 TBG ( als Funktion von ) showde %08310-7 4 ( as function of ) showen %18310-7 4 ( as function of ) showes %28310-7 4 ( as function of ) showfr %38310-7 4 ( as function of ) showit %48310-7 4 ( as function of ) showjp %58310-7 4 TBIG (Y) show } %inc=0 { %inc=1 TBIG (NW\255) show TBG (Unbunt\255 sowie ) showde %08310-7 2 (achromatic, and ) showen %18310-7 2 (achromatic, and ) showes %28310-7 2 (achromatic, and ) showfr %38310-7 2 (achromatic, and ) showit %48310-7 2 (achromatic, and ) showjp %58310-7 2 TBIG (RG\255) show TBG ( und ) showde %08310-7 3 ( and ) showen %18310-7 3 ( y ) showes %28310-7 3 ( and ) showfr %38310-7 3 ( and ) showit %48310-7 3 ( and ) showjp %58310-7 3 TBIG (YB\255) show TBG (Bunt\255Schwellen als Funktion von ) showde %08310-7 4 (chromatic thresholds as function of ) showen %18310-7 4 (chromatic thresholds as function of ) showes %28310-7 4 (chromatic thresholds as function of ) showfr %38310-7 4 (chromatic thresholds as function of ) showit %48310-7 4 (chromatic thresholds as function of ) showjp %58310-7 4 TBIG (Y) show } ifelse %inc=0,1 150 7500 moveto TG (Experimente und Daten: BAM\255Forschungsbericht ) showde %08310-7 5 (Nr. 115 (1985), S. 72, siehe) showde %08310-7 51 (experiments and data: BAM\255research report ) showen %18310-7 5 (no. 115 (1985), page 72, see) showen %18310-7 51 (experiments and data: BAM\255research report ) showes %28310-7 5 (no. 115 (1985), page 72) showes %28310-7 51 (experiments and data: BAM\255research report ) showfr %38310-7 5 (no. 115 (1985), page 72) showfr %38310-7 51 (experiments and data: BAM\255research report ) showit %48310-7 5 (no. 115 (1985), page 72) showit %48310-7 51 (experiments and data: BAM\255research report ) showjp %58310-7 5 (no. 115 (1985), page 72) showjp %58310-7 51 100 7100 moveto ire 0 eq {%ire=0 TG (log) show 20 0 rmoveto ([) show 30 0 rmoveto SG (D) show TIG (Y) show } if %ire=0 ire 1 eq {%ire=1 TG (log) show 20 0 rmoveto ([) show 30 0 rmoveto tfr SG (D) show TBIG (Y) show (ru) ishow TG ( = ) show SG (D) show TIG (Y) show TG 20 0 rmoveto (/) show 30 0 rmoveto SG (D) show TIG (Y) show (u) ishow tfn } if %ire=1 inc 1 eq {%inc=0 TG (, ) show SG (D) show TIG (a) show 30 0 rmoveto TIG (\267Y) show TG (, ) show SG (D) show TIG (b) show 30 0 rmoveto TIG (\267Y) show } if %inc=1 30 0 rmoveto TG (]) show 3500 7100 moveto 0 0 1 setrgbcolor RG (https:/nbn-resolving.org/urn:nbn:de:kobv:b43-3350) show 0 setgray 950 800 translate %Ueberschriften 200 5850 moveto TBG (Hellbezugswert\255Schwelle ) showde %08310-7 6 (tristimulus value threshold ) showen %18310-7 6 (tristimulus value threshold ) showes %28310-7 6 (tristimulus value threshold ) showfr %38310-7 6 (tristimulus value threshold ) showit %48310-7 6 (tristimulus value threshold ) showjp %58310-7 6 SG (D) show TIG (Y, ) show TBG (see LABJND in TR CIE 230:219) showea (siehe LABJND in TR CIE 230:219) showde ipe 1 eq {%ipe=1 200 5500 moveto TIG (Validity of Formulae for predicting Small Colour Differences) show } if %ipe=1 iYt 1 eq {%iYt=1 200 5000 moveto TG (The performane of 8 datasets: ) showen (Die G\374te aus 8 Datens\344tzen ) showde 0 0 1 setrgbcolor RG (http://files.cie.co.at/TC181_Datasets.zip) show 0 setgray 200 4650 moveto TG (is best for LABJND in 5 cases, for CIELAB & CMC & CIEDE2000) showea (ist am besten f\374r LABJND: 5 F\344lle, CIELAB & CMC & CIEDE2000:) showde 200 4300 moveto TG (all in one case, see Table 9 and 11 for the range ) showen (in je einem Fall, siehe Tabelle 9 und 11 f\374r den Bereich ) showde TG (0<= ) show SG (D) show TIG (E*) show -50 0 rmoveto (ab) ishow TG ( <2.) show } if %iYt=1 inc 1 eq {%inc=1 6700 5000 moveto SG (D) show TIG (b) show 30 0 rmoveto TIG (\267Y) show 7900 5000 moveto TBIG (YB\255) show TBG (Richtung) showde %08310-7 7 (direction) showen %18310-7 7 (direction) showes %28310-7 7 (direction) showfr %38310-7 7 (direction) showit %48310-7 7 (direction) showjp %58310-7 7 200 5400 moveto TBIG (RG\255) show TBG (Buntfarbart\255Schwelle ) showde %08310-7 8 (chromaticity threshold ) showen %18310-7 8 (chromaticity threshold ) showes %28310-7 8 (chromaticity threshold ) showfr %38310-7 8 (chromaticity threshold ) showit %48310-7 8 (chromaticity threshold ) showjp %58310-7 8 SG (D) show TIG (a) show 30 0 rmoveto TIG (\267Y) show 6700 4500 moveto SG (D) show TIG (a) show 30 0 rmoveto TIG (\267Y) show 7900 4500 moveto TBIG (RG\255) show TBG (Richtung) showde %08310-7 9 (direction) showen %18310-7 9 (direction) showes %28310-7 9 (direction) showfr %38310-7 9 (direction) showit %48310-7 9 (direction) showjp %58310-7 9 200 4950 moveto TBIG (YB\255) show TBG (Buntfarbart\255Schwelle ) showde %08310-710 (chromaticity threshold ) showen %18310-710 (chromaticity threshold ) showes %28310-710 (chromaticity threshold ) showfr %38310-710 (chromaticity threshold ) showit %48310-710 (chromaticity threshold ) showjp %58310-710 SG (D) show TIG (b) show 30 0 rmoveto TIG (\267Y) show 6700 4000 moveto SG (D) show TIG (Y) show 7900 4000 moveto TBIG (NW\255) show TBG (Richtung) showde %08310-711 (direction) showen %18310-711 (direction) showes %28310-711 (direction) showfr %38310-711 (direction) showit %48310-711 (direction) showjp %58310-711 200 4500 100 add moveto SG (D) show TIG (a = x) show (1) ishow TG ( / ) show TIG (y) show (1) ishow TG ( - ) show TIG (x) show (2) ishow TG ( / ) show TIG (y) show (2) ishow 200 4050 100 add moveto SG (D) show TIG (b = z) show (1) ishow TG ( / ) show TIG (y) show (1) ishow TG ( - ) show TIG (z) show (2) ishow TG ( / ) show TIG (y) show (2) ishow } if %inc=1 /ix0 6700 def /iy0 1250 def tfw %W ix0 iy0 moveto 2600 0 rlineto 0 2600 rlineto -2600 0 rlineto closepath fill tfn %N ix0 iy0 moveto 2600 0 rlineto 0 2600 rlineto -2600 0 rlineto closepath stroke tfz %Z ix0 400 add iy0 400 add moveto 1800 0 rlineto 0 1800 rlineto -1800 0 rlineto closepath fill 0.3 setgray ix0 1300 add iy0 1300 add 340 90 270 arc fill 0.4 setgray ix0 1300 add iy0 1300 add 340 -90 90 arc fill tfn %N ix0 0500 add iy0 1775 add moveto SG (D) show 30 0 rmoveto TIG (Y) show 30 0 rmoveto TG (=) show 30 0 rmoveto TIG (Y) show (2) ishow 30 0 rmoveto TG (-) show 30 0 rmoveto TIG (Y) show (1) ishow ix0 0600 add iy0 1175 add moveto TIG (Y) show (1) ishow ix0 1700 add iy0 1175 add moveto TIG (Y) show (2) ishow ix0 400 add iy0 500 add moveto TIG (Y) show (u) ishow TG (=18) show tfn %N ix0 080 add iy0 80 add moveto TIG (Y) show (w) ishow TG (=90) show 20 setlinewidth 0 0 moveto 9000 0 rlineto stroke 0 0 moveto 0 6200 rlineto stroke %0 6000 moveto 9000 0 rlineto stroke 0 6200 moveto -40 -100 rlineto stroke 0 6200 moveto 40 -100 rlineto stroke %Nullkreuz Umfeld %4500 0 moveto 0 4000 rlineto stroke 0 setgray /x0 0 def /x11 2000 0.9 log 2000 mul add def /x10 2000 1.8 log 2000 mul add def /x1 2000 3.6 log 2000 mul add def /xu 2000 18 log 2000 mul add def /x2 2000 90 log 2000 mul add def /y0 0 def /y11n 0.017 0.0058 0.9 mul add def /y10n 0.017 0.0058 1.8 mul add def /y1n 0.017 0.0058 3.6 mul add def /yun 0.017 0.0058 18 mul add def /y2n 0.017 0.0058 90 mul add def /y11t (0,0052) def /y10t (0,0274) def /y1t (0,0379) def /yut (0,1214) def /y2t (0,5690) def /y1 4000 y1n log 2000 mul add def /yu 4000 yun log 2000 mul add def /y2 4000 y2n log 2000 mul add def /y10 4000 y10n log 2000 mul add def /y11 4000 y11n log 2000 mul add def /y0r 4000 1 log 2 sub 2000 mul add def /y1r 4000 y1n yun div log 1 sub 2000 mul add def /yur 4000 yun yun div log 1 sub 2000 mul add def /y2r 4000 y2n yun div log 1 sub 2000 mul add def /y10r 4000 y10n yun div log 1 sub 2000 mul add def /y11r 4000 y11n yun div log 1 sub 2000 mul add def 40 setlinewidth 0 1 0 setrgbcolor [100 100] 0 setdash ire 0 eq {%ire=0 x1 y0 moveto x2 y0 lineto x2 y2 lineto x0 y2 lineto x0 y1 lineto x1 y1 lineto x1 y0 lineto stroke } if %ire=0 ire 1 eq {%ire=1 x1 y0r moveto x2 y0r lineto x2 y2r lineto x0 y2r lineto x0 y1r lineto x1 y1r lineto x1 y0r lineto stroke } if %ire=1 [ ] 0 setdash 20 setlinewidth 1 0 0 setrgbcolor ire 0 eq {%ire=0 x0 yu moveto xu yu lineto xu y0 lineto stroke } if %ire=0 ire 1 eq {%ire=1 x0 yur moveto xu yur lineto xu y0r lineto stroke } if %ire=1 0 setgray 0 0 1 setrgbcolor ire 0 eq {%ire=0 x0 y11 moveto x11 y11 lineto x11 y0 lineto stroke } if %ire=0 ire 1 eq {%ire=0 x0 y11r moveto x11 y11r lineto x11 y0r lineto stroke } if %ire=1 0 setgray %iYt 1 eq {%iYt=1 %TG %x0 100 add y2 100 add moveto y2t show %x0 100 add yu 100 add moveto yut show %x0 100 add y1 100 add moveto y1t show %x0 100 add y11 100 add moveto y11t show % } if %iYt=1 30 setlinewidth newpath TG 0200 y2 150 add ire 1 eq {170 sub} if moveto (office\255application range) showen (B\374ro\255Anwendungsbereich) showde 0200 y2 300 sub ire 1 eq {170 sub} if moveto (according to ) showea (nach ) showde (ISO 9241\255306) show /dyt 100 def ire 0 eq {%ire=0 /dxt 700 def x0 dxt sub y2 dyt sub moveto SG (D) show TIG (Y) show (W) ishow x0 dxt sub 100 add yu dyt sub 100 add moveto SG (D) show TIG (Y) show (u) ishow x0 dxt sub y1 dyt sub moveto SG (D) show TIG (Y) show (N) ishow x0 dxt sub 60 sub y11 dyt sub moveto SG (D) show TIG (Y) show (N1) ishow } if %ire=0 ire 1 eq {%ire=1 /dxt 850 def tfr x0 dxt sub y2 dyt sub moveto SG (D) show TIG (Y) show (rW) ishow x0 dxt sub 100 add yu dyt sub 150 add moveto SG (D) show TIG (Y) show (ru) ishow x0 dxt sub y1 dyt sub moveto SG (D) show TIG (Y) show (rN) ishow x0 dxt sub 60 sub y11 dyt sub moveto SG (D) show TIG (Y) show (rN1) ishow tfn } if %ire=1 x2 1050 sub 1800 moveto TIG (Y) show (W) ishow TG (=90) show xu 0900 sub 200 moveto TIG (Y) show (u) ishow TG (=18) show x1 1100 sub 200 moveto TIG (Y) show (N) ishow TG (=3,6) show %x10 1000 sub 200 moveto %TIG (Y) show (N0) ishow TG (=1,8) show x11 1200 sub 200 moveto TIG (Y) show (N1) ishow TG (=0,9) show 4650 0800 moveto SG (D) show TIG (Y) show TG ( = ) show TG (s + c) show TIG ( Y ) show TG (= 0,017 + 0,0058 ) show TIG (Y) show 4650 0300 moveto ire 0 eq {tfn}{tfr} ifelse SG (D) show TIG (Y) show TG ( / ) show SG (D) show TIG (Y) show (u) ishow TG ( = \0501 + 6,14 ) show TIG (Y) show TG (/) show TIG (Y) show (u) ishow TG (\051) show TG ( / (1 + 6,14)) show tfn 0 50 moveto 0 -100 rlineto stroke 1000 50 moveto 0 -100 rlineto stroke 2000 50 moveto 0 -100 rlineto stroke 3000 50 moveto 0 -100 rlineto stroke 4000 50 moveto 0 -100 rlineto stroke 5000 50 moveto 0 -100 rlineto stroke 6000 50 moveto 0 -100 rlineto stroke 7000 50 moveto 0 -100 rlineto stroke 8000 50 moveto 0 -100 rlineto stroke TG -230 -500 moveto (-1) show 1910 -500 moveto (0) show 3910 -500 moveto (1) show 5910 -500 moveto (2) show 7910 -500 moveto (3) show 8400 -400 moveto TG (log ) show TIG (Y) show %! 1 y-Log-Einheit = 1000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 1000 moveto 100 0 rlineto stroke -50 2000 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -50 4000 moveto 100 0 rlineto stroke -50 5000 moveto 100 0 rlineto stroke -50 6000 moveto 100 0 rlineto stroke TG ire 0 eq {%ire=0 -500 -100 moveto (-2) show -500 1900 moveto (-1) show -350 3900 moveto (0) show -350 5900 moveto (1) show } if %ire=0 ire 1 eq {%ire=1 -500 -100 moveto (-1) show -350 1900 moveto (0) show -350 3900 moveto (1) show -350 5900 moveto (2) show } if %ire=1 %LULWALL1.FOR mit FOR002.DAT=DAPO8XY2.DAT % IM1,JM,LM0: 20 2 20 %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 1.16 0.69 0.41 0.28 0.18 0.15 %Y: 0.10 0.10 0.08 0.07 0.05 0.04 %Y: 0.03 0.02 0.02 0.02 0.02 0.02 %Y: 0.02 0.02 0.02 0.02 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.06 -0.16 -0.39 -0.55 -0.74 -0.82 %Y: -1.00 -1.02 -1.09 -1.18 -1.32 -1.44 %Y: -1.52 -1.62 -1.66 -1.66 -1.70 -1.74 %Y: -1.74 -1.74 -1.74 -1.74 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS ire 0 eq {%ire=0 6591 4128 moveto 6160 3678 5742 3230 5394 2907 curveto 5073 2521 4784 2364 4497 2000 curveto 4219 1965 3926 1828 3418 1640 curveto 3002 1363 2575 1113 2214 955 curveto 1889 761 1599 685 1326 685 curveto 955 603 761 511 461 511 curveto 159 511 159 511 159 511 curveto stroke } if %ire=0 ire 1 eq {%ire=1 /MULX 2000 def /MULY 2000 def /xli 22 array def /Fli 22 array def /Fri 22 array def /xli [197.48 120.27 74.34 49.81 34.40 24.67 17.74 12.87 9.19 5.12 3.17 1.94 1.28 0.88 0.63 0.46 0.30 0.24 0.17 0.12 0.12 0.12 ] def /xlu 17.74 def /im 21 def tfr 40 setlinewidth [100] 0 setdash 0 1 im {/i exch def %i=0,im Fli i xli i get xlu div 6.14 mul 1 add put Fri i Fli i get 7.14 div put i 0 eq {xli i get log MULX mul 2000 add Fri i get log MULY mul 2000 add moveto} if i 1 ge i im 1 sub le and {xli i get log MULX mul 2000 add Fri i get log MULY mul 2000 add lineto} if i im eq {xli i get log MULX mul 2000 add Fri i get log MULY mul 2000 add lineto stroke} if } for %i=0,im tfn [ ] 0 setdash } if %ire=1 inc 1 eq {%inc=1 %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 2.04 1.19 0.84 0.56 0.42 0.30 %Y: 0.26 0.18 0.15 0.10 0.08 0.06 %Y: 0.05 0.04 0.04 0.04 0.03 0.04 %Y: 0.03 0.03 0.03 0.03 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.31 0.07 -0.08 -0.25 -0.37 -0.52 %Y: -0.59 -0.75 -0.83 -1.02 -1.12 -1.20 %Y: -1.29 -1.37 -1.39 -1.44 -1.46 -1.46 %Y: -1.53 -1.53 -1.53 -1.53 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 4618 moveto 6160 4148 5742 3850 5394 3503 curveto 5073 3251 4784 2964 4497 2829 curveto 4219 2492 3926 2336 3418 1970 curveto 3002 1767 2575 1594 2214 1428 curveto 1889 1268 1599 1211 1326 1115 curveto 955 1079 761 1090 461 941 curveto 159 937 159 937 159 937 curveto stroke %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 3.65 2.02 1.31 0.88 0.69 0.49 %Y: 0.40 0.33 0.28 0.18 0.14 0.11 %Y: 0.09 0.08 0.07 0.06 0.05 0.05 %Y: 0.05 0.04 0.04 0.04 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.56 0.31 0.12 -0.05 -0.16 -0.31 %Y: -0.40 -0.48 -0.55 -0.74 -0.86 -0.94 %Y: -1.04 -1.11 -1.14 -1.21 -1.27 -1.27 %Y: -1.32 -1.39 -1.39 -1.39 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 5125 moveto 6160 4612 5742 4236 5394 3891 curveto 5073 3677 4784 3387 4497 3210 curveto 4219 3050 3926 2905 3418 2530 curveto 3002 2282 2575 2111 2214 1913 curveto 1889 1772 1599 1721 1326 1586 curveto 955 1455 761 1455 461 1367 curveto 159 1226 159 1226 159 1226 curveto stroke } if %inc=1 ire 0 eq {%ire=0 40 setlinewidth [100] 0 setdash %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 1.16 0.71 0.45 0.31 0.22 0.16 %Y: 0.12 0.09 0.07 0.05 0.04 0.03 %Y: 0.02 0.02 0.02 0.02 0.02 0.02 %Y: 0.02 0.02 0.02 0.02 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.07 -0.15 -0.35 -0.51 -0.66 -0.80 %Y: -0.92 -1.04 -1.15 -1.33 -1.45 -1.55 %Y: -1.61 -1.66 -1.68 -1.71 -1.73 -1.74 %Y: -1.75 -1.75 -1.75 -1.75 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 4130 moveto 6160 3709 5742 3303 5394 2972 curveto 5073 2671 4784 2409 4497 2158 curveto 4219 1925 3926 1694 3418 1339 curveto 3002 1098 2575 903 2214 776 curveto 1889 689 1599 631 1326 588 curveto 955 546 761 530 461 510 curveto 159 496 159 496 159 496 curveto stroke } if %ire=0 4800 1300 moveto 5500 1300 lineto stroke showpage grestore %%Trailer