%!PS-Adobe-3.0 EPSF-3.0 XE001-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://130.149.60.45/~farbmetrik/XE00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2015100112000) /ModDate (D:2015100112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /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 % !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 {190 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIS {190 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBS {190 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIS {190 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SS {190 1 sub /Symbol FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} 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 /circ %x, y radius {dcirc 0 360 arc } 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 /colarcfi %x y c m y k {setcmyk_olvcolor circ fill} bind def /colarcst %x y width heigth c m y k {setcmyk_olvcolor circ 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 /cvistr {cvi 10 string cvs} 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 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 /xchart xchart1 def 5 /Times-ISOL1 FS 340 85 moveto (XE001-7N) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /yhoe 8500 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 550 sub moveto 11200 0 rlineto stroke /ns {340 /Times-ISOL1 FS show TG} bind def /ks {340 /TimesI-ISOL1 FS show TG} bind def /bs {340 /TimesB-ISOL1 FS show TG} bind def /js {340 /TimesBI-ISOL1 FS show TG} bind def /ss {340 /Symbol FS show TG} bind def /is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto TG} bind def /is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0 90 rmoveto TG} bind def /es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def %/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def %/ip {(.) ipoint} bind def /ip {(\267) ns TG} bind def /ib {(\267) bs TG} bind def %20% kleiner /ns2 {290 /Times-ISOL1 FS show TM} bind def /ks2 {290 /TimesI-ISOL1 FS show TM} bind def /bs2 {290 /TimesB-ISOL1 FS show TM} bind def /js2 {290 /TimesBI-ISOL1 FS show TM} bind def /is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def /is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {(\267) ns2 TM} bind def /ib2 {(\267) bs2 TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /is4 {160 /Times-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def /iks4 {160 /TimesI-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 190 rmoveto show 0 -190 rmoveto TK} bind def /ip4 {(\267) ns4 TK} bind def /ib4 {(\267) bs4 TK} bind def /ydel 300 def %Titeltext 100 8100 moveto TBG (Relative & skalierte visuelle Differenz; ) showde %08560-3 1 (Relative and scaled visual differences; ) showea %18560-3 1 (Triplets & Paare; benachbarte Farben) showde %08560-3 11 (triplets and pairs; adjacent colours) showea %18560-3 11 /ix1 0100 def /ix2 4400 def /ix20 ix2 400 sub def /ix3 5000 def /ix4 8100 def ix1 7650 moveto TG (relative visuelle) showde (relative visual) showea ix1 7300 moveto (Skala ) showde (scale ) showea SG (D) show TIG (V) show (3,i) is TG ( (i=0,1)) show ix1 6950 moveto TG (Bereich 9 bis 1) showde (range 0 to 1) showea ix1 100 moveto TG (2 Experimente von > 14 Beobachter) showde (2 experiments of > 14 observers) showea ix20 7650 moveto TG (Paarvergleich) showde (pair comparison) showea TIG ( (P)) show TG ix20 7300 moveto (mit Graupaar ) showde (to grey pair ) showea SG (D) show TIG (P*) show (i) is TG ( : ) show SG (D) show TIG (V*) show (R) is2 TG (=10) show ix20 6950 moveto TIG (festes Graupaar zum Vergleich) showde (fixed grey pair for comparison) showea /ix41 ix4 200 add def ix41 7650 moveto TG (skalierte visuelle) showde (scaled visual) showea ix41 7300 moveto (Daten ) showde (data ) showea SG (D) show TIG (V*) show (i) is TG ( (i=0 to 1)) show ix41 6950 moveto SM (D) show TIM (V*) show (i) is2 TM (=) show SM (D) show TIM (V) show (3,i) is2 ip2 SM (D) show TIM (S*) show ix41 100 moveto TG (skalierte Daten) showde (final scaled data) showea /col3 [ 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.00 %W 1.00 0.00 0.50 0.00 %T 0.00 0.00 0.00 0.50 %Z 0.00 1.00 0.50 0.00 %P 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 0.50 0.50 1.00 0.00 %Y ] def /col6 [ 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.00 %W 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 1.00 0.00 0.50 0.00 %T 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 1.00 0.50 0.00 %P 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.50 0.50 1.00 0.00 %Yd 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C ] def /col6x [ 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.00 %W 1.00 0.00 0.00 0.00 %C 1.00 0.00 0.50 0.00 %T 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 0.00 1.00 0.50 0.00 %P 1.00 0.00 0.00 0.00 %C 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 0.50 0.50 1.00 0.00 %Yd 1.00 0.00 0.00 0.00 %C ] def /col6p [ 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C ] def /col6t [ 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.50 0.00 %T 1.00 0.00 0.00 0.00 %C ] def /col62 [ %NZW 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.90 % 0.00 0.00 0.00 0.80 % 0.00 0.00 0.00 0.70 % 0.00 0.00 0.00 0.60 % 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.40 % 0.00 0.00 0.00 0.30 % 0.00 0.00 0.00 0.20 % 0.00 0.00 0.00 0.10 % 0.00 0.00 0.00 0.00 %W %GZR 1.00 0.00 0.50 0.00 %T 0.80 0.00 0.40 0.10 % 0.60 0.00 0.30 0.20 % 0.40 0.00 0.20 0.30 % 0.20 0.00 0.10 0.40 % 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.20 0.10 0.40 % 0.00 0.40 0.20 0.30 % 0.00 0.60 0.30 0.20 % 0.00 0.80 0.40 0.10 % 0.00 1.00 0.50 0.00 %P %BZYd 1.00 1.00 0.00 0.00 %B 0.80 0.80 0.00 0.10 % 0.60 0.60 0.00 0.20 % 0.40 0.40 0.00 0.30 % 0.20 0.20 0.00 0.40 % 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.10 0.10 0.20 0.40 % 0.20 0.20 0.40 0.30 % 0.30 0.30 0.60 0.20 % 0.40 0.40 0.80 0.10 % 0.50 0.50 1.00 0.00 %Yd ] def /txt30 [( 0) (0,70) ( 1)] def %NPW /txt31 [( 0) (0,60) ( 1)] def %GDV /txt32 [( 0) (0,40) ( 1)] def %BDY /txx00n [(16,7) (R=10) ()] def %NZ /txx01n [( 5,0) (R=10) ()] def %ZW /txx10n [(14,3) (R=10) ()] def %GZ /txx11n [(11,3) (R=10) ()] def %ZV /txx20n [( 4,2) (R=10) ()] def %BZ /txx21n [(10,8) (R=10) ()] def %ZY /txxn0n [(16,7)( 5,0)(14,3)(11,3)( 4,2)(10,8)] def /txxn0s [(21,7)(21,7)(25,6)(25,6)(15,0)(15,0)] def /txx00 [(0) (a) (1)] def /txx01 [(S) (0) (10)] def /txx02 [(0) (0,2) (0,4) (0,6) (0,8) (1)] def /txx30Vn [(0,70) (0,30)] def /txx31Vn [(0,60) (0,40)] def /txx32Vn [(0,40) (0,60)] def /txr00 [(0,77=16,7/21,7) (0,56=14,3/25,6) (0,28=4,2/15,0)] def /txr01 [(0,23=5,0/21,7) (0,44=11,3/25,6) (0,72=10,8/15,0)] def /ix0 0100 def /iy0 0500 def /s 700 def ix0 iy0 8100 s 9 mul 0.0 0.0 0.0 0.5 colrecfi %grey surround /cnaml [(N) (T) (B)] def /cnamr [(W) (P) (Yn)] def /s 500 def /iy0 5900 def /ix0 0300 def /ix1 0050 def /ixl 0300 def 0 1 2 {/n exch def 0 1 2 {/j exch def TBM /j4 j 4 mul n 12 mul add def n 0 eq {1 1 1 setrgbcolor ix0 j 1 add 0.3 add s mul add % j 1 eq {s add} if % j 2 eq {s 2 mul add} if iy0 680 add moveto j 1 eq {TBIM} if txx00 j get show j 1 eq {(i) is2 TBM} if tfn } if ix0 j 1 add s mul add % j 1 eq {s add} if % j 2 eq {s 2 mul add} if iy0 n 2000 mul sub s s col3 j4 0 add get col3 j4 1 add get col3 j4 2 add get col3 j4 3 add get colrecfi col3 j4 0 add get 0.00 eq col3 j4 1 add get 0.00 eq and col3 j4 2 add get 0.00 eq and col3 j4 3 add get 0.50 eq and {%eq Z ix0 j 1 add s mul add iy0 n 2000 mul sub s s 0 0 0 1 colrecst } if %eq Z tfn TBM ix0 j 1.2 add s mul add 100 sub % j 1 eq {s add} if % j 2 eq {s 2 mul add} if iy0 n 2000 mul sub 300 sub moveto n 0 eq {txt30 j get show} if n 1 eq {txt31 j get show} if n 2 eq {txt32 j get show} if j 0 eq {tfn ix0 j 0.4 add s mul sub 020 add iy0 n 2000 mul sub 600 sub moveto SM (D) show TBIM (V) show (3,i) is2 tfn } if } for %j TBM tfn ix0 1.4 s mul add iy0 n 2000 mul sub 0600 sub moveto n 0 eq {txx30Vn 0 get show} if n 1 eq {txx31Vn 0 get show} if n 2 eq {txx32Vn 0 get show} if ix0 2.6 s mul add iy0 n 2000 mul sub 0600 sub moveto n 0 eq {txx30Vn 1 get show} if n 1 eq {txx31Vn 1 get show} if n 2 eq {txx32Vn 1 get show} if tfw ix0 0.4 s mul add iy0 n 2000 mul sub 0100 add moveto cnaml n get show ix0 4.1 s mul add iy0 n 2000 mul sub 0100 add moveto cnamr n get show tfw ix0 1.4 s mul add iy0 n 2000 mul sub 0900 sub moveto txr00 n get show TBM (=) show SM (D) show TBIM (P*) show (0) is2 TBM (/) show SM (D) show TBIM (S) show TBM ix0 2.6 s mul add iy0 n 2000 mul sub 1200 sub moveto txr01 n get show } for %n /s 500 def /iy0 5900 def /ix0 ix2 def /ixl 0300 def 0 1 5 {/n exch def 0 1 1 {/j exch def TBM /j4 j 4 mul n 12 mul add def j 0 eq {%j=0 1 1 1 setrgbcolor ix0 0 0.5 add s mul add iy0 650 add n 1000 mul sub moveto SM (D) show TBIM (P*) show n n 2 idiv 2 mul sub cvistr is2 TBM (=) show txxn0n n get show n n 2 idiv 2 mul sub 0 eq {1 1 1 setrgbcolor ix0 0 0.5 add s mul add iy0 650 add n 1 add 1000 mul sub 1.2 s mul add moveto -350 0 rlineto 0 -1000 rlineto 350 0 rlineto stroke newpath ix0 2.6 s mul sub iy0 650 add n 1 add 1000 mul sub moveto SM (D) show TBIM (S*) show TBM (=) show txxn0s n get show } if } if %j=0 ix0 j 0.5 add s mul add % j 1 eq {s add} if iy0 n 1000 mul sub s s col6x j4 0 add get col6x j4 1 add get col6x j4 2 add get col6x j4 3 add get colrecfi col6x j4 0 add get 0.00 eq col6x j4 1 add get 0.00 eq and col6x j4 2 add get 0.00 eq and col6x j4 3 add get 0.50 eq and {%eq Z ix0 j 0.5 add s mul add iy0 n 1000 mul sub s s 0 0 0 1 colrecst } if %eq Z tfn } for %j } for %n /s 500 def /iy0 5900 def /ix0 ix2 1200 add s 2 mul add def /ixl 0300 def 0 1 5 {/n exch def 0 1 1 {/j exch def /j4 j 4 mul n 12 mul add def n 0 eq j 0 eq and {1 1 1 setrgbcolor ix0 j 0.3 add s mul add iy0 650 add moveto SM (D) show TBIM (V*) show (R) is2 TBM (=10) show } if ix0 j 0.5 add s mul add % j 1 eq {s add} if iy0 n 1000 mul sub s s col6p j4 0 add get col6p j4 1 add get col6p j4 2 add get col6p j4 3 add get colrecfi col6p j4 0 add get 0.00 eq col6p j4 1 add get 0.00 eq and col6p j4 2 add get 0.00 eq and col6p j4 3 add get 0.50 eq and {%eq Z ix0 j 0.5 add s mul add iy0 n 1000 mul sub s s 0 0 0 1 colrecst } if %eq Z tfn } for %j } for %n /ix0 ix4 def /ixi [200 800 1700 2400] def /iy0 5900 def /SV* [21.7 21.7 25.6 25.6 14.4 14.4] def /DVi [0.70 0.30 0.60 0.40 0.40 0.60] def /SV*t [(21,7) (21,7) (25,6) (25,6) (15,0) (15,0)] def /DV0t [(0,70) ( ) (0,60) ( ) (0,40) ( )] def /DV1t [( ) (0,30) ( ) (0,40) ( ) (0,60)] def /DVit [(0,70) (0,30) (0,60) (0,40) (0,40) (0,60)] def 0 1 5 {/n exch def 0 1 3 {/j exch def TBK /j4 j 4 mul n 24 mul add def n 0 eq {tfn ix0 ixi 0 get add iy0 650 add moveto SK (D) show TBIK (V) show (3,i) is4 TBK ix0 ixi 1 get add iy0 650 add moveto SK (D) show TBIK (S*) show ix0 ixi 2 get add iy0 650 add moveto SK (D) show TBIK (V*) show (0) is4 TBK ix0 ixi 3 get add iy0 650 add moveto SK (D) show TBIK (V*) show (1) is4 TBK % ix0 ixi 2 get add lanind 0 eq {300 sub} if % iy0 300 add moveto % TK % (skalierte Daten) showde % (scaled data) showea tfn } if TK ix0 ixi 0 get add iy0 n 1000 mul sub 200 add moveto DVit n get show ix0 ixi 1 get add iy0 n 1000 mul sub 200 add moveto SV*t n get show n 0 eq n 2 eq or n 4 eq or {%n=0,2,4 ix0 ixi 2 get add iy0 n 1000 mul sub 200 add moveto DVi n get SV* n get mul cvsshow2 } if n 1 eq n 3 eq or n 5 eq or {%n=1,3,5 ix0 ixi 3 get add iy0 n 1000 mul sub 200 add moveto DVi n get SV* n get mul cvsshow2 } if } for %j } for %n showpage grestore %%Trailer