%!PS-Adobe-3.0 EPSF-3.0 UE181-3A %%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: http://130.149.60.45/~farbmetrik/UE18/) /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:2014060112000) /ModDate (D:2014060112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /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 % !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 /str {8 string } bind def /TS {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 /TIS {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 /TBS {200 /TimesB-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 /TBIS {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 /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %XCHA01.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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor 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 {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /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 /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 3 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 gsave /xchart 0 def 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 5 /Times-ISOL1 FS %175 85 moveto (UE181-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 10 def %0 1 15 {/xchartl exch def %xchartl=0,15 /xchartl4 xchartl xchartl 4 idiv 4 mul sub def %0..3 gsave % 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 % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UE181-) show} {(UE181-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth tfw 700 700 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke tfg [100] 0 setdash 1.0 700 mul 0 moveto 3.0 700 mul 0 lineto stroke [ ] 0 setdash tfw xchartl 5 le {%xchartl<=5 TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for -500 5 0700 mul add -300 moveto (x) js2 (r) ib2 (=log[) bs2 (Y/Y) js2 -50 0 rmoveto (18) ib2 (]) bs2 -350 5 0700 mul add -600 moveto (Y) js2 } if %xchartl<=5 /xgr 10 array def /ygr 10 array def /xs2 1 def /ys2 1 def /xfact 1400 def /yfact 1400 def /x018 18 def /xlin 9 array def /xlog 9 array def /xlis 9 array def /xlog [-1.0 -0.75 -0.5 -0.25 0.0 0.25 0.5 0.75 1.00] def /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i 10 xlog i get exp 18 mul put } for %i=0,IM /yd 140 def %half %************************************************************************** xchartl 0 eq xchartl 1 eq or {%xchart=0,1 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (=log [) bs2 (dY/dY) js2 (18) ib2 (]) bs2 3000 3000 moveto (x) js2 (r) ib2 3550 3000 moveto (y) js2 (r) ib2 4100 3000 moveto xchartl 0 eq {(Y) js2} if xchartl 1 eq {tfy (y) js2 (r) ib2 tfw} if %equations tfy 100 2600 moveto (dY/dY) js2 (18) ib2 ( = ) bs2 ([) bs2 (Y/Y) js2 (18) ib2 (]) bs2 (2/3) eb2 tfw 100 2250 moveto (dY/dY) js2 (18) ib2 ( = ) ns2 (Y/Y) js2 (18) ib2 %aditional 2500 0500 moveto (dY) js2 (18) ib2 (=0,36) bs2 2500 0200 moveto (log [) ns2 (dY) js2 (18) ib2 (] = -1,5) bs2 %text tfy 1350 1150 moveto TBM (according to CIELAB ) show TBIM (L*) show tfw 1350 0850 moveto TBIM (Weber\255Fechner Y/dY) show TBM (=con.) show 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlog i get cvsshow1 3500 2700 yd i mul sub moveto TK xlin i get x018 div log cvsshow1 4050 2700 yd i mul sub moveto TK xchartl 0 eq {%xchartl=0 xlin i get i IM lt {cvsshow1}{cvishow} ifelse } if %xchartl=0 xchartl 1 eq {%xchartl=1 tfy xlin i get x018 div 0.6666 exp log cvsshow2 tfw } if %xchartl=1 } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div 0.6666 exp log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfn } if %xchartl=0,1 %************************************************************************** xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 /ty [( 0,0) ( 2,5) ( 5,0) ( 7,5) (10,0) ( )] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (l) ib2 (=[) bs2 (dY/dY) js2 (18) ib2 (]) bs2 3000 3000 moveto (x) js2 (r) ib2 3550 3000 moveto (y) js2 (l) ib2 4100 3000 moveto xchartl 2 eq {(Y) js2} if xchartl 3 eq {tfy (y) js2 (l) ib2 tfw} if %equations tfy 100 2600 moveto (dY/dY) js2 (18) ib2 ( = ) bs2 ([) bs2 (Y/Y) js2 (18) ib2 (]) bs2 (2/3) eb2 tfw 100 2250 moveto (dY/dY) js2 (18) ib2 ( = ) bs2 (Y/Y) js2 (18) ib2 %aditional 2500 0500 moveto (dY) js2 (18) ib2 (=0,36) bs2 2500 0200 moveto (log [) ns2 (dY) js2 (18) ib2 (] = -1,5) bs2 tfy 3000 1200 moveto TBM (CIELAB ) show TBIM (L*) show 3000 0800 moveto (dY) js2 ( = c ) bs2 (Y) js2 (2/3) eb2 tfw 0200 1200 moveto TBIM (Weber\255Fechner) show 0200 0850 moveto (dY) js2 ( = c ) bs2 (Y) js2 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlog i get cvsshow1 3500 2700 yd i mul sub moveto TK xlin i get x018 div cvsshow1 4050 2700 yd i mul sub moveto TK xchartl 2 eq {%xchartl=2 xlin i get i IM lt {cvsshow1}{cvishow} ifelse } if %xchartl=2 xchartl 3 eq {%xchartl=3 tfy xlin i get x018 div 0.6666 exp cvsshow2 tfw } if %xchartl=3 } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div put } for %i=0,IM /yfactl yfact 5 div def 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfactl mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div 0.6666 exp put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfactl mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfn } if %xchartl=2,3 %************************************************************************** xchartl 4 eq xchartl 5 eq or {%xchart=4,5 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [(-2,5) (-2,0) (-1,5) (-1,0) (-0,5) ( 0,0)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (=log ) bs2 (dY) js2 3000 3000 moveto (x) js2 (r) ib2 3550 3000 moveto (y) js2 (r) ib2 4100 3000 moveto xchartl 4 eq {(Y) js2} if xchartl 5 eq {tfy (y) js2 (r) ib2 tfw} if %equations tfy 100 2600 moveto (dY) js2 ( = ) bs2 ([) bs2 (Y/Y) js2 (18) ib2 (]) bs2 (2/3) eb2 tfw 100 2250 moveto (dY) js2 ( = ) bs2 (Y/Y) js2 (18) ib2 %aditional 2500 0500 moveto (dY) js2 (18) ib2 (=0,36) bs2 2500 0200 moveto (log [) ns2 (dY) js2 (18) ib2 (] = -1,5) bs2 %text tfy 1350 1150 moveto TBM (according to CIELAB ) show TBIM (L*) show tfw 1350 0850 moveto TBIM (Weber\255Fechner Y/dY) show TBM (=con.) show 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlog i get cvsshow1 3500 2700 yd i mul sub moveto TK xlin i get log cvsshow1 4050 2700 yd i mul sub moveto TK xchartl 4 eq {%xchartl=0 xlin i get i IM lt {cvsshow1}{cvishow} ifelse } if %xchartl=0 xchartl 5 eq {%xchartl=1 tfy xlin i get x018 div 0.6666 exp log cvsshow2 tfw } if %xchartl=1 } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlin i get x018 div 0.6666 exp log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfn } if %xchartl=4,5 %************************************************************************** xchartl 06 eq xchartl 07 eq or {%xchartl=06,07 %linear xr=ar and yr=log(1+ar) /IP 7 def /IPM IP 1 sub def TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def %/tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show % ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for 5 0700 mul -300 moveto (a) js2 (r) ib2 (=) bs2 (a) js2 (-) bs2 (a) js2 (n) ib2 %-350 5 0700 mul add -600 moveto (Y) js2 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (= log[) bs2 (da) js2 (r) ib2 (/) bs2 (da) js2 (r,n) ib2 (]) bs2 3000 3000 moveto (a) js2 (r) ib2 3550 3000 moveto (y*) js2 (r) ib2 0900 1800 moveto TBM (Schwellen) showde (threshold) showea 0900 1100 moveto TBM (Stufung) showde (scaling) showea %equations 100 2600 moveto (y*) js2 (r) ib2 (=) bs2 (log[1+abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 xchartl IPM eq {%xchartl=IPM 4150 3000 moveto (da) js2 (r) ib2 400 2250 moveto (da) js2 (r) ib2 (=) bs2 ([1+abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 } if %xchartl=IPM xchartl IP eq {%xchartl=IP tfy 4150 3000 moveto (y*) js2 (r) ib2 100 2250 moveto (y*) js2 (r) ib2 (=) bs2 (log{[1+abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 (2/3) eb2 (}) bs2 tfw } if %xchartl=IP %aditional %2500 1250 moveto (a) js2 (s) ib2 (=) ns2 (a) js2 (r) ib2 2500 0900 moveto (a) js2 (r) ib2 (=) ns2 (a) js2 (-) ns2 (a) js2 (n) ib2 2500 0550 moveto (da) js2 (r,n) ib2 (=0,08) bs2 2500 0200 moveto (log [) ns2 (da) js2 (r,n) ib2 (] = -1,1) bs2 /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i -1.0 0.25 i mul add put xlis i xlin i get put } for %i=0,IM 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlin i get cvsshow1 3500 2700 yd i mul sub moveto TK xlis i get abs 1 add log cvsshow2 xchartl IPM eq {%xchartl=IPM 4100 2700 yd i mul sub moveto TK xlis i get abs 1 add cvsshow2 } if %xchartl=IP xchartl IP eq {%xchartl=IP tfy 4100 2700 yd i mul sub moveto TK xlis i get abs 1 add 0.6666 exp log cvsshow2 tfw } if %xchartl=IP } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl IP eq {%xchartl=IP tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add 0.6666 exp log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw } if %xchartl=IP 50 setlinewidth tfw [100] 0 setdash 0 1400 moveto 700 4.0 mul 0 rlineto stroke [ ] 0 setdash } if %xchartl=6,7 %************************************************************************** xchartl 8 eq xchartl 9 eq or {%xchart=8,9 %linear xr=ar and yr=(1+abs(ar)) /IP 9 def TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def %/tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show % ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for 5 0700 mul -300 moveto (a) js2 (r) ib2 (=) bs2 (a) js2 (-) bs2 (a) js2 (n) ib2 %-350 5 0700 mul add -600 moveto (Y) js2 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (=) bs2 (da) js2 (r) ib2 (/) bs2 (da) js2 (r,n) ib2 3000 3000 moveto (a) js2 (r) ib2 3550 3000 moveto (da) js2 (r) ib2 xchartl IP eq {0850 1900 moveto TBM}{0850 2200 moveto TBM} ifelse (Schwellen) showde (threshold) showea 0850 1100 moveto TBM (Stufung) showde (scaling) showea %equations 400 2600 moveto (da) js2 (r) ib2 (=) bs2 ([1+abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 xchartl IP eq {%xchartl=IP tfy 4100 3000 moveto (y) js2 (r) ib2 400 2250 moveto (y) js2 (r) ib2 (=) bs2 ([1+abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 (2/3) eb2 tfw } if %xchartl=IP %aditional %2500 1250 moveto (a) js2 (s) ib2 (=) ns2 (a) js2 (r) ib2 2500 0900 moveto (a) js2 (r) ib2 (=) ns2 (a) js2 (-) ns2 (a) js2 (n) ib2 2500 0550 moveto (da) js2 (r,n) ib2 (=0,08) bs2 2500 0200 moveto (log [) ns2 (da) js2 (r,n) ib2 (] = -1,1) bs2 /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i -1.0 0.25 i mul add put xlis i xlin i get put } for %i=0,IM 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlin i get cvsshow1 3500 2700 yd i mul sub moveto TK xlis i get abs 1 add cvsshow1 xchartl IP eq {%xchartl=IP tfy 4050 2700 yd i mul sub moveto TK xlis i get abs 1 add 0.6666 exp cvsshow2 tfw } if %xchartl=IP } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl IP eq {%xchartl=IP tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add 0.6666 exp put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw } if %xchartl=IP 50 setlinewidth tfw [100] 0 setdash 0 1400 moveto 700 4.0 mul 0 rlineto stroke [ ] 0 setdash } if %xchartl=8,9 %************************************************************************** xchartl 10 eq xchartl 11 eq or {%xchart=10,11 %linear xr=ar and yr=(1+0,5*abs(ar)) /IP 11 def TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def %/tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show % ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for 5 0700 mul -300 moveto (a) js2 (r) ib2 (=) bs2 (a) js2 (-) bs2 (a) js2 (n) ib2 %-350 5 0700 mul add -600 moveto (Y) js2 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (=) bs2 (da) js2 (r) ib2 (/) bs2 (da) js2 (r,n) ib2 3000 3000 moveto (a) js2 (r) ib2 3550 3000 moveto (da) js2 (r) ib2 0900 1800 moveto TBM (Schwellen) showde (threshold) showea 0900 1100 moveto TBM (Stufung) showde (scaling) showea %equations 100 2600 moveto (da) js2 (r) ib2 (=) bs2 ([1+0,5abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 xchartl IP eq {%xchartl=IP tfy 4100 3000 moveto (y) js2 (r) ib2 100 2250 moveto (y) js2 (r) ib2 (=) bs2 ([1+0,5abs\050) bs2 (a) js2 (r) ib2 (\051]) bs2 (2/3) eb2 tfw } if %xchartl=IP %aditional %2500 1250 moveto (a) js2 (s) ib2 (=) ns2 (a) js2 (r) ib2 2500 0900 moveto (a) js2 (r) ib2 (=) ns2 (a) js2 (-) ns2 (a) js2 (n) ib2 2500 0550 moveto (da) js2 (r,n) ib2 (=0,08) bs2 2500 0200 moveto (log [) ns2 (da) js2 (r,n) ib2 (] = -1,1) bs2 /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i -1.0 0.25 i mul add put xlis i xlin i get put } for %i=0,IM 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlin i get cvsshow1 3500 2700 yd i mul sub moveto TK xlis i get abs 0.5 mul 1 add cvsshow1 xchartl IP eq {%xchartl=IP tfy 4050 2700 yd i mul sub moveto TK xlis i get abs 0.5 mul 1 add 0.6666 exp cvsshow2 tfw } if %xchartl=IP } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 0.5 mul put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl IP eq {%xchartl=IP tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 0.5 mul 1 add 0.6666 exp 1 sub put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw } if %xchartl=IP 50 setlinewidth tfw [100] 0 setdash 0 1400 moveto 700 4.0 mul 0 rlineto stroke [ ] 0 setdash } if %xchartl=8,9 %************************************************************************** xchartl 12 eq xchartl 13 eq or {%xchart=12,13 %linear xr=ar and yr=ar/(1+0,5ar) /IP 13 def TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def %/tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show % ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for 5 0700 mul -300 moveto (a) js2 (r) ib2 (=) bs2 (a) js2 (-) bs2 (a) js2 (n) ib2 %-350 5 0700 mul add -600 moveto (Y) js2 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (=) bs2 (da) js2 (s) ib2 (/) bs2 (da) js2 (s,n) ib2 3000 3000 moveto (a) js2 (r) ib2 3550 3000 moveto (da) js2 (s) ib2 0850 1950 moveto TBM (Schwellen) showde (threshold) showea 0850 1100 moveto TBM (Stufung) showde (scaling) showea %equations 400 2650 moveto (y) js2 (r) ib2 (=) bs2 ([1+abs\050) bs2 (a) js2 (s) ib2 (\051]) bs2 xchartl IP eq {%xchartl=IP tfy 4100 3000 moveto (da) js2 (s) ib2 400 2300 moveto (y) js2 (r) ib2 (=) bs2 ([1+abs\050) bs2 (a) js2 (s) ib2 (\051]) bs2 (2/3) eb2 tfw } if %xchartl=IP %aditional 2500 1250 moveto (a) js2 (s) ib2 (=) ns2 (a) js2 (r) ib2 (/[1+0,5) ns2 (a) js2 (r) ib2 (]) ns2 2500 0900 moveto (a) js2 (r) ib2 (=) ns2 (a) js2 (-) ns2 (a) js2 (n) ib2 2500 0550 moveto (da) js2 (r,n) ib2 (=0,08) bs2 2500 0200 moveto (log [) ns2 (da) js2 (r,n) ib2 (] = -1,1) bs2 /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i -1.0 0.25 i mul add put xlis i xlin i get dup 0.5 mul abs 1 add div put } for %i=0,IM 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlin i get cvsshow1 3500 2700 yd i mul sub moveto TK xlis i get abs 1 add cvsshow1 xchartl IP eq {%xchartl=IP tfy 4050 2700 yd i mul sub moveto TK xlis i get abs 1 add 0.6666 exp cvsshow2 tfw } if %xchartl=IP } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl IP eq {%xchartl=IP tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add 0.6666 exp 1 sub put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw } if %xchartl=IP 50 setlinewidth tfw [100] 0 setdash 0 1400 moveto 700 3.5 mul 0 rlineto stroke [ ] 0 setdash } if %xchartl=12,13 %************************************************************************** xchartl 14 eq xchartl 15 eq or {%xchartl=14,15 %linear xr=ar and yr=ar/(1+0,5ar) /IP 15 def /IPM 14 def TBM /tx [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def %/tz [( 1,8) ( 3,6) ( 18) ( 90) ( 180) (270)] def %!x-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten 0 1 4 {/i exch def /ixt { -350 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show % ixt -600 moveto tz i get exec show ixl 75 moveto 0 -150 rlineto stroke } for 5 0700 mul -300 moveto (a) js2 (r) ib2 (=) bs2 (a) js2 (-) bs2 (a) js2 (n) ib2 %-350 5 0700 mul add -600 moveto (Y) js2 %!y-Achse: 1 log-Einheiten = 1400 Skalen-Einheiten /ty [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5)] def 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def -650 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for %text -650 3000 moveto (y) js2 (r) ib2 (= log[) bs2 (da) js2 (s) ib2 (/) bs2 (da) js2 (s,n) ib2 (]) bs2 3000 3000 moveto (a) js2 (r) ib2 3550 3000 moveto (y*) js2 (r) ib2 0900 1700 moveto TBM (Schwellen) showde (threshold) showea 0900 1100 moveto TBM (Stufung) showde (scaling) showea %equations 100 2600 moveto (y*) js2 (r) ib2 (=) bs2 (log[1+abs\050) bs2 (a) js2 (s) ib2 (\051]) bs2 xchartl IPM eq {%xchartl=IPM 4150 3000 moveto (da) js2 (s) ib2 } if %xchartl=IPM xchartl IP eq {%xchartl=IP tfy 4150 3000 moveto (y*) js2 (r) ib2 100 2250 moveto (y*) js2 (r) ib2 (=) bs2 (log{[1+abs\050) bs2 (a) js2 (s) ib2 (\051]) bs2 (2/3) eb2 (}) bs2 tfw } if %xchartl=IP %aditional 2500 1250 moveto (a) js2 (s) ib2 (=) ns2 (a) js2 (r) ib2 (/[1+0,5) ns2 (a) js2 (r) ib2 (]) ns2 2500 0900 moveto (a) js2 (r) ib2 (=) ns2 (a) js2 ( - ) ns2 (a) js2 (n) ib2 2500 0550 moveto (da) js2 (r,n) ib2 (=0,08) bs2 2500 0200 moveto (log [) ns2 (da) js2 (r,n) ib2 (] = -1,1) bs2 /IM 8 def 0 1 IM {/i exch def %i=0,IM xlin i -1.0 0.25 i mul add put xlis i xlin i get dup 0.5 mul abs 1 add div put } for %i=0,IM 0 2 IM {/i exch def %i=0,2,IM 2950 2700 yd i mul sub moveto TK xlin i get cvsshow1 3500 2700 yd i mul sub moveto TK xlis i get abs 1 add log cvsshow2 xchartl IPM eq {%xchartl=IPM 4100 2700 yd i mul sub moveto TK xlis i get abs 1 add cvsshow1 } if %xchartl=IPM xchartl IP eq {%xchartl=IP tfy 4100 2700 yd i mul sub moveto TK xlis i get abs 1 add 0.6666 exp log cvsshow2 tfw } if %xchartl=IP } for %i=0,2,IM 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add log put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl IP eq {%xchartl=IP tfy 0 1 IM {/i exch def %i=0,IM xgr i -1.0 0.25 i mul add put ygr i xlis i get abs 1 add log 0.6666 mul put } for %i=0,IM 0 1 IM {/i exch def %i=0,IM xgr i get xs2 add xfact mul ygr i get ys2 add yfact mul i 0 eq {moveto} if i 01 ge i IM 1 sub le and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM tfw } if %xchartl=IP 50 setlinewidth tfw [100] 0 setdash 0 1400 moveto 700 3.5 mul 0 rlineto stroke [ ] 0 setdash } if %xchartl=14,15 %************************************************************************** 50 setlinewidth 700 neg 700 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 % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore %%Trailer