%!PS-Adobe-3.0 EPSF-3.0 DEN10-3N
%%BoundingBox: 70 83 415 335

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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 pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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

/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

/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

/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

5 /Times-ISOL1 FS
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

/xchartl 0 def

gsave

5 /Times-ISOL1 FS
340 85 moveto
(DEN10-3N) show

72 90 translate

/xwidth 12000 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 400 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 060 rmoveto show 0 -060 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 -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8200 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

(L*) js2 (N) is2 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

(L*) js2 (W) is2 TBM

TBM
( f\374r 3 Reflexionen des Umgebungslichts) showde
( for three reflections of ambient light) showen
( para tres reflexiones de luz ambiental) showes
( pour trois r\351flexions de lumi\350re ambiante) showfr
( per tre riflessioni della luce ambiente) showit
( for tre refections omgivelselys) showjp

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

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

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

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

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

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

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

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

/Da*0i 9 array def
/Da*1i 9 array def
/Da*2i 9 array def
/Ytr3i 9 array def

/Yn 100 def

/L0arn0   4.000 def %CIELAB min
/L0arw0  96.000 def
/L* L0arn0 def DECODL*_Y /Y0arn0 Y def
/L* L0arw0 def DECODL*_Y /Y0arw0 Y def

/L0arn1 96.0 def
/L0arw1 96.0 def
/L* L0arn1 def DECODL*_Y /Y0arn1 Y def
/L* L0arw1 def DECODL*_Y /Y0arw1 Y def

/L0arn2 30.0 def
/L0arw2 96.0 def
/L* L0arn2 def DECODL*_Y /Y0arn2 Y def
/L* L0arw2 def DECODL*_Y /Y0arw2 Y def

/L0arn3 70.0 def
/L0arw3 96.0 def
/L* L0arn3 def DECODL*_Y /Y0arn3 Y def
/L* L0arw3 def DECODL*_Y /Y0arw3 Y def

/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 70 def

/Da*00 L0arw0 L0arn0 sub 8 div def
0 1 08 {/i exch def
        L0a0i i L0arn0 Da*00 i mul add put
        L0r0i i L0a0i i get L0arn0 sub
                L0arw0      L0arn0 sub div put
        /L* L0a0i i get def DECODL*_Y
        Y0a0i i Y put
        Y0r0i i Y0a0i i get Y0arn0 sub
                Y0arw0      Y0arn0 sub div  put
       } for

0 1 08 {/i exch def
        Yta0i i Y0a0i i get Y0a0i 0 get add
                Y0a0i 8 get Y0a0i 0 get add div Y0a0i 8 get mul  put
        /Y Yta0i i get def DECODY_L* Lta0i i L* put
        } for

0 1 08 {/i exch def
        Ytr0i i Yta0i i get Yta0i 0 get sub
                Yta0i 8 get Yta0i 0 get sub div  put
        Ltr0i i Lta0i i get Lta0i 0 get sub
                Lta0i 8 get Lta0i 0 get sub div put
        } for

%***********************************************
/Da*01 L0arw1 L0arn1 sub 8 div def
0 1 08 {/i exch def
        L0a1i i L0arn0 Da*00 i mul add put
        L0r1i i L0a0i i get L0arn0 sub
                L0arw0      L0arn0 sub div put
        /L* L0a1i i get def DECODL*_Y
        Y0a1i i Y put
        Y0r1i i Y0a1i i get Y0arn0 sub
                Y0arw0      Y0arn0 sub div  put
       } for

TBM
500 500 moveto Y0arn1 cvsshow2
500 200 moveto Y0a0i 0 get cvsshow2 (, ) show
               Y0a0i 8 get cvsshow2

0 1 08 {/i exch def
        Yta1i i Y0a0i i get Y0arn1 add
                Y0a0i 8 get Y0arn1 add div Y0a0i 8 get mul put
        /Y Yta1i i get def DECODY_L* Lta1i i L* put
        } for

0 1 08 {/i exch def
        Ytr1i i Yta1i i get Yta1i 0 get sub
                Yta1i 8 get Yta1i 0 get sub div  put
        Ltr1i i Lta1i i get Lta1i 0 get sub
                Lta1i 8 get Lta1i 0 get sub div put
        } for

/Da*02 L0arw2 L0arn2 sub 8 div def
0 1 08 {/i exch def
        L0a2i i L0arn2 Da*02 i mul add put
        L0r2i i L0a2i i get L0arn2 sub L0arw2 L0arn2 sub div put
        Y0a2i i L0a2i i get 16 add 116 div DECODeXYZ* 100.00 mul put
        Y0r2i i Y0a2i i get Y0arn2 sub
                Y0arw2      Y0arn2 sub div put
       } for

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

0 1 08 {/i exch def
        Yta2i i Y0a2i i get Y0a2i 0 get add Yfak mul put
        Lta2i i Yta2i i get 100 div 0.3333 exp 116 mul 16 sub put
        } for

0 1 08 {/i exch def
        Ytr2i i Yta2i i get Yta2i 0 get sub
                Yta2i 8 get Yta2i 0 get sub div put
        Ltr2i i Lta2i i get Lta2i 0 get sub
                Lta2i 8 get Lta2i 0 get sub div put
        } for

xchartl 0 eq {%xchartl=0
%**************************************************
/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

xpos0 ypos0 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 ypos0 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

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

/xpos 1000 def
xpos 0000 add ypos1 0400 add moveto
TBM (BEG: ) show
TBIM (L*) show
TBMN
TBM (=) show L0a0i 0 get cvsshow1 (, ) show

TBIM (L*) show
TBMU
TBM (=) show L0a0i 4 get cvsshow1 (, ) show

TBIM (L*) show
TBMW
TBM (=) show L0a0i 8 get cvsshow1 (, ) show

TBIM (Y) show
TBMN
TBM (=) show Y0a0i 0 get cvsshow1 (, ) show

TBIM (Y) show
TBMU
TBM (=) show Y0a0i 4 get cvsshow1 (, ) show

TBIM (Y) show
TBMW
TBM (=) show Y0a0i 8 get cvsshow1 (, ) show

TBIM (C) show TBMY 
TBM (=) show
TBIM (Y) show TBMW TBM (:) show 
TBIM (Y) show TBMN TBM (=) show
Y0a0i 8 get
Y0a0i 0 get div cvsshow1 

%xpos 000 add ypos1 000 add moveto
%(Helligkeitsdifferenz der Graustufen ) showde
%(lightness difference of grey steps ) showen
%SM (D) show TBIM (L*) show TBM (0a) show
%TBM
%L0a0i 8 get L0a0i 0 get sub 8 div cvsshow2

/xdd  800 def
/xpo1 xpos def

/TBMe {-00 80 rmoveto TBK (1/2,04) show 0 -80 rmoveto TBM} bind def

/yd1 -100 def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (n0.) 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 (Lta) 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 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ytr) show
xpo1 xdd 10.1 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
xpo1 xdd 11.7 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
(-L*0r) show

TK
0 1 8 {/i exch def %i=0,8
        newpath
        /ypos L0a0i i get yscale mul def
        L0a0i 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

/Ytrei 9 array def
/Ytrei [(0,011) (0,161) (0,266) (0,373) (0,487)
        (0,606) (0,730) (0,860) (1,000)] def
/Ytdii 9 array def
/Ytdii [(-0,010) (-0,036) ( 0,016) ( 0,001) ( 0,013)
        ( 0,019) ( 0,019) ( 0,013) ( 0,000)] def
/yterr (0,003) def

0 1 08 {/i exch def %i=0,08
        /ypos L0a0i i get yscale mul def
        xpo1 xdd 0.5 mul add ypos ypos0 add TVGshift sub moveto
        i 1 add cvishow
        xpo1 xdd 1 mul add ypos ypos0 add TVGshift sub moveto
        L0a0i i get cvsshow1
        xpo1 xdd 2 mul add ypos ypos0 add TVGshift sub moveto
        L0r0i i get cvsshow3
        xpo1 xdd 3 mul add ypos ypos0 add TVGshift sub moveto
        Y0a0i i get cvsshow1
        xpo1 xdd 4 mul add ypos ypos0 add TVGshift sub moveto
        Y0r0i i get cvsshow3

        xpo1 xdd 5 mul add ypos ypos0 add TVGshift sub moveto
        Lta0i i get cvsshow1

        i 1 ge {%i>=1
        xpo1 xdd 6 mul add ypos ypos0 add 350 sub TVGshift sub moveto
        Lta0i i get Lta0i i 1 sub get sub cvsshow1
               } if %i>=1

        xpo1 xdd 7 mul add ypos ypos0 add TVGshift sub moveto
        Ltr0i i get cvsshow3
        xpo1 xdd 8 mul add ypos ypos0 add TVGshift sub moveto
        Yta0i i get cvsshow1
        xpo1 xdd 9 mul add ypos ypos0 add TVGshift sub moveto
        Ytr0i i get cvsshow3

xchartl 1 ge {%xchartl>=1 
        xpo1 xdd 10.1 mul add ypos ypos0 add TVGshift sub moveto
        Ytrei i get show
        xpo1 xdd 11.7 mul add ypos ypos0 add TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,0027) show} if
             } if %xchart>=1

       } for %i=0,08

1900 000 moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
x0n 1900 add 400 moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show TBMta TBK (=) show
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
100 050 rmoveto 1000 0 rlineto stroke
x0n 4900 add 400 150 add moveto
TBIM (Y) show TBMi TBM (+) show
TBIM (Y) show TBMN
x0n 4800 add 400 250 sub moveto
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
TBM (+) show TBIM (Y) show TBMN

iYnor 1 eq {%iYnor=1 U
            x0n 6000 add 400 050 add moveto 500 0 rlineto stroke
            x0n 6000 add 400 100 add moveto (18,4) show
            x0n 6000 add 400 200 sub moveto (54,2) show
           } if %iYnor=1

} if %xchartl=0

%******************************************************
xchartl 1 eq {%xchartl=1
/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 5 array def
/ytext [(    0) (  ) (  50) (  ) (100)] def
/TBGshift 100 def
/TVGshift 060 def

%Pfeilspitze
xpos0 ypos0 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 ypos0 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

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

%****************************************************************
/xpos 1000 def

xpos 0000 add ypos1 0400 add moveto
TBIM (L*) show TBM0N
TBM (=) show L0a0i 0 get cvsshow1 (, ) show

TBIM (L*) show TBM0U
TBM (=) show L0a0i 4 get cvsshow1 (, ) show

TBIM (L*) show TBM0W
TBM (=) show L0a0i 8 get cvsshow1 (, ) show

TBIM (Y) show TBM0N
TBM (=) show Y0a0i 0 get cvsshow1 (, ) show

TBIM (Y) show TBM0U
TBM (=) show Y0a0i 4 get cvsshow1 (, ) show

TBIM (Y) show TBM0W
TBM (=) show Y0a0i 8 get cvsshow1 (, ) show

TBIM (C) show TBM0Y 
TBM (=) show
TBIM (Y) show TBM0W TBM (:) show 
TBIM (Y) show TBM0N TBM (=) show
Y0a0i 8 get
Y0a0i 0 get div cvsshow1 

%****************************************
/xpos 1000 def

xpos 0000 add ypos1 0000 add moveto
TBIM (L*) show TBMtN
TBM (=) show Lta1i 0 get cvsshow1 (, ) show

TBIM (L*) show TBMtU
TBM (=) show Lta1i 4 get cvsshow1 (, ) show

TBIM (L*) show TBMtW
TBM (=) show Lta1i 8 get cvsshow1 (, ) show

TBIM (Y) show TBMtN
TBM (=) show Yta1i 0 get cvsshow1 (, ) show

TBIM (Y) show TBMtU
TBM (=) show Yta1i 4 get cvsshow1 (, ) show

TBIM (Y) show TBMtW
TBM (=) show Yta1i 8 get cvsshow1 (, ) show

TBIM (C) show TBMtY TBM (=) show
TBIM (Y) show TBMtW TBM (:) show 
TBIM (Y) show TBMtN TBM (=) show
Yta1i 8 get
Yta1i 0 get div cvsshow1 

%************************************************
/xdd  800 def
/xpo1 xpos def

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

/yd1 400 def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (     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 5600 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 (Lta) 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 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ytr) show
xpo1 xdd 10.1 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
xpo1 xdd 11.7 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
(-L0r) show


TK
/ypos1  300 850 add def %new cero point at 30
/yscal2 140 def
/yde2 850 def

/ypos0 300 def
%1 0 0 setrgbcolor
%0 ypos0 moveto 1400 0 rlineto stroke
%0 setgray

%0.5 0 0 setrgbcolor
%0 1 9 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul 25 mul 31.25 div add def
%       0 ypos moveto 1200 0  rlineto stroke
%      } for

%0 0 1 setrgbcolor
%0 1 8 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul add def 
%       0 ypos moveto 0800 0  rlineto stroke
%      } for

0 1 08 {/i exch def %i=0,8
        newpath
        /ypos ypos0 i 1 add 25 mul yscale mul 0.5 mul 25 mul 31.25 div add def
        L0a1i i get 96.0 div setgray
        xpos dcirc add ypos dcirc 0 360 arc
        i 08 le {fill} { 0 setgray stroke} ifelse
        0 setgray
       } for %i=0,8

/Ytrei 9 array def
/Ytrei [(0,002) (0,153) (0,265) (0,375) (0,488)
        (0,607) (0,731) (0,876) (1,000)] def
/Ytdii 9 array def
/Ytdii [(-0,001) (-0,028) (-0,016) ( 0,000) ( 0,012)
        ( 0,018) ( 0,019) (-0,001) ( 0,000)] def
/yterr (0,0019) def

0 1 08 {/i exch def %i=0,08
        /ypos ypos0 i 1 add 25 mul yscale mul 0.5 mul 25 mul 31.25 div add def
        xpo1 xdd 0.5 mul add ypos TVGshift sub moveto
        i 1 add cvishow
        xpo1 xdd 1 mul add ypos TVGshift sub moveto
        L0a1i i get cvsshow1
        xpo1 xdd 2 mul add ypos TVGshift sub moveto
        L0r1i i get cvsshow3
        xpo1 xdd 3 mul add ypos TVGshift sub moveto
        Y0a1i i get cvsshow1
        xpo1 xdd 4 mul add ypos TVGshift sub moveto
        Y0r1i i get cvsshow3

        xpo1 xdd 5 mul add ypos TVGshift sub moveto
        Lta1i i get cvsshow1

        i 1 ge {%i>=1
        xpo1 xdd 6 mul add ypos ypos0 add 400 sub TVGshift sub moveto
        Lta1i i get Lta1i i 1 sub get sub cvsshow1
               } if %i>=1

        xpo1 xdd 7 mul add ypos TVGshift sub moveto
        Ltr1i i get cvsshow3
        xpo1 xdd 8 mul add ypos TVGshift sub moveto
        Yta1i i get cvsshow1
        xpo1 xdd 9 mul add ypos TVGshift sub moveto
        Ytr1i i get cvsshow3

        xpo1 xdd 10.1 mul add ypos TVGshift sub moveto
        Ytrei i get show
        xpo1 xdd 11.7 mul add ypos TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,002) show} if
       } for %i=0,08


1900 000 moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
x0n 1900 add 400 moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show TBMta TBK (=) show
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
100 050 rmoveto 1000 0 rlineto stroke
x0n 4900 add 400 150 add moveto
TBIM (Y) show TBMi TBM (+) show
TBIM (Y) show TBMN
x0n 4800 add 400 250 sub moveto
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
TBM (+) show TBIM (Y) show TBMN

iYnor 1 eq {%iYnor=1 U
            x0n 6000 add 400 050 add moveto 500 0 rlineto stroke
            x0n 6000 add 400 100 add moveto (18,4) show
            x0n 6000 add 400 200 sub moveto (54,2) show
           } if %iYnor=1

} if %xchartl=1

xchartl 2 eq {%xchartl=2
%**************************************************
/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 5 array def
/ytext [(  40) (  45) (  50) (  55) (  60)] def
/TBGshift 100 def
/TVGshift 060 def

%Pfeilspitze
xpos0 ypos0 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 ypos0 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

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


/xpos 1000 def
xpos 0000 add ypos1 0400 add moveto
TBIM (L*) show
TBMN
TBM (=) show L0a0i 0 get cvsshow1 (, ) show

TBIM (L*) show
TBMU
TBM (=) show L0a0i 4 get cvsshow1 (, ) show

TBIM (L*) show
TBMW
TBM (=) show L0a0i 8 get cvsshow1 (, ) show

TBIM (Y) show
TBMN
TBM (=) show Y0a0i 0 get cvsshow1 (, ) show

TBIM (Y) show
TBMU
TBM (=) show Y0a0i 4 get cvsshow1 (, ) show

TBIM (Y) show
TBMW
TBM (=) show Y0a0i 8 get cvsshow1 (, ) show

TBIM (C) show TBMY 
TBM (=) show
TBIM (Y) show TBMW TBM (:) show 
TBIM (Y) show TBMN TBM (=) show
Y0a2i 8 get
Y0a2i 0 get div cvsshow1 

%****************************************************************
/xpos 1000 def

xpos 0000 add ypos1 0400 add moveto
TBIM (L*) show TBM0N
TBM (=) show L0a2i 0 get cvsshow1 (, ) show

TBIM (L*) show TBM0U
TBM (=) show L0a2i 4 get cvsshow1 (, ) show

TBIM (L*) show TBM0W
TBM (=) show L0a2i 8 get cvsshow1 (, ) show

TBIM (Y) show TBM0N
TBM (=) show Y0a2i 0 get cvsshow1 (, ) show

TBIM (Y) show TBM0U
TBM (=) show Y0a2i 4 get cvsshow1 (, ) show

TBIM (Y) show TBM0W
TBM (=) show Y0a2i 8 get cvsshow1 (, ) show

TBIM (C) show TBM0Y 
TBM (=) show
TBIM (Y) show TBM0W TBM (:) show 
TBIM (Y) show TBM0N TBM (=) show
Y0a2i 8 get
Y0a2i 0 get div cvsshow1 

/xdd  800 def
/xpo1 xpos def

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

/yd1 900 def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (n0.) show
xpo1 xdd 1 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L0a) show
xpo1 xdd 2 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L0r) 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 5000 neg rlineto stroke newpath
[ ] 0 setdash
xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Lta) show
xpo1 xdd 5.9 mul add ypos1 yd1 sub TVGshift sub moveto
SM (D) show TBM (Lta) show

xpo1 xdd 7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ltr) show
xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Yta) show
xpo1 xdd 9 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ytr) show
xpo1 xdd 10.1 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
xpo1 xdd 11.7 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
(-L0r) show

TK
/ypos1  300 850 add def %new cero point at 30
/yscal2 140 def
/yde2 850 def

/ypos0 300 def
%1 0 0 setrgbcolor
%0 ypos0 moveto 1400 0 rlineto stroke
%0 setgray

%0.5 0 0 setrgbcolor
%0 1 9 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul 25 mul 31.25 div add def
%       0 ypos moveto 1200 0  rlineto stroke
%      } for

%0 0 1 setrgbcolor
%0 1 8 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul add def
%       0 ypos moveto 0800 0  rlineto stroke
%      } for

%0 1 0 setrgbcolor
%0 1 10 {/i exch def
%        /ypos ypos0 i 25 mul yscale mul 0.5 mul 4 mul 5 div add def
%        0 ypos moveto 0800 0  rlineto stroke
%       } for

0 1 08 {/i exch def %i=0,8
        newpath
        /ypos ypos0 i 2 add 25 mul yscale mul 0.5 mul
        0.8 mul 0.75 mul add def
        /ypos ypos 350 add def %special y-shift for two steps
        L0a2i i get 96.0 div setgray
        xpos dcirc add ypos dcirc 0 360 arc
        i 08 le {fill} { 0 setgray stroke} ifelse
        0 setgray
       } for %i=0,8

/Ytrei 9 array def
/Ytrei [(0,000) (0,135) (0,257) (0,376) (0,496)
        (0,617) (0,743) (0,869) (1,000)] def
/Ytdii 9 array def
/Ytdii [( 0,000) (-0,010) (-0,006) (-0,001) ( 0,004)
        ( 0,006) ( 0,007) ( 0,006) ( 0,000)] def
/yterr (0,0003) def

0 1 08 {/i exch def %i=0,08
        /ypos ypos0 i 2 add 25 mul yscale mul 0.5 mul 
        0.8 mul 0.75 mul add def
        /ypos ypos 350 add def %special y-shift for two steps 
        xpo1 xdd 0.5 mul add ypos TVGshift sub moveto
        i 1 add cvishow
        xpo1 xdd 1 mul add ypos TVGshift sub moveto
        L0a2i i get cvsshow1
        xpo1 xdd 2 mul add ypos TVGshift sub moveto
        L0r2i i get cvsshow3
        xpo1 xdd 3 mul add ypos TVGshift sub moveto
        Y0a2i i get cvsshow1
        xpo1 xdd 4 mul add ypos TVGshift sub moveto
        Y0r2i i get cvsshow3

        xpo1 xdd 5 mul add ypos TVGshift sub moveto
        Lta2i i get cvsshow1

        i 1 ge {%i>=1
        xpo1 xdd 6 mul add ypos ypos0 add 600 sub TVGshift sub moveto
        Lta2i i get Lta2i i 1 sub get sub cvsshow1
               } if %i>=1

        xpo1 xdd 7 mul add ypos TVGshift sub moveto
        Ltr2i i get cvsshow3
        xpo1 xdd 8 mul add ypos TVGshift sub moveto
        Yta2i i get cvsshow1
        xpo1 xdd 9 mul add ypos TVGshift sub moveto
        Ytr2i i get cvsshow3

        xpo1 xdd 10.1 mul add ypos TVGshift sub moveto
        Ytrei i get show
        xpo1 xdd 11.7 mul add ypos TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,0003) show} if
       } for %i=0,08

1900 000 moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
x0n 1900 add 400 moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show TBMta TBK (=) show
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
100 050 rmoveto 1000 0 rlineto stroke
x0n 4900 add 400 150 add moveto
TBIM (Y) show TBMi TBM (+) show
TBIM (Y) show TBMN
x0n 4800 add 400 250 sub moveto
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
TBM (+) show TBIM (Y) show TBMN

iYnor 1 eq {%iYnor=1 U
            x0n 6000 add 400 050 add moveto 500 0 rlineto stroke
            x0n 6000 add 400 100 add moveto (18,4) show
            x0n 6000 add 400 200 sub moveto (54,2) show
           } if %iYnor=1

} if %xchartl=2

xchartl 3 eq {%xchartl=3
%**************************************************
/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 5 array def
/ytext [(  40) (  45) (  50) (  55) (  60)] def
/TBGshift 100 def
/TVGshift 060 def

%Pfeilspitze
xpos0 ypos0 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 ypos0 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub ypos0 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

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


/xpos 1000 def
xpos 0000 add ypos1 0400 add moveto
TBIM (L*) show
TBMN
TBM (=) show L0a0i 0 get cvsshow1 (, ) show

TBIM (L*) show
TBMU
TBM (=) show L0a0i 4 get cvsshow1 (, ) show

TBIM (L*) show
TBMW
TBM (=) show L0a0i 8 get cvsshow1 (, ) show

TBIM (Y) show
TBMN
TBM (=) show Y0a0i 0 get cvsshow1 (, ) show

TBIM (Y) show
TBMU
TBM (=) show Y0a0i 4 get cvsshow1 (, ) show

TBIM (Y) show
TBMW
TBM (=) show Y0a0i 8 get cvsshow1 (, ) show

TBIM (C) show TBMY 
TBM (=) show
TBIM (Y) show TBMW TBM (:) show 
TBIM (Y) show TBMN TBM (=) show
Y0a3i 8 get
Y0a3i 0 get div cvsshow1 

%****************************************************************
/xpos 1000 def

xpos 0000 add ypos1 0400 add moveto
TBIM (L*) show TBM0N
TBM (=) show L0a3i 0 get cvsshow1 (, ) show

TBIM (L*) show TBM0U
TBM (=) show L0a3i 4 get cvsshow1 (, ) show

TBIM (L*) show TBM0W
TBM (=) show L0a3i 8 get cvsshow1 (, ) show

TBIM (Y) show TBM0N
TBM (=) show Y0a3i 0 get cvsshow1 (, ) show

TBIM (Y) show TBM0U
TBM (=) show Y0a3i 4 get cvsshow1 (, ) show

TBIM (Y) show TBM0W
TBM (=) show Y0a3i 8 get cvsshow1 (, ) show

TBIM (C) show TBM0Y 
TBM (=) show
TBIM (Y) show TBM0W TBM (:) show 
TBIM (Y) show TBM0N TBM (=) show
Y0a3i 8 get
Y0a3i 0 get div cvsshow1 

/xdd  800 def
/xpo1 xpos def

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

/yd1 900 def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (n0.) show
xpo1 xdd 1 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L0a) show
xpo1 xdd 2 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L0r) 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 5000 neg rlineto stroke newpath
[ ] 0 setdash
xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Lta) show
xpo1 xdd 5.9 mul add ypos1 yd1 sub TVGshift sub moveto
SM (D) show TBM (Lta) show

xpo1 xdd 7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ltr) show
xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Yta) show
xpo1 xdd 9 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Ytr) show
xpo1 xdd 10.1 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
xpo1 xdd 11.7 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Ytr)) show TBMe
(-L0r) show

TK
/ypos1  300 850 add def %new cero point at 30
/yscal2 140 def
/yde2 850 def

/ypos0 300 def
%1 0 0 setrgbcolor
%0 ypos0 moveto 1400 0 rlineto stroke
%0 setgray

%0.5 0 0 setrgbcolor
%0 1 9 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul 25 mul 31.25 div add def
%       0 ypos moveto 1200 0  rlineto stroke
%      } for

%0 0 1 setrgbcolor
%0 1 8 {/i exch def
%       /ypos ypos0 i 25 mul yscale mul 0.5 mul add def
%       0 ypos moveto 0800 0  rlineto stroke
%      } for

%0 1 0 setrgbcolor
%0 1 10 {/i exch def
%        /ypos ypos0 i 25 mul yscale mul 0.5 mul 4 mul 5 div add def
%        0 ypos moveto 0800 0  rlineto stroke
%       } for

0 1 08 {/i exch def %i=0,8
        newpath
        /ypos ypos0 i 2 add 25 mul yscale mul 0.5 mul
        0.8 mul 0.75 mul add def
        /ypos ypos 350 add def %special y-shift for two steps
        L0a3i i get 96.0 div setgray
        xpos dcirc add ypos dcirc 0 360 arc
        i 08 le {fill} { 0 setgray stroke} ifelse
        0 setgray
       } for %i=0,8

/Ytrei 9 array def
/Ytrei [(0,000) (0,135) (0,257) (0,376) (0,496)
        (0,617) (0,743) (0,869) (1,000)] def
/Ytdii 9 array def
/Ytdii [( 0,000) (-0,010) (-0,006) (-0,001) ( 0,004)
        ( 0,006) ( 0,007) ( 0,006) ( 0,000)] def
/yterr (0,0003) def

0 1 08 {/i exch def %i=0,08
        /ypos ypos0 i 2 add 25 mul yscale mul 0.5 mul 
        0.8 mul 0.75 mul add def
        /ypos ypos 350 add def %special y-shift for two steps 
        xpo1 xdd 0.5 mul add ypos TVGshift sub moveto
        i 1 add cvishow
        xpo1 xdd 1 mul add ypos TVGshift sub moveto
        L0a3i i get cvsshow1
        xpo1 xdd 2 mul add ypos TVGshift sub moveto
        L0r3i i get cvsshow3
        xpo1 xdd 3 mul add ypos TVGshift sub moveto
        Y0a3i i get cvsshow1
        xpo1 xdd 4 mul add ypos TVGshift sub moveto
        Y0r3i i get cvsshow3

        xpo1 xdd 5 mul add ypos TVGshift sub moveto
        Lta3i i get cvsshow1

        i 1 ge {%i>=1
        xpo1 xdd 6 mul add ypos ypos0 add 600 sub TVGshift sub moveto
        Lta3i i get Lta3i i 1 sub get sub cvsshow1
               } if %i>=1

        xpo1 xdd 7 mul add ypos TVGshift sub moveto
        Ltr3i i get cvsshow3
        xpo1 xdd 8 mul add ypos TVGshift sub moveto
        Yta3i i get cvsshow1
        xpo1 xdd 9 mul add ypos TVGshift sub moveto
        Ytr3i i get cvsshow3

        xpo1 xdd 10.1 mul add ypos TVGshift sub moveto
        Ytrei i get show
        xpo1 xdd 11.7 mul add ypos TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,0003) show} if
       } for %i=0,08

1900 000 moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
x0n 1900 add 400 moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show TBMta TBK (=) show
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
100 050 rmoveto 1000 0 rlineto stroke
x0n 4900 add 400 150 add moveto
TBIM (Y) show TBMi TBM (+) show
TBIM (Y) show TBMN
x0n 4800 add 400 250 sub moveto
TBIM (Y) show iYnor 0 eq {TBMW} {TBMU} ifelse
TBM (+) show TBIM (Y) show TBMN

iYnor 1 eq {%iYnor=1 U
            x0n 6000 add 400 050 add moveto 500 0 rlineto stroke
            x0n 6000 add 400 100 add moveto (18,4) show
            x0n 6000 add 400 200 sub moveto (54,2) show
           } if %iYnor=1

} if %xchartl=3

showpage
grestore

%%Trailer