%!PS-Adobe-3.0 EPSF-3.0 DEQ81-7N
%%BoundingBox: 70 83 420 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/AE81/AE81.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2022110112000)
  /ModDate (D:20221101112000)
/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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def

/TV {150 /Times-ISOL1 FS} 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

/TIV {150 /TimesI-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

/TBV {150 /TimesB-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

/TBIV {150 /TimesBI-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

/TBSN {-20 -60 rmoveto TBV (N) show 0 60 rmoveto TBS} bind def
/TBSU {-20 -60 rmoveto TBV (U) show 0 60 rmoveto TBS} bind def
/TBSW {-20 -60 rmoveto TBV (W) show 0 60 rmoveto TBS} bind def
/TBSY {-20 -60 rmoveto TBV (Y) show 0 60 rmoveto TBS} bind def

/TBMN {-20 -60 rmoveto TBK (N) show 0 60 rmoveto TBM} bind def
/TBMU {-20 -60 rmoveto TBK (U) show 0 60 rmoveto TBM} bind def
/TBMW {-20 -60 rmoveto TBK (W) show 0 60 rmoveto TBM} bind def
/TBMY {-20 -60 rmoveto TBK (Y) show 0 60 rmoveto TBM} bind def

/TBM0N {-20 -60 rmoveto TBK (0N) show 0 60 rmoveto TBM} bind def
/TBM0U {-20 -60 rmoveto TBK (0U) show 0 60 rmoveto TBM} bind def
/TBM0W {-20 -60 rmoveto TBK (0W) show 0 60 rmoveto TBM} bind def
/TBM0Y {-20 -60 rmoveto TBK (0Y) show 0 60 rmoveto TBM} bind def
/TBM0i {-20 -60 rmoveto TBK (0i) show 0 60 rmoveto TBM} bind def
/TBM05 {-20 -60 rmoveto TBK (05) show 0 60 rmoveto TBM} bind def

/TBMtN {-20 -60 rmoveto TBK (tN) show 0 60 rmoveto TBM} bind def
/TBMtU {-20 -60 rmoveto TBK (tU) show 0 60 rmoveto TBM} bind def
/TBMtW {-20 -60 rmoveto TBK (tW) show 0 60 rmoveto TBM} bind def
/TBMtY {-20 -60 rmoveto TBK (tY) show 0 60 rmoveto TBM} bind def

/TBMta {-20 -60 rmoveto TBK (ta) show 0 60 rmoveto TBM} bind def
/TBMi  {-20 -60 rmoveto TBK (i)  show 0 60 rmoveto TBM} bind def
/TBMref {-20 -60 rmoveto TBK (ref)  show 0 60 rmoveto TBM} bind def
/TBM0ref {-20 -60 rmoveto TBK (0ref)  show 0 60 rmoveto TBM} bind def
/TBM1ref {-20 -60 rmoveto TBK (1ref)  show 0 60 rmoveto TBM} bind def
/TBM2ref {-20 -60 rmoveto TBK (2ref)  show 0 60 rmoveto TBM} bind def

/TBM0aN {-20 -60 rmoveto TBK (0aN) show 0 60 rmoveto TBM} bind def
/TBM0aU {-20 -60 rmoveto TBK (0aU) show 0 60 rmoveto TBM} bind def
/TBM0aW {-20 -60 rmoveto TBK (0aW) show 0 60 rmoveto TBM} bind def
/TBM0aY {-20 -60 rmoveto TBK (0aY) show 0 60 rmoveto TBM} bind def
/TBM0ai {-20 -60 rmoveto TBK (0ai) show 0 60 rmoveto TBM} bind def
/TBM05a {-20 -60 rmoveto TBK (05a) show 0 60 rmoveto TBM} bind def

/TBMtaN {-20 -60 rmoveto TBK (taN) show 0 60 rmoveto TBM} bind def
/TBMtaU {-20 -60 rmoveto TBK (taU) show 0 60 rmoveto TBM} bind def
/TBMtaW {-20 -60 rmoveto TBK (taW) show 0 60 rmoveto TBM} bind def
/TBMtaY {-20 -60 rmoveto TBK (taY) show 0 60 rmoveto TBM} bind def
/TBMtaiU {-20 -60 rmoveto TBK (taiU) show 0 60 rmoveto TBM} bind def
/TBMtaiW {-20 -60 rmoveto TBK (taiW) show 0 60 rmoveto TBM} bind def

/TBMta {-20 -60 rmoveto TBK (ta) show 0 60 rmoveto TBM} bind def
/TBMai  {-20 -60 rmoveto TBK (ai)  show 0 60 rmoveto TBM} bind def

/TSN {-20 -60 rmoveto TV (N) show 0 60 rmoveto TS} bind def
/TSU {-20 -60 rmoveto TV (U) show 0 60 rmoveto TS} bind def
/TSW {-20 -60 rmoveto TV (W) show 0 60 rmoveto TS} bind def
/TSY {-20 -60 rmoveto TV (Y) show 0 60 rmoveto TS} bind def

/TMN {-20 -60 rmoveto TK (N) show 0 60 rmoveto TM} bind def
/TMU {-20 -60 rmoveto TK (U) show 0 60 rmoveto TM} bind def
/TMW {-20 -60 rmoveto TK (W) show 0 60 rmoveto TM} bind def
/TMY {-20 -60 rmoveto TK (Y) show 0 60 rmoveto TM} bind def

/TM0N {-20 -60 rmoveto TK (0N) show 0 60 rmoveto TM} bind def
/TM0U {-20 -60 rmoveto TK (0U) show 0 60 rmoveto TM} bind def
/TM0W {-20 -60 rmoveto TK (0W) show 0 60 rmoveto TM} bind def
/TM0Y {-20 -60 rmoveto TK (0Y) show 0 60 rmoveto TM} bind def

/TMtN {-20 -60 rmoveto TK (tN) show 0 60 rmoveto TM} bind def
/TMtU {-20 -60 rmoveto TK (tU) show 0 60 rmoveto TM} bind def
/TMtW {-20 -60 rmoveto TK (tW) show 0 60 rmoveto TM} bind def
/TMtY {-20 -60 rmoveto TK (tY) show 0 60 rmoveto TM} bind def

/TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def
/TMi  {-20 -60 rmoveto TK (i)  show 0 60 rmoveto TM} bind def

/TM0aN {-20 -60 rmoveto TK (0aN) show 0 60 rmoveto TM} bind def
/TM0aU {-20 -60 rmoveto TK (0aU) show 0 60 rmoveto TM} bind def
/TM0aW {-20 -60 rmoveto TK (0aW) show 0 60 rmoveto TM} bind def
/TM0aY {-20 -60 rmoveto TK (0aY) show 0 60 rmoveto TM} bind def

/TMtaN {-20 -60 rmoveto TK (taN) show 0 60 rmoveto TM} bind def
/TMtaU {-20 -60 rmoveto TK (taU) show 0 60 rmoveto TM} bind def
/TMtaW {-20 -60 rmoveto TK (taW) show 0 60 rmoveto TM} bind def
/TMtaY {-20 -60 rmoveto TK (taY) show 0 60 rmoveto TM} bind def

/TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def
/TMi  {-20 -60 rmoveto TK (ai)  show 0 60 rmoveto TM} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /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

/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

/cvishowr {0.4 add cvi 10 string cvs show} def
/cvsshow1r {0.04 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.004 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0004 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/DECODeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/DECODY_L* {/YYn Y Yn div def
            /YYnE3 YYn 0.3333 exp def
            /DE 24 116 div def
            /DE3 DE 3 exp def
            
            YYn DE3 gt {/FYYn YYnE3 def}
                       {/FYYn 841 108 div YYn mul 16 116 div add def} ifelse
            /L* FYYn 116 mul 16 sub def
           } bind def

/DECODL*_Y {/FYYn L* 16 add 116 div def
            /DE 24 116 div def
            L* 8 gt {/Y FYYn 3 exp Yn mul def}
                    {/Y FYYn 16 116 div sub
                        108 841 div mul Yn mul def
                    } ifelse
           } bind 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 {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 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 xchart1 def

/xchartl 3 def

gsave

5 /Times-ISOL1 FS
72 85 moveto
(DEQ81-7N) show

72 90 translate

/xwidth 12200 def
/ywidth  8500 def
0.01 MM dup scale

15 setlinewidth
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

%normalisation grey or white
/iYnor 0 def %0=white W, 1=grey U

 0 ywidth 320 sub  moveto 12200 0 rlineto stroke

/ydel 300 def

/L0a0i 9 array def
%/L0a1i 9 array def
%/L0a2i 9 array def
%/L0a3i 9 array def
/L0axi 9 array def

/L0r0i 9 array def
%/L0r1i 9 array def
%/L0r2i 9 array def
%/L0r3i 9 array def
/L0rxi 9 array def

/Y0a0i 9 array def
%/Y0a1i 9 array def
%/Y0a2i 9 array def
%/Y0a3i 9 array def
/Y0axi 9 array def

/Y0r0i 9 array def
%/Y0r1i 9 array def
%/Y0r2i 9 array def
%/Y0r3i 9 array def
/Y0rxi 9 array def

/Lta0i 9 array def
%/Lta1i 9 array def
%/Lta2i 9 array def
%/Lta3i 9 array def
/Ltaxi 9 array def

/Ltr0i 9 array def
%/Ltr1i 9 array def
%/Ltr2i 9 array def
%/Ltr3i 9 array def
/Ltrxi 9 array def

/Yta0i 9 array def
%/Yta1i 9 array def
%/Yta2i 9 array def
%/Yta3i 9 array def
/Ytaxi 9 array def

/Ytr0i 9 array def
%/Ytr1i 9 array def
%/Ytr2i 9 array def
%/Ytr3i 9 array def
/Ytrxi 9 array def

/Da*0i 9 array def
%/Da*1i 9 array def
%/Da*2i 9 array def
%/Da*3i 9 array def
/Da*xi 9 array def

/Yn 100 def

xchartl 0 eq {%xchartl=0
/L0arnx  4.0 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 0.4 def
             } if %xchartl=0

xchartl 1 eq {%xchartl=1
/L0arnx  4.0 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 90 def
             } if %xchartl=1

xchartl 2 eq {%xchartl=2
/L0arnx  4.0 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 1.8 def
             } if %xchartl=2

xchartl 3 eq {%xchartl=3
/L0arnx  4.0 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 3.6 def
             } if %xchartl=3

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.50 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 69 def

/Da*0x L0arwx L0arnx sub 8 div def
0 1 08 {/i exch def
        L0axi i L0arnx Da*0x i mul add put
        L0rxi i L0axi i get L0arnx sub
                L0arwx      L0arnx sub div put
        /L* L0axi i get def DECODL*_Y
        Y0axi i Y put
        Y0rxi i Y0axi i get Y0arnx sub
                Y0arwx      Y0arnx sub div put
       } for

iYnor 0 eq {%iYnor=0 W
            /Yfak Y0axi 8 get Y0axi 8 get Yxref add div def
           }
           {%iYnor=1 U
            /Yfak Y0axi 4 get Y0axi 4 get Yxref add div def
           } ifelse

0 1 08 {/i exch def
        Ytaxi i Y0axi i get Yxref add Yfak mul put
        /Y Ytaxi i get def DECODY_L* Ltaxi i L* put
        } for

0 1 08 {/i exch def
        Ytrxi i Ytaxi i get Ytaxi 0 get sub
                Ytaxi 8 get Ytaxi 0 get sub div put
        Ltrxi i Ltaxi i get Ltaxi 0 get sub
                Ltaxi 8 get Ltaxi 0 get sub div put
        } for

%**************************************************
%Titeltext
 050 8220 50 add moveto
TBM
(9stufige Grauskalierung zwischen ) showde
(Equal 9 step grey scaling between ) showen
(9 pasos di gri con escala equal entre ) showes
(Les 9 plages d'\351chelle de gris entre ) showfr
(9 fasi di grigio con uguale la scalatura fra ) showit
(9 trinn av gr\345 med samme skalering mellom ) showjp
TBIM (L*) show TBM0aN TBM (=) show L0arnx cvsshow1
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TBIM (L*) show TBM0aW TBM (=) show L0arwx cvsshow1

TBM
(, ) showde
(, ) showen
TBIM (Y) show TBM0ref
TBM (=) show Yxref cvsshow1
iYnor 0 eq {%W-Normalisation
            (, normalisation: white ) showen
            (, Normierung: Wei\337 ) showde
            TBIM (W) show TBM
           } if

iYnor 1 eq {%G-Normalisation
            (, normalisation: grey ) showen
            (, Normierung: grau ) showde
            TBIM (U) show TBM
           } if

/Ytrei 9 array def
/Ytdii 9 array def

xchartl 0 eq {%xchartl=0
/Ytrei [(0,000) (0,123) (0,248) (0,375) (0,501)
        (0,626) (0,752) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,002) ( 0,002) ( 0,000) (-0,001)
        (-0,001) (-0,002) (-0,001) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.05 def
               } if %xchartl=0

xchartl 1 eq {%xchartl=1
/Ytrei [(0,010) (0,148) (0,254) (0,370) (0,491)
        (0,617) (0,745) (0,873) (1,000)] def
/Ytdii [(-0,010) (-0,023) (-0,005) ( 0,005) ( 0,009)
        ( 0,008) ( 0,004) ( 0,002) ( 0,000)] def
/yterr (0,0009) def
/Gammax 2.00 def
               } if %xchartl=1

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,118) (0,242) (0,373) (0,504)
        (0,632) (0,757) (0,879) (1,000)] def
/Ytdii [(-0,000) ( 0,006) ( 0,008) ( 0,002) (-0,004)
        (-0,007) ( 0,007) (-0,004) ( 0,000)] def
/yterr (0,0002) def
/Gammax 1.19 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,118) (0,240) (0,372) (0,503)
        (0,633) (0,759) (0,881) (1,000)] def
/Ytdii [(-0,001) ( 0,007) ( 0,010) ( 0,003) (-0,003)
        (-0,008) ( 0,009) (-0,007) ( 0,000)] def
/yterr (0,0004) def
/Gammax 1.30 def
               } if %xchartl=3

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 5 array def
/ytext [(    0) (  25) (  50) (  75) (100)] def
/TBGshift 100 def
/TVGshift 060 def

0 100 translate

/x300 300 def
xpos0 x300 moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

0 1 4 {/i exch def %i=0,4
       xpos0 100 sub x300 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub x300 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

50%
/i 2 def
1 0 0 setrgbcolor
xpos0 100 sub x300 i 25 mul yscale mul add moveto 200 0 rlineto stroke
xpos0 600 sub x300 i 25 mul yscale mul add TBGshift sub moveto
(  50) show
0 setgray

%****************************************************************
/xpos 0900 def
xpos 0000 add ypos1 0580 add 50 add moveto
TIM (L*) show TM0aN
TM (=) show L0axi 0 get cvsshow1r (, ) show
TIM (L*) show TM0aU
TM (=) show L0axi 4 get cvsshow1r (, ) show
TIM (L*) show TM0aW
TM (=) show L0axi 8 get cvsshow1r (, ) show
TIM (Y) show TM0aN
TM (=) show Y0axi 0 get cvsshow1r (, ) show
TIM (Y) show TM0aU
TM (=) show Y0axi 4 get cvsshow1r (, ) show
TIM (Y) show TM0aW
TM (=) show Y0axi 8 get cvsshow1r (, ) show
TIM (C) show TM0aY
TM (=) show
TIM (Y) show TM0aW TM (:) show
TIM (Y) show TM0aN TM (=) show
Y0axi 8 get
Y0axi 0 get div cvsshow1r

%****************************************
xpos 0000 add ypos1 0250 add 50 add moveto
TIM (L*) show TMtN
TM (=) show Ltaxi 0 get cvsshow1r (, ) show
TIM (L*) show TMtaU
TM (=) show Ltaxi 4 get cvsshow1r (, ) show
TIM (L*) show TMtaW
TM (=) show Ltaxi 8 get cvsshow1r (, ) show
TIM (Y) show TMtaN
TM (=) show Ytaxi 0 get cvsshow1r (, ) show
TIM (Y) show TMtaU
TM (=) show Ytaxi 4 get cvsshow1r (, ) show
TIM (Y) show TMtaW
TM (=) show Ytaxi 8 get cvsshow1r (, ) show

TIM (C) show TMtaY TM (=) show
TIM (Y) show TMtaW TM (:) show
TIM (Y) show TMtaN TM (=) show
Ytaxi 8 get
Ytaxi 0 get div cvsshow1r


/xdd  800 def
/xpo1 xpos def

/TBMe {-00 80 rmoveto TBK (1/) show Gammax cvsshow2r 
        0 -80 rmoveto TBM} bind def

/yd1 030 50 sub def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (n0. i) show
xpo1 xdd 1 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*0a) show
xpo1 xdd 2 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*0r) show
xpo1 xdd 3 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y0a) show
xpo1 xdd 4 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y0r) show

[50 50] 0 setdash
xpo1 xdd 4.8 mul add ypos1 yd1 sub 150 add TVGshift sub moveto
0 6600 neg rlineto stroke newpath
[ ] 0 setdash
xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*ta) show
xpo1 xdd 5.9 mul add ypos1 yd1 sub TVGshift sub moveto
SM (D) show TBM (L*ta) show

xpo1 xdd 7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*tr) show
xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Yta) show
xpo1 xdd 9.2 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((L*tr)) show TBMe
xpo1 xdd 11.0 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((L*tr)) show TBMe
(-L*0r) show

TK
0 1 8 {/i exch def %i=0,8
        newpath
        /ypos L0axi i get yscale mul def
        L0axi i get 96.0 div setgray
        xpos dcirc add ypos ypos0 add dcirc 0 360 arc
        i 08 lt {fill} {0 setgray stroke} ifelse
        0 setgray
       } for %i=0,8

0 1 08 {/i exch def %i=0,08
        /ypos L0axi i get yscale mul 50 add def
        xpo1 xdd 0.5 mul add ypos ypos0 add TVGshift sub moveto
        i 1 add cvishowr
        xpo1 xdd 1 mul add ypos ypos0 add TVGshift sub moveto
        L0axi i get cvsshow1r
        xpo1 xdd 2 mul add ypos ypos0 add TVGshift sub moveto
        L0rxi i get cvsshow3r
        xpo1 xdd 3 mul add ypos ypos0 add TVGshift sub moveto
        Y0axi i get cvsshow1r
        xpo1 xdd 4 mul add ypos ypos0 add TVGshift sub moveto
        Y0rxi i get cvsshow3r

        xpo1 xdd 5 mul add ypos ypos0 add TVGshift sub moveto
        i 2 le
        xchartl 1 eq and {1 0 0 setrgbcolor} if
        Ltaxi i get cvsshow1r
        0 setgray
      
        i 1 ge {%i>=1
        i 2 le
        xchartl 1 eq and {1 0 0 setrgbcolor} if
        xpo1 xdd 6 mul add ypos ypos0 add 350 sub TVGshift sub moveto
        Ltaxi i get Ltaxi i 1 sub get sub cvsshow1r
        0 setgray
               } if %i>=1

        xpo1 xdd 7 mul add ypos ypos0 add TVGshift sub moveto
        Ltrxi i get cvsshow3r
        xpo1 xdd 8 mul add ypos ypos0 add TVGshift sub moveto
        Ytaxi i get cvsshow1r

        xpo1 xdd 9.2 mul add ypos ypos0 add TVGshift sub moveto
        Ytrei i get show
        xpo1 xdd 11.8 mul add ypos ypos0 add TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,0001) show} if

       } for %i=0,08

0 100 neg translate

0900 400 180 sub moveto
SM (D) show TBIM (L*) show TBMta TBM (=) show
L0axi 8 get L0axi 7 get sub cvsshow1r %round

2900 400 180 sub moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
/y0n 0450 180 sub def
x0n 1900 add y0n moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show
iYnor 0 eq {TBMtaiW} {TBMtaiU} ifelse
TBK (=) show
TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse
100 050 rmoveto 1300 0 rlineto stroke

iYnor 0 eq {/x1n 5300 def} {/x1n 5200 def} ifelse
x0n x1n add y0n 130 add moveto
TBIM (Y) show TBM0ai TBM (+) show
TBIM (Y) show TBM0ref
x0n x1n add 50 sub y0n 170 sub moveto
TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse
TBM (+) show TBIM (Y) show TBM0ref

showpage
grestore

%%Trailer