%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/eeo7/eeo71-7a
%%BoundingBox: 70 85 245 206

%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: farbe.li.tu-berlin.de/eeo7/eeo7.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2023070112200)
 /ModDate (D:20230701112200)
/DOCINFO pdfmark17
[ /View [ /Fit ]
/DOCVIEW pdfmark17
%END  PDFDE011
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TV {120 /Times-ISOL1 FS} bind def
/TS {160 /Times-ISOL1 FS} bind def
/TL {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

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIS {160 /TimesI-ISOL1 FS} bind def
/TIL {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

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBS {160 /TimesB-ISOL1 FS} bind def
/TBL {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

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIS {160 /TimesBI-ISOL1 FS} bind def
/TBIL {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

/SV {120 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def
/SL {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CV {120 /Courier FS} bind def
/CS {160 /Courier FS} bind def
/CL {200 /Courier FS} bind def
/CK {250 /Courier FS} bind def
/CM {300 /Courier FS} bind def
/CG {350 /Courier FS} bind def

/CIV {120 /Courier-Oblique FS} bind def
/CIS {160 /Courier-Oblique FS} bind def
/CIL {200 /Courier-Oblique FS} bind def
/CIK {250 /Courier-Oblique FS} bind def
/CIM {300 /Courier-Oblique FS} bind def
/CIG {350 /Courier-Oblique FS} bind def

/CBV {120 /Courier-Bold FS} bind def
/CBS {160 /Courier-Bold FS} bind def
/CBL {200 /Courier-Bold FS} bind def
/CBK {250 /Courier-Bold FS} bind def
/CBM {300 /Courier-Bold FS} bind def
/CBG {350 /Courier-Bold FS} bind def

/CBIV {120 /Courier-BoldOblique FS} bind def
/CBIS {160 /Courier-BoldOblique FS} bind def
/CBIL {200 /Courier-BoldOblique FS} bind def
/CBIK {250 /Courier-BoldOblique FS} bind def
/CBIM {300 /Courier-BoldOblique FS} bind def
/CBIG {350 /Courier-BoldOblique FS} bind def

/nGs {350 /Times-ISOL1 FS  show} bind def
/kGs {350 /TimesI-ISOL1 FS  show} bind def
/bGs {350 /TimesB-ISOL1 FS  show} bind def
/jGs {350 /TimesBI-ISOL1 FS  show} bind def
/sGs {350 /Symbol FS  show} bind def
/iGs {300 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eGs {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ibGb {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/ebGb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ipG {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/nMs {300 /Times-ISOL1 FS  show TM} bind def
/kM2 {300 /TimesI-ISOL1 FS  show TM} bind def
/bM2 {300 /TimesB-ISOL1 FS  show TM} bind def
/jM2 {300 /TimesBI-ISOL1 FS  show TM} bind def
/sMs {300 /Symbol FS  show TM} bind def
/ims {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eMs {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ibMs {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/ebMs {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ipM {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/nKs {250 /Times-ISOL1 FS  show TK} bind def
/kKs {250 /TimesI-ISOL1 FS  show TK} bind def
/bKs {250 /TimesB-ISOL1 FS  show TK} bind def
/jKs {250 /TimesBI-ISOL1 FS  show TK} bind def
/sKs {250 /Symbol FS  show TK} bind def
/iKs {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eKs {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ibKs {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/ebKs {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ipK {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%60% kleiner
/nLs {200 /Times-ISOL1 FS  show TS} bind def
/kLs {200 /TimesI-ISOL1 FS  show TS} bind def
/bLs {200 /TimesB-ISOL1 FS  show TS} bind def
/jLs {200 /TimesBI-ISOL1 FS  show TS} bind def
/sLs {200 /Symbol FS  show TS} bind def
/iLs {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/eLs {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ibLs {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/ebLs {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ipL {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TS} bind def

%XCHA02.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setrgbcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setrgbcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setrgbcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setrgbcolor rem stroke} bind def

/tzr {1 0 0} bind def %Reproduktionsfarben
/tzg {0 1 0} bind def
/tzb {0 0 1} bind def
/tzc {0 1 1} bind def
/tzm {1 0 1} bind def
/tzy {1 1 0} bind def
/tzo {1 0 0} bind def %Reproduktionsfarben
/tzl {0 1 0} bind def
/tzv {0 0 1} bind def

/tzn {0.00} bind def %Graureihe
/tzd {0.25} bind def
/tzz {0.50} bind def
/tzh {0.75} bind def
/tzw {1.00} bind def

/tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfg {0 1 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} bind def
/tfc {0 1 1 setrgbcolor} bind def
/tfm {1 0 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfl {0 1 0 setrgbcolor} bind def
/tfv {0 0 1 setrgbcolor} bind def

/tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfgn {0.0 0.5 0.0 setrgbcolor} bind def
/tfbn {0.0 0.0 0.5 setrgbcolor} bind def
/tfcn {0.0 0.5 0.5 setrgbcolor} bind def
/tfmn {0.5 0.0 0.5 setrgbcolor} bind def
/tfyn {0.5 0.5 0.0 setrgbcolor} bind def
/tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfln {0.0 0.5 0.0 setrgbcolor} bind def
/tfvn {0.0 0.0 0.5 setrgbcolor} bind def

/tfn {0.00 setgray} bind def %Graureihe
/tfd {0.25 setgray} bind def
/tfz {0.50 setgray} bind def
/tfh {0.75 setgray} bind def
/tfw {1.00 setgray} bind def

/cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse
           cvi 6 string cvs show} def

/cvishow {cvi 6 string cvs show ( ) show} def
/cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def
/cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def

/cvishow0 {cvi 6 string cvs show} def
/cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def
/cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def
/cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def

/cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

%now with cvishow0 instead of cvishow
/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow0 (,) show                      %nxa=99
             nxb cvishow0                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow0 (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow0} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow0} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3x {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow0 (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow0} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow0} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow0} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def

%************************************************************
/proc_Fequ {%BEG proc_Fequ

%xline=0970 default in main program 

ixtx 1000 add xshift add
ianta 1 eq {200 add} if
iytxt iyta add 70 add yshift sub moveto
xline ioute 1 eq {150 add} if 0 rlineto stroke

ixtx 1000 add xshift add 
ianta 1 eq {200 add} if
iytxt 100 add yshift sub moveto

itop 0 eq {%itop=0
TBL e_10 show
0 100 rmoveto
SVxr
TBS ieact show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( - ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS ieact show ioute 1 eq {(') show} if 0 -100 rmoveto
          } if %itop=0

itop 1 eq {%itop=1
TBL (      ) show e_10 show
0 100 rmoveto
SVxr
TBS ieact show ioute 1 eq {(') show} if -50 -100 rmoveto
          } if %itop=1

itop 2 eq {%itop=2
TBL (    - ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS ieact show ioute 1 eq {(') show} if 0 -100 rmoveto
          } if %itop=2

ixtx 1000 add xshift add
ianta 1 eq {200 add} if
iytxt 170 sub yshift sub moveto
TBL e_10 show
0 100 rmoveto
SVxr
TBS ieact show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( + ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS ieact show ioute 1 eq {(') show} if 0 -100 rmoveto

} bind def %END proc_Fequ

%***********************************************************
/proc_Fabc {%BEG proc_Fabc
tfx TBIL (F) show 
-30 -80 rmoveto TBS inacbt show 0 80 rmoveto
TBL (\050) show
LSxr
TBL (\051) show
      } bind def %END proc_Fabc

/proc_F'abc {%BEG proc_F'abc
tfx TBIL (F') show
-30 -80 rmoveto TBS inacbt show 0 80 rmoveto
TBL (\050) show
LSxr
TBL (\051) show
      } bind def %END proc_F'abc

%***********************************************************************
/proc_iabcdat {%BEG proc_iabcdat
iabcdat 0 eq {%iabcdat=0 'ENN5'0/1
ilr 0 eq {%ilr=0
%     0     1     2     3     4     5     6     7
/asi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def %default=asi
/ati [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(2,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def %default=ati
         } if %ilr=0

ilr 1 eq {%ilr=1
%     0     1     2     3     4     5     6     7
/asi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def %default
/ati [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def %default
         } if %ilr=1
} if %iabcdat=0 'ENN5'0/1

iabcdat 1 eq {%iabcdat=1 'ENN6'0/1
ilr 0 eq {%ilr=0
%     0     1     2     3     4     5     6     7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def %default=asi
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def %default=ati
         } if %ilr=0

ilr 1 eq {%ilr=1
%     0     1     2     3     4     5     6     7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.41  0.84  1.27 ] def %default
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,41)(0,84)(1,27)] def %default
         } if %ilr=1
} if %iabcdat=1 'ENN6'0/1

iabcdat 2 eq {%iabcdat=2 'ENN7'0/1
ilr 0 eq {%ilr=0
%     0     1     2     3     4     5     6     7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=0

ilr 1 eq {%ilr=1
%     0     1     2     3     4    5    6    7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=1
} if %iabcdat=2 'ENN7'0/1

iabcdat 3 eq {%iabcdat=3 'ENN8'0/1
ilr 0 eq {%ilr=0
%     0     1     2     3     4     5     6     7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=0

ilr 1 eq {%ilr=1
%     0     1     2     3     4    5    6    7
/asi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/csi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/ati [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/cti [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=1
} if %iabcdat=3 'ENN8'0/1

%change of a<->c
iabcdat 4 eq {%iabcdat=4 'ENN9'0/1
ilr 0 eq {%ilr=0
%     0     1     2     3     4     5     6     7
/csi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/asi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/cti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/ati [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=0

ilr 1 eq {%ilr=1
%     0     1     2     3     4    5    6    7
/csi [1.00  1.00  1.00  1.00  1.00  1.00  0.84  0.84 ] def %default
/bsi [1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00 ] def
/asi [1.00  0.66  0.70  0.75  1.33  1.50  1.16  1.27 ] def
/cti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(0,84)(0,84)] def %default
/bti [(1,0)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)(1,00)] def
/ati [(1,0)(0,66)(0,70)(0,75)(1,33)(1,50)(1,16)(1,27)] def
         } if %ilr=1
} if %iabcdat=4 'ENN9'0/1

} bind def %END proc_iabcdat

%*********************************************************************
/proc_C0i_FXi {%BEG proc_C0i_FXi calculations of all functions
%definiton of functions

/xi   51 array def %range -4 bis +4 in steps of
/yi   51 array def %range -1 to +1
/epxi 51 array def
/emxi 51 array def
/esxi 51 array def
/Frui 51 array def
/Fr1i 51 array def
/Fr2i 51 array def
/Fr3i 51 array def
/Fr4i 51 array def

/ed1i 51 array def
/ed2i 51 array def
/ed3i 51 array def
/edxi 51 array def

/Frudi 51 array def
/Frupi 51 array def
/Frumi 51 array def
/Fru1i 51 array def
/Fru2i 51 array def
/Fru3i 51 array def
/Fru4i 51 array def

/FruMi 51 array def
/Fr1Mi 51 array def
/Fr2Mi 51 array def
/Fr3Mi 51 array def
/Fr4Mi 51 array def

/FrupMi 51 array def
/FrumMi 51 array def
/Fru1Mi 51 array def
/Fru2Mi 51 array def
/Fru3Mi 51 array def
/Fru4Mi 51 array def

/Fruri 51 array def
/Fr1ri 51 array def
/Fr2ri 51 array def
/Fr3ri 51 array def
/Fr4ri 51 array def

/epxai 51 array def
/emxai 51 array def
/esxai 51 array def
/Fruai 51 array def
/Fr1ai 51 array def
/Fr2ai 51 array def
/Fr3ai 51 array def
/Fr4ai 51 array def

/ed1ai 51 array def
/ed2ai 51 array def
/ed3ai 51 array def
/edxai 51 array def

/Frudai 51 array def
/Frupai 51 array def
/Frumai 51 array def
/Fru1ai 51 array def
/Fru2ai 51 array def
/Fru3ai 51 array def
/Fru4ai 51 array def

/FruMai 51 array def
/Fr1Mai 51 array def
/Fr2Mai 51 array def
/Fr3Mai 51 array def
/Fr4Mai 51 array def

/FrupMai 51 array def
/FrumMai 51 array def
/Fru1Mai 51 array def
/Fru2Mai 51 array def
/Fru3Mai 51 array def
/Fru4Mai 51 array def

/Frurai 51 array def
/Fr1rai 51 array def
/Fr2rai 51 array def
/Fr3rai 51 array def
/Fr4rai 51 array def

/epxci 51 array def
/emxci 51 array def
/esxci 51 array def
/Fruci 51 array def
/Fr1ci 51 array def
/Fr2ci 51 array def
/Fr3ci 51 array def
/Fr4ci 51 array def

/ed1ci 51 array def
/ed2ci 51 array def
/ed3ci 51 array def
/edxci 51 array def

/Frudci 51 array def
/Frupci 51 array def
/Frumci 51 array def
/Fru1ci 51 array def
/Fru2ci 51 array def
/Fru3ci 51 array def
/Fru4ci 51 array def

/FruMci 51 array def
/Fr1Mci 51 array def
/Fr2Mci 51 array def
/Fr3Mci 51 array def
/Fr4Mci 51 array def

/FrupMci 51 array def
/FrumMci 51 array def
/Fru1Mci 51 array def
/Fru2Mci 51 array def
/Fru3Mci 51 array def
/Fru4Mci 51 array def

/Frurci 51 array def
/Fr1rci 51 array def
/Fr2rci 51 array def
/Fr3rci 51 array def
/Fr4rci 51 array def

/Fai 51 array def

/MULX 500 def
/MULY 500 def
%ioute 0 eq {/e 2.7182818 def}
%           {/e 10.0 def     } ifelse
/e 2.7182818 def

/im 45 def
/xdif 0.4 def %=21*0,2-19*0,2

%in case of normalisation to u:
/i 20 def
xi i -4 i 0.2 mul add put

ioute 0 eq {%ioute=0
epxai i e xi i get as div     exp put
emxai i e xi i get as div neg exp put
           }
           {%ioute=1
epxai i e xi i get lne_10 div as div     exp put
emxai i e xi i get lne_10 div as div neg exp put
           } ifelse
esxai i epxai i get emxai i get add put
/Fr1ua epxai i get
       epxai i get emxai i get add div bs mul def
/Fr2ua emxai i get neg
       epxai i get emxai i get add div bs mul def
/Fruua epxai i get emxai i get sub
       epxai i get emxai i get add div bs mul def

0 1 50 {/i exch def %i=0,50
        xi i -4 i 0.2 mul add put
        ioute 0 eq {%ioute=0
        epxai i e xi i get as div     exp put             %epxai=[e^(x/a) ]/2
        emxai i e xi i get as div neg exp put             %emxai=[e^-(x/a)]/2
                   }
                   {%ioute=1                              %alternate
        epxai i e xi i get lne_10 div as div exp put      %epxai=[e^(x/a') ]/2
        emxai i e xi i get lne_10 div as div neg exp put  %emxai=[e^-(x/a')]/2
                   } ifelse
        esxai i epxai i get emxai i get add put           %esxai=epxai+emxai
        Fr1ai i epxai i get                               %Fr1ai=epxai/esxai*bs
                epxai i get emxai i get add div bs mul put 
        Fr2ai i emxai i get neg                           %Fr2ai=emxai/esxai*bs
                epxai i get emxai i get add div bs mul put
        Fruai i epxai i get emxai i get sub                %Fruai=(epxai-emxai)
                epxai i get emxai i get add div bs mul put %       /esxai*bs
        Frupai i 4 bsdas mul                               %Frupai=4*bs/as
                esxai i get 2 exp div put                  %       /(esxai)^2
        Frumai i 4 bsdas mul neg                           %Frumai=-4*bs/as
                esxai i get 2 exp div put                  %       /(esxai)^2
        Fru1ai i Fruai  i get                              %Fru1ai=Fruai+Fr1ai
                 Fr1ai  i get add   put 
        Fru2ai i Fruai  i get                              %Fru2ai=Fruai+Fr2ai
                 Fr2ai  i get add   put
        Fru3ai i Fruai  i get                              %Fru3ai=Fruai+Frupai
                 Frupai i get add   put
        Fru4ai i Fruai  i get                              %Fru4ai=Fruai+Frumai
                 Frumai i get add   put

        Fr1rai i Fr1ai  i get Fr1ua  div put               %Fr1rai=Fr1ai/Fr1ua
        Fr2rai i Fr2ai  i get Fr2ua  div put               %Fr2rai=Fr1ai/Fr2ua
%sum of both
        Frurai i Fr1rai i get Fr2rai i get add put        %Frurai=Fr1rai+Fr2rai

%for x=Y/Yu it is xi=20
        i 21 eq {/mFr1a Fr1ai 21 get Fr1ai 19 get sub xdif div def
                 /mFr2a Fr2ai 21 get Fr2ai 19 get sub xdif div def
                 /mFrua Fruai 21 get Fruai 19 get sub xdif div def
%without i yes now?
                 /mFrupa Frupai 21 get Frupai 19 get sub xdif div def
                 /mFruma Frumai 21 get Frumai 19 get sub xdif div def
                 /mFru1a Fru1ai 21 get Fru1ai 19 get sub xdif div def
                 /mFru2a Fru2ai 21 get Fru2ai 19 get sub xdif div def
                 /mFru3a Fru3ai 21 get Fru3ai 19 get sub xdif div def
                 /mFru4a Fru4ai 21 get Fru4ai 19 get sub xdif div def
%NEW
                 /mFr1ar Fr1rai 21 get Fr1rai 19 get sub xdif div def
                 /mFr2ar Fr2rai 21 get Fr2rai 19 get sub xdif div def
                 /mFruar Frurai 21 get Frurai 19 get sub xdif div def
                } if
       } for %i=0,50

%********************************************************************
%in case of normalisation to u:
/i 20 def
xi i -4 i 0.2 mul add put

ioute 0 eq {%ioute=0
epxci i e xi i get cs div     exp put
emxci i e xi i get cs div neg exp put
           }
           {%ioute=1
epxci i e xi i get lne_10 div cs div     exp put
emxci i e xi i get lne_10 div cs div neg exp put
           } ifelse
esxci i epxci i get emxci i get add put
/Fr1uc epxci i get
       epxci i get emxci i get add div bs mul def
/Fr2uc emxci i get neg
       epxci i get emxci i get add div bs mul def
/Fruuc epxci i get emxci i get sub
       epxci i get emxci i get add div bs mul def

0 1 50 {/i exch def %i=0,50
        xi i -4 i 0.2 mul add put
        ioute 0 eq {%ioute=0
        epxci i e xi i get cs div     exp put             %epxi=[e^(x/c) ]/2
        emxci i e xi i get cs div neg exp put             %emxi=[e^-(x/c)]/2
                   }
                   {%ioute=1                              %alternate
        epxci i e xi i get lne_10 div cs div exp put      %epxi=[e^(x/c') ]/2
        emxci i e xi i get lne_10 div cs div neg exp put  %emxi=[e^-(x/c')]/2
                   } ifelse
        esxci i epxci i get emxci i get add put            %esx=epxi+emxi
        Fr1ci i epxci i get                                %Fr1i=epxi/esxi*bs
                epxci i get emxci i get add div bs mul put 
        Fr2ci i emxci i get neg                            %Fr2i=emxi/esxi*bs
                epxci i get emxci i get add div bs mul put
        Fruci i epxci i get emxci i get sub                %Frui=(epxi-emxi)
                epxci i get emxci i get add div bs mul put %      /esxi*bs
        Frupci i 4 bsdcs mul                               %Frupi=4*bs/cs
                esxci i get 2 exp div put                  %      /(esxi)^2
        Frumci i 4 bsdcs mul neg                           %Frumi=-4*bs/cs
                esxci i get 2 exp div put                  %      /(esxi)^2
        Fru1ci i Fruci  i get                              %Fru1i=Frui+Fr1i
                 Fr1ci  i get add   put 
        Fru2ci i Fruci  i get                              %Fru2i=Frui+Fr2i
                 Fr2ci  i get add   put
        Fru3ci i Fruci  i get                              %Fru3i=Frui+Frupi
                 Frupci i get add   put
        Fru4ci i Fruci  i get                              %Fru4i=Frui+Frumi
                 Frumci i get add   put

        Fr1rci i Fr1ci i get Fr1uc  div put                %Fr1rci=Fr1ci/Fr1uc
        Fr2rci i Fr2ci i get Fr2uc  div put                %Fr2rci=Fr2ci/Fr2uc
%sum of both
        Frurci i Fr1rci i get Fr2rci i get add put        %Frurci=Fr1rci+Fr2rci

%for x=Y/Yu it is xi=20
        i 21 eq {/mFr1c Fr1ci 21 get Fr1ci 19 get sub xdif div def
                 /mFr2c Fr2ci 21 get Fr2ci 19 get sub xdif div def
                 /mFruc Fruci 21 get Fruci 19 get sub xdif div def
%without i yes now?
                 /mFrupc Frupci 21 get Frupci 19 get sub xdif div def
                 /mFrumc Frumci 21 get Frumci 19 get sub xdif div def
                 /mFru1c Fru1ci 21 get Fru1ci 19 get sub xdif div def
                 /mFru2c Fru2ci 21 get Fru2ci 19 get sub xdif div def
                 /mFru3c Fru3ci 21 get Fru3ci 19 get sub xdif div def
                 /mFru4c Fru4ci 21 get Fru4ci 19 get sub xdif div def
%NEW
                 /mFr1cr Fr1rci 21 get Fr1rci 19 get sub xdif div def
                 /mFr2cr Fr2rci 21 get Fr2rci 19 get sub xdif div def
                 /mFrucr Frurci 21 get Frurci 19 get sub xdif div def
                } if
       } for %i=0,50

} bind def %END proc_C0i_FXi calculations of all functions

%**************************************************
/proc_C1i_FX0i {%BEG proc_C1i_FX0i plot and output left side

xtr0 ytr0 translate

40 setlinewidth
[       ] 0 setdash

0 1 2 {/m exch def %m=0,2

0 1 1 {/k exch def %k=0,1

k 0 eq {%k=0
[       ] 0 setdash tfw
} if %k=0

k 1 eq {%k=1
[100 100] 0 setdash tfn
} if %k=1

m 0 eq {1 0 0 setrgbcolor} if
m 1 eq {0 1 0 setrgbcolor} if
m 2 eq {1 1 0 setrgbcolor} if

/beta 1.00 def

0 1 im {/i exch def %i=0,im

        m 0 eq {Fai i Fr1ai i get 1 add abs log put} if
        m 1 eq {Fai i Fr2ci i get 1 add abs log put} if
        m 2 eq {Fai i Fr1ai i get Fr2ci i get add 1 add abs log put} if

        i  0 eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           ianta 1 eq {Fai i get neg beta mul}
                                      {Fai i get     beta mul} ifelse
                           MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                 MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %k=0,1

} for %m=0,2

%***************************************************************
idepi 1 eq 
ideni 1 eq or {%ide(p/n)i=1
%output derivation

/alpha 1.00 def
newpath
0 1 1 {/k exch def %k=0,1 YR,YG

0 1 1 {/m exch def %k=0,1

k 0 eq {[       ] 0 setdash m 0 eq {tfr}{tfg} ifelse} if
k 1 eq {[100 100] 0 setdash tfn} if
k 2 eq {[       ] 0 setdash m 0 eq {tfr}{tfg} ifelse} if
k 3 eq {[100 100] 0 setdash tfy} if

50 setlinewidth
/im 45 def
0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Frupai}{Frumci} ifelse i get
                 k 2 ge {2 mul} if alpha mul
                 abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Frupai}{Frumci} ifelse i get 
                           k 2 ge {2 mul} if alpha mul
                           abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Frupai}{Frumci} ifelse i get
                 k 2 ge {2 mul} if alpha mul
                 abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %m=0,1

} for %k=0,3

0 setgray
[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2250 moveto
tfw TBS (mFrupa=) show mFrupa cvsshow2 ( ) show
tfw TBS (mFrumc=) show mFrumc cvsshow2 ( ) show

} if %ide(p/n)i=1

%************************************************************
iampi 1 eq 
iamni 1 eq or {%iam(p/n)i=1
%output amplitude modulation positive (p) or negative (n)

/alpha 1.00 def
[100] 0 setdash

0 1 1 {/m exch def %m=0,1

m 0 eq {1 0 0}{0 1 0} ifelse setrgbcolor

0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                           1 add abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %m=0,1

[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2150 moveto
tfw TBS (mFru3a=) show mFru3a cvsshow2 ( ) show
tfw TBS (mFru4c=) show mFru4c cvsshow2 ( ) show

030 0700 moveto
/tfx {tfy} def
/inacbt (abc) def
proc_Fabc
( + ) show
/tfx {tfl} def
/inacbt (cb) def
proc_F'abc

500 2100 moveto
/tfx {tfy} def
/inacbt (abc) def
proc_Fabc
( + ) show
/tfx {tfo} def
/inacbt (ab) def
proc_F'abc

} if %iam(p/n)i=1

%************************************************************
iaspi 1 eq
iasni 1 eq or {%ias(p/n)i=1
%output amplitude shift positive (p) or negative (n)

/alpha 1.00 def
[100] 0 setdash

0 1 1 {/m exch def %m=0,1

m 0 eq {1 0 0}{0 1 0} ifelse setrgbcolor

0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru1ai}{Fru2ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Fru1ai}{Fru2ci} ifelse i get alpha mul
                           1 add abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru1ai}{Fru2ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

0 setgray

} for %m=0,1

[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2150 moveto
tfw TBS (mFru1a=) show mFru1a cvsshow2 ( ) show
tfw TBS (mFru2c=) show mFru2c cvsshow2 ( ) show

030 0300 moveto
/tfx {tfy} def
/inacbt (abc) def
proc_Fabc
( + ) show
/tfx {tfl} def
/inacbt (cb) def
proc_Fabc

030 0800 moveto
/tfx {tfy} def
/inacbt (abc) def
proc_Fabc
( + ) show
/tfx {tfo} def
/inacbt (ab) def
proc_Fabc

} if %ias(p/n)i=1

%************************************************************
%output
ixt2 50 add 1100 moveto
tfw TBS (a=)   show as    cvsshow2x ( ) show
tfw TBS (b=)   show bs    cvsshow2x ( ) show
tfw TBS (b/a=) show bsdas cvsshow2x ( ) show

ixt2 50 add 0900 moveto
tfw TBS (c=)   show cs    cvsshow2x ( ) show
tfw TBS (b=)   show bs    cvsshow2x ( ) show
tfw TBS (b/c=) show bsdcs cvsshow2x ( ) show

ixt2 50 add 0700 moveto
tfr TBS (m) show TBV 0 -30 rmoveto (R+) show 0 30 rmoveto
    TBS (=) show mFr1a cvsshow2x ( ) show
tfg TBS (m) show TBV 0 -30 rmoveto (G-) show 0 30 rmoveto
    TBS (=) show mFr2c cvsshow2x ( ) show
tfy TBS (m) show TBV 0 -30 rmoveto (Y+) show 0 30 rmoveto
    TBS (=) show mFr1a mFr2c add cvsshow2x ( ) show

%ixt2 50 add 0400 moveto
%tfr TBS (m) show TBV 0 -30 rmoveto (R+) show 0 30 rmoveto
%    TBS (=) show mFrM1 cvsshow2x ( ) show
%tfg TBS (m) show TBV 0 -30 rmoveto (G-) show 0 30 rmoveto
%    TBS (=) show mFrM2 cvsshow2x ( ) show
%tfy TBS (m) show TBV 0 -30 rmoveto (Y+) show 0 30 rmoveto
%    TBS (=) show mFrMu cvsshow2x ( ) show

%tfn TBS (m) show TBV 0 -30 rmoveto (Y+) show 0 30 rmoveto
%    TBS (=) show mFru2Ni cvsshow2x ( ) show

%************************************************************
tfg
30 setlinewidth
[100 100] 0 setdash
1600   0 moveto 1600 2250 lineto stroke
2400   0 moveto 2400 2250 lineto stroke
1600   0 moveto 2400    0 lineto stroke
[ ] 0 setdash

tfw
150 /TimesB-ISOL1 FS %150< 160 for TBS
1650 0500 moveto
(range) showen
(Bereich) showde
1650 0325 moveto
(of office) showen
(B\374roleucht\255) showde
1650 0150 moveto
(luminance) showen
(dichte) showde
tfw

TBL
newpath
tfw 1600         1500 70 0 360 arc fill
tfn 1600         1500 50 0 360 arc fill
tfn 2400         1500 70 0 360 arc fill
tfw 2400         1500 50 0 360 arc fill
newpath
tfn 1500 200 sub 1450 moveto (N) show
tfw 2450 100 add 1450 moveto (W) show

xtr0 neg ytr0 neg translate

} bind def %END proc_C1i_FX0i plot and output left side

%*********************************************************************
/proc_C1i_FX1i {%BEG proc_C1i_FX1i %plot and output right side

xtr0 ytr0 translate

/inor 1 def
inor 0 eq {%inor=0

40 setlinewidth
[       ] 0 setdash

0 1 2 {/m exch def %m=0,2

0 1 1 {/k exch def %k=0,1

k 0 eq {%k=0
[       ] 0 setdash tfw
} if %k=0

k 1 eq {%k=1
[100 100] 0 setdash tfn
} if %k=1

m 0 eq {1 0 0 setrgbcolor} if
m 1 eq {0 1 0 setrgbcolor} if
m 2 eq {1 1 0 setrgbcolor} if

/beta 1.00 def

0 1 im {/i exch def %i=0,im

        m 0 eq {Fai i Fr1ai i get 1 add abs log put} if
        m 1 eq {Fai i Fr2ci i get 1 add abs log put} if
        m 2 eq {Fai i Fr1ai i get Fr2ci i get add 1 add abs log put} if

        i  0 eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           ianta 1 eq {Fai i get neg beta mul}
                                      {Fai i get     beta mul} ifelse
                           MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                 MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %k=0,1

} for %m=0,2

} if %inor=0

%***************************************************************
inor 1 eq {%inor=1

40 setlinewidth
[       ] 0 setdash

0 1 2 {/m exch def %m=0,2 %r1+r2

0 1 1 {/k exch def %k=0,1

k 0 eq {%k=0
[       ] 0 setdash tfw
} if %k=0

k 1 eq {%k=1
[100 100] 0 setdash tfn
} if %k=1

m 0 eq {1 0 0 setrgbcolor} if
m 1 eq {0 1 0 setrgbcolor} if
m 2 eq {1 1 0 setrgbcolor} if

/beta 1.00 def

0 1 im {/i exch def %i=0,im
        m 0 eq {Fai i Fr1rai i get abs log put} if
        m 1 eq {Fai i Fr2rci i get abs log put} if
        m 2 eq {Fai i Fr1rai i get Fr2rci i get add 0.5 mul abs log put} if

        i  0 eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                 MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           ianta 1 eq {Fai i get neg beta mul}
                                      {Fai i get     beta mul} ifelse
                           MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 ianta 1 eq {Fai i get neg beta mul}
                            {Fai i get     beta mul} ifelse
                             MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %k=0,1

} for %m=0,2

} if %inor=1

%***************************************************************
idepi 1 eq 
ideni 1 eq or {%ide(p/n)i=1
%output derivation

/alpha 1.00 def
newpath
0 1 1 {/k exch def %k=0,1 YR,YG

0 1 1 {/m exch def %k=0,1

k 0 eq {[       ] 0 setdash m 0 eq {tfr}{tfg} ifelse} if
k 1 eq {[100 100] 0 setdash tfn} if
k 2 eq {[       ] 0 setdash m 0 eq {tfr}{tfg} ifelse} if
k 3 eq {[100 100] 0 setdash tfy} if

50 setlinewidth
/im 45 def
0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Frupai}{Frumci} ifelse i get
                 k 2 ge {2 mul} if alpha mul
                 abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Frupai}{Frumci} ifelse i get 
                           k 2 ge {2 mul} if alpha mul
                           abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Frupai}{Frumci} ifelse i get
                 k 2 ge {2 mul} if alpha mul
                 abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %m=0,1

} for %k=0,3

0 setgray
[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2250 moveto
tfw TBS (mFrupa=) show mFrupa cvsshow2 ( ) show
tfw TBS (mFrumc=) show mFrumc cvsshow2 ( ) show

} if %ide(p/n)i=1

%************************************************************
iampi 1 eq 
iamni 1 eq or {%iam(p/n)i=1
%output amplitude modulation positive (p) or negative (n)

/alpha 1.00 def
[100] 0 setdash

0 1 1 {/m exch def %m=0,1

m 0 eq {1 0 0}{0 1 0} ifelse setrgbcolor

0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                           1 add abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru3ai}{Fru4ci} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

} for %m=0,1

[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2050 moveto
tfw TBS (mFru3a=) show mFru3a cvsshow2 ( ) show
tfw TBS (mFru4c=) show mFru4c cvsshow2 ( ) show

} if %iam(p/n)i=1

%************************************************************
iaspi 1 eq
iasni 1 eq or {%ias(p/n)i=1
%output amplitude shift positive (p) or negative (n)

/alpha 1.00 def
[100] 0 setdash

0 1 1 {/m exch def %m=0,1

m 0 eq {1 0 0}{0 1 0} ifelse setrgbcolor

0 1 im {/i exch def %i=0,im
        i  0 eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru1i}{Fru2i} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add moveto} if
        i  1 ge
        i im 1 sub le and {xi i get MULX mul 2000 add
                           m 0 eq {Fru1i}{Fru2i} ifelse i get alpha mul
                           1 add abs log MULY mul 1500 add lineto} if
        i im eq {xi i get MULX mul 2000 add
                 m 0 eq {Fru1i}{Fru2i} ifelse i get alpha mul
                 1 add abs log MULY mul 1500 add lineto stroke} if
       } for %i=0,im

0 setgray

} for %m=0,1

[ ] 0 setdash
20 setlinewidth

ixt2 50 add 2050 moveto
tfw TBS (mFru1i=) show mFru1i cvsshow2 ( ) show
tfw TBS (mFru2i=) show mFru2i cvsshow2 ( ) show

100 600 moveto
/tfx {tfy} def
/inabct (abc) def
proc_Fabc
( + ) show
/tfx {tfl} def
/inabct (cb) def
proc_Fabc

100 1100 moveto
/tfx {tfy} def
/inabct (abc) def
proc_Fabc
( + ) show
/tfx {tfo} def
/inabct (ab) def
proc_Fabc

} if %ias(p/n)i=1

%************************************************************
%output
ixt2 50 add 1850 moveto
tfw TBS (a=)   show as    cvsshow2 ( ) show
tfw TBS (b=)   show bs    cvsshow2 ( ) show
tfw TBS (b/a=) show bsdas cvsshow2 ( ) show

ixt2 50 add 1650 moveto
tfw TBS (c=)   show cs    cvsshow2 ( ) show
tfw TBS (b=)   show bs    cvsshow2 ( ) show
tfw TBS (b/c=) show bsdcs cvsshow2 ( ) show

inor 0 eq {%inor=0
ixt2 50 add 1300 moveto
tfr TBS (m) show TBV 0 -30 rmoveto (a,R+) show 0 30 rmoveto
    TBS (=) show mFr1a cvsshow2 ( ) show
tfg TBS (m) show TBV 0 -30 rmoveto (c,G-) show 0 30 rmoveto
    TBS (=) show mFr2c cvsshow2 ( ) show
tfy TBS (m) show TBV 0 -30 rmoveto (ac,Y+) show 0 30 rmoveto
    TBS (=) show mFr1a mFr2c add cvsshow2 ( ) show
} if %inor=0

inor 1 eq {%inor=1
ixt2 50 add 1300 moveto
tfr TBS (m) show TBV 0 -30 rmoveto (a,r,R+) show 0 30 rmoveto
    TBS (=) show mFr1ar cvsshow2 ( ) show
tfg TBS (m) show TBV 0 -30 rmoveto (c,r,G-) show 0 30 rmoveto
    TBS (=) show mFr2cr cvsshow2 ( ) show
tfy TBS (m) show TBV 0 -30 rmoveto (ac,r,Y+) show 0 30 rmoveto
    TBS (=) show mFr1ar mFr2cr add cvsshow2 ( ) show
} if %inor=1

%ixt2 50 add 0400 moveto
%tfr TBS (m) show TBV 0 -30 rmoveto (R+) show 0 30 rmoveto
%    TBS (=) show mFrM1 cvsshow2 ( ) show
%tfg TBS (m) show TBV 0 -30 rmoveto (G-) show 0 30 rmoveto
%    TBS (=) show mFrM2 cvsshow2 ( ) show
%tfy TBS (m) show TBV 0 -30 rmoveto (Y+) show 0 30 rmoveto
%    TBS (=) show mFrMu cvsshow2 ( ) show

%tfn TBS (m) show TBV 0 -30 rmoveto (Y+) show 0 30 rmoveto
%    TBS (=) show mFru2Ni cvsshow2 ( ) show

%************************************************************
tfg
30 setlinewidth
[100 100] 0 setdash
1600   0 moveto 1600 2250 lineto stroke
2400   0 moveto 2400 2250 lineto stroke
1600   0 moveto 2400    0 lineto stroke
[ ] 0 setdash

tfw
150 /TimesB-ISOL1 FS %150< 160 for TBS
1650 0500 moveto
(range) showen
(Bereich) showde
1650 0325 moveto
(of office) showen
(B\374roleucht\255) showde
1650 0150 moveto
(luminance) showen
(dichte) showde
tfw

TBL
newpath
tfw 1600         1500 70 0 360 arc fill
tfn 1600         1500 50 0 360 arc fill
tfn 2400         1500 70 0 360 arc fill
tfw 2400         1500 50 0 360 arc fill
newpath
tfn 1500 200 sub 1450 moveto (N) show
tfw 2450 100 add 1450 moveto (W) show

xtr0 neg ytr0 neg translate

} bind def %END proc_C1i_FX1i plot and output right side

%***************************************************
%%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 %

/ioute 0 def
/ifunc 0 def
/idepi 0 def %derivation posotive 0:no 1:yes
/ideni 0 def %derivation negative 0:no 1:yes
/iampi 0 def %amplitude positive 0:no, 1:yes
/iamni 0 def %amplitude negative 0:no, 1:yes
/iaspi 0 def %amplitude shift positive 0:n0, 1:yes
/iasni 0 def %amplitude shift negative 0:n0, 1:yes
/expnr 1 def %exponent 1 of a
/iant1 1 def
/iant2 1 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
%XCHA01.PS END

72 90 translate
0.01 MM dup scale

%STOPA

/xbtex0 0 def
xbtex0 1 eq {%xbtex0=1
0 setgray
20 setlinewidth
0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey
0 0 12250 17100 0.0 0.0 0.0 colrecst %frame black
150  /Times-ISOL1 FS
100 -150 moveto
(eeo71-7r) show
} if %xbtex0=1

/ilr 1 def

 /xchartl 6 def
%0 1 07 {/xchartl   exch def %xchartl=0,07

gsave
%from BEA80-7N.PS
%  xchartl   0 eq {  100 13000 translate} if
%  xchartl   1 eq { 6150 13000 translate} if
%  xchartl   2 eq {  100 08740 translate} if
%  xchartl   3 eq { 6150 08740 translate} if

%  xchartl   4 eq {  100 04480 translate} if
%  xchartl   5 eq { 6150 04480 translate} if
%  xchartl   6 eq {  100 00220 translate} if
%  xchartl   7 eq { 6150 00220 translate} if

150 /Times-ISOL1 FS
0 setgray
50 -150 moveto (eeo71-) show
xchartl 1 add cvishow
(a) show %a
%(_) show xchart 1 add cvishow

/xwidth 6000 def
/ywidth 4000 def
25 setlinewidth
0.5 setgray
0 0 moveto xwidth     0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath fill

0 0 moveto xwidth     0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath clip

0 setgray
0 0 moveto xwidth     0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath stroke

/iabcdat 2 def
proc_iabcdat

/as asi xchartl get def
/bs bsi xchartl get def
/cs csi xchartl get def

/at ati xchartl get def
/bt bti xchartl get def
/ct cti xchartl get def

/bsdas bs as div def
/bsdcs bs cs div def
/fakbs 1 def
/fckbs 1 def

tfn %tfw
/xtr0 380 def
/ytr0 350 def

xtr0 ytr0 translate

%*********************************************************************
tfw
30 setlinewidth
 0 0 moveto  5500 0 rlineto  stroke
 0 0 moveto  0 3250 rlineto  stroke
  5500 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke
 -50 3250 100 sub moveto  50 100 rlineto  50 -100 rlineto stroke 

/tx [(-4) (-3) (-2) (-1) (  0) (  1) (  2) (  3) (  4)] def
/ty [(-3) (-2) (-1) (  0) (  1) (  2) (  3)] def
 
/xz (x) def
%ioute 1 eq     %only expnr=1
%expnr 7 ge and {%xchartl>=7
%                /xz (z) def
%               } if
              
/KLxr {20 0 rmoveto TBIK xz show
       0 -80 rmoveto TBL (r) show 20 80 rmoveto} def
/LSxr {20 0 rmoveto TBIL xz show
       0 -60 rmoveto TBS (r) show 20 60 rmoveto} def
/SVxr {20 0 rmoveto TBIS xz show
       0 -40 rmoveto TBV (r) show 20 40 rmoveto} def

/KLxrx {20 0 rmoveto TBIK (x) show
        0 -80 rmoveto TBL (r) show 20 80 rmoveto} def
/KLxrz {20 0 rmoveto TBIK (z) show
        0 -80 rmoveto TBL (r) show 20 80 rmoveto} def
/LSxrx {20 0 rmoveto TBIL (x) show
        0 -60 rmoveto TBS (r) show 20 60 rmoveto} def
/LSxrz {20 0 rmoveto TBIL (z) show
        0 -60 rmoveto TBS (r) show 20 60 rmoveto} def
/SVxrx {20 0 rmoveto TBIS (x) show
        0 -40 rmoveto TBV (r) show 20 40 rmoveto} def
/SVxrz {20 0 rmoveto TBIS (z) show
        0 -40 rmoveto TBV (r) show 20 40 rmoveto} def

/100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def
/100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def
/100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def
             
%!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
TBL 
0 1 9 {/i exch def
       /ixt { -150 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        i 8 le {ixt -250 moveto tx i get exec show} if
        ixl 75 moveto 0 -150 rlineto stroke 
      } for

/iaxisr 1 def
iaxisr 1 eq 
idepi  1 eq and {%iaxisr=1 & idepi=1
tfg
/ixr 10.45 500 mul def
/iyr 0 def
ixr         iyr  moveto 0 2500 rlineto stroke
ixr 080 sub 1000 moveto 160 0  rlineto stroke
ixr 100 add 1000 50 sub moveto (0,0) show
ixr 080 sub 1500 moveto 160 0 rlineto stroke
ixr 100 add 1500 50 sub moveto (0,5) show
ixr 080 sub 2000 moveto 180 0 rlineto stroke
ixr 100 add 2000 50 sub moveto (1,0) show
ixr 040 sub 2400 moveto 040 100 rlineto 040 -100 rlineto stroke
ixr 350 sub 2500 150 add moveto 
TBIL
(F') show
-50 -80 rmoveto TBS (ab) show 0 80 rmoveto
TBL (\050) show LSxrx TBL (\051) show
tfw
} if %iaxisr=1 % idepi=1

%!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
TBL 
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -350 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for
 
4450 -240 moveto tfw LSxr
                 TBL (=) show 20 0 rmoveto
                 TBL (log[) show 10 0 rmoveto
                 TBIL (L/L) show
                 0 -50 rmoveto TBS (u) show 0 50 rmoveto
                 TBL (]) show

%0900  200 moveto (L) TBIL tfw show
%TBS 20 -80 rmoveto (u0) show 50 80 rmoveto
 
1670 -240 moveto (x) TBIL tfw show
TBS -20 -80 rmoveto (u) show -20 80 rmoveto TBL (=) show

%2900  200 moveto (L) TBIL tfw show
%TBS 20 -80 rmoveto (u1) show 50 80 rmoveto

%/iphys 0 def
%3950 500 moveto
%        TBIS tfw (L) show TBV 20 -80 rmoveto (u) show 00 80 rmoveto
%        TBS 20 0 iphys 1 eq {(=100)}{(=28)} ifelse ashow (cd/m) show
%        TBV 0 80 rmoveto (2) show 0 -80 rmoveto
%tfw 3500 550 moveto 380 0 rlineto stroke
%[100 100] 0 setdash
%tfn 3500 550 moveto 380 0 rlineto stroke
%[       ] 0 setdash tfw

%/i3func 0 def
%i3func 1 eq {%i3func=1
%/ilum 1 def
%ilum 1 eq {%ilum=1
%3950 700 moveto
%        TBIS tfw (L) show TBV 20 -80 rmoveto (u0) show 00 80 rmoveto
%        TBS 20 0 iphys 1 eq {(=1)}{(=0,28)} ifelse ashow (cd/m) show
%        TBV 0 80 rmoveto (2) show 0 -80 rmoveto
%tfn 3500 750 moveto 380 0 rlineto stroke tfw
%
%3950 300 moveto
%        TBIS tfw (L) show TBV 20 -80 rmoveto (u1) show 00 80 rmoveto
%        TBS 20 0 iphys 1 eq {(=10000)}{(=2800)} ifelse ashow (cd/m) show
%        TBV 0 80 rmoveto (2) show 0 -80 rmoveto
%tfw 3500 300 moveto 400 0 rlineto stroke
%
%} if %ilum=1
%} if %i3func=1 


tfl
40 setlinewidth
1600 0 moveto 800 0 rlineto stroke

xtr0 neg ytr0 neg translate

%********************************************************

%BEG C01_C08 ********************************************

%original square
tfn %tfw
050 3750 moveto

/ianta 0 def
tfw
ilr 0 eq {%ilr=0
          TBK (log[) show TBIK (F) show
          -50 -80 rmoveto TBL (abc) show 0 80 rmoveto
          TBK (\050) show
          KLxr
          TBK (\051]) show 20 0 rmoveto (=) show 20 0 rmoveto
          (unbunte Rezeptorerregung) showde
          (achromatic receptor response) showen
          tfy /TBK1 {240 /TimesB-ISOL1 FS} bind def TBK1
          ( & calculated) showen
          ( & berechnet) showde
         } if %ilr=0
ilr 1 eq {%ilr=1
          TBK (log[) show TBIK (F) show
          -50 -80 rmoveto TBL (abc,r) show 0 80 rmoveto
          TBK (\050) show
          KLxr
          TBK (\051]) show 20 0 rmoveto (=) show 20 0 rmoveto
          (relative (r) unbunte Rezeptorerregung) showde
          (relative (r) achromatic receptor response) showen
         } if %ilr=1
tfw
%*********************************************************************
%BEG Common text
xtr0 ytr0 translate

TBIK

/iyt0 2900 def %top text line
/iyt1 2300 def %lower yellow text line
/ixt2 2420 180 add def %right red text line
/iyt2 1100 def %right red text line
/ix0   100 def
/ix1   750 def %for F(x)
/ix1a  850 def %for Fn(x)
/ix2   2200 def %text e
/ix3   1700 def

%ifunc 0 eq {/x_zp (x) def /x_zm (-x) def}
%           {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse
/x_zp (x) def /x_zm (-x) def

ioute 0 eq {/e_10 (e) def  /lne_10 1 def}
           {/e_10 (10) def /lne_10 1 def} ifelse

/expnp 10 array def
%       0     1     2     3     4     5     6     7     8     9 
/expnp [1.0   1.0   0.7   0.5   1.0   0.7   0.5   1.0   0.7   0.5] def
/expnk 10 array def
%       0     1     2     3     4     5     6     7     8     9
/expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def

%****************************************
tfw
30 setlinewidth
/jm1 0 def
/jm2 1 def
/iytj 0 def

xchartl 0 eq {/jm2 0 def} 
             {/jm2 1 def} ifelse

jm1 1 jm2 {/j exch def %j=jm1,jm2
           j 0 eq {/iyta 0 def} if
           j 1 eq {/iyta 0 def} if

0 1 1 {/k exch def %k=0,1

k 0 eq {%k=0
j 0 eq {[       ] 0 setdash tfw} if
j 1 eq {[       ] 0 setdash tfy} if
       } if %k=0

k 1 eq {%k=1
j 0 eq {[100 100] 0 setdash tfn} if
j 1 eq {[100 100] 0 setdash tfn} if
       } if %k=1

%font colour
j 0 eq {tfw} if
j 1 eq {tfy} if

j 0 eq {/ixtx ix0 def
        /iytx iyt0 def} if
j 1 eq {/ixtx ixt2 def
        /iytx iyt2 def} if

/ianta 0 def
/iytxt iytx 050 add j 0 eq {100 add} if def
ixtx 1030 add 100 add
ianta 1 eq {150 add} if

j 0 eq {%j=0
iytxt iyta add 70 add moveto
0970 ioute 1 eq {150 add} if 0 rlineto stroke
} if %j=0

} for %k=0,1

/ianta 0 def
j 0 eq {%j=0
iabcdat 3 le {%iabcdat<=2
ixtx iytxt moveto
TBIL
(F) show
-30 -80 rmoveto TBS (abc) show 0 80 rmoveto
TBL
(\050) show
LSxr
TBL
(\051) show
TBL
ianta 1 eq {30 0 rmoveto (=) show 30 0 rmoveto (-b) show
            30 0 rmoveto SL (b) show TBL}
           {20 0 rmoveto (=) show 20 0 rmoveto (b) show
            SL (b) show TBL} ifelse

ixtx 1000 add
ianta 1 eq {200 add} if
iytxt 100 add moveto
TBL (   ) show e_10 show
0 100 rmoveto
SVxr
TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto

ilr 0 eq {%ilr=0 %second part equation
          TBL ( - ) show
          TBL e_10 show
          0 100 rmoveto TBS (-) show
          SVxr
          TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto
         } if %ilr=0

ixtx 1000 add 100 add 
ianta 1 eq {200 add} if
iytxt 170 sub moveto
TBL e_10 show
0 100 rmoveto
SVxr
TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( + ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto
} if %iabcdat<=2

/iouta 1 def
iouta 1 eq {%iouta

%*********************************************************
iabcdat 3 le {%iabcdat<=3
ilr 0 eq {%ilr=0
          0 180 rmoveto
          TBL
          ianta 1 eq {100 0 rmoveto (=) show 20 0 rmoveto (-b) show
                      10 0 rmoveto SL (b) show 10 0 rmoveto TBL}
                      {100 0 rmoveto (=) show
                      40 0 rmoveto (b) show 30 0 rmoveto SL (b) show 
                      30 0 rmoveto TBL
                     } ifelse
          TBL (tanh[) show LSxr
          TBL (/a]) show
         } if %ilr=0
%*********************************************************
ilr 1 eq {%ilr=1
          0 180 rmoveto
          TBL
          ianta 1 eq {100 0 rmoveto (+) show 20 0 rmoveto (-b) show 
                      10 0 rmoveto SL (b) show 10 0 rmoveto TBL}
                     {100 0 rmoveto (+) show 
                      40 0 rmoveto (b) show 30 0 rmoveto SL (b) show
                      30 0 rmoveto TBL
                     } ifelse

%further with ilr=1
%BEG NEW Fcb
[       ] 0 setdash
/iytxt iytx 050 add j 0 eq {100 add} if def
ixtx 1030 add 1600 add
ianta 1 eq {150 add} if

j 0 eq {%j=0
iytxt iyta add 70 add moveto
0970 ioute 1 eq {150 add} if 0 rlineto stroke
} if %j=0

ixtx 1000 add 1600 add
ianta 1 eq {200 add} if
iytxt 100 add moveto
%TBL (   ) show e_10 show
%0 100 rmoveto
%SVxr
%TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( - ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/c) show ioute 1 eq {(') show} if 0 -100 rmoveto

ixtx 1000 add 1600 add
ianta 1 eq {200 add} if
iytxt 170 sub moveto
TBL e_10 show
0 100 rmoveto
SVxr
TBS (/c) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( + ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/c) show ioute 1 eq {(') show} if 0 -100 rmoveto
%END NEW Fcb
           } if %iabcdat<=3
           } if %iouta


%BEG NEW 230730
/xgshift 2550 def
/yrshift 2150 ilr 0 eq {1600 sub} if iabcdat 4 eq {650 sub 100 add} if def
tfw
[       ] 0 setdash
ixtx 1030 add xgshift add
ianta 1 eq {150 add} if
iytxt iyta add 70 add yrshift sub moveto
0970 ioute 1 eq {150 add} if 0 rlineto stroke

tfr
ixtx xgshift add iytxt yrshift sub moveto
TBIL
(F) show
-30 -80 rmoveto TBS
ilr 0 eq {(ab) show}
         {(a,r) show} ifelse
0 80 rmoveto
TBL
(\050) show
LSxr
TBL
(\051) show
TBL
tfw
ianta 1 eq {%ianta=0,1
            40 0 rmoveto (=) show 20 0 rmoveto
            ilr 0 eq {(-b) show 10 0 rmoveto SL (b) show TBL} if
            ilr 1 eq {20 0 rmoveto (-2) show} if
            40 0 rmoveto}
           {30 0 rmoveto (=) show 30 0 rmoveto
            ilr 0 eq {(b) show 30 0 rmoveto SL (b) show TBL} if
            ilr 1 eq {20 0 rmoveto (2) show} if
            30 0 rmoveto
           } ifelse %ianta=0,1

ixtx 1050 add xgshift add
ianta 1 eq {200 add} if
iytxt 100 add yrshift sub moveto
TBL (    ) show e_10 show
0 100 rmoveto
SVxr
TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto
%TBL ( - ) show
%TBL e_10 show
%0 100 rmoveto TBS (-) show
%SVxr
%TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto

ixtx 1050 add xgshift add
ianta 1 eq {200 add} if
iytxt 170 sub yrshift sub moveto
TBL e_10 show
0 100 rmoveto
SVxr
TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( + ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto
tfw
         } if %ilr=1

%******************************************************
tfw
[       ] 0 setdash
/xgshift 0000 def 
/yrshift 2150 ilr 0 eq {1600 sub} if iabcdat 4 eq {650 sub 100 add} if def
ixtx 1030 add xgshift add
ianta 1 eq {150 add} if
iytxt iyta add 70 add yrshift sub moveto
0970 ioute 1 eq {150 add} if 0 rlineto stroke

tfg
ixtx xgshift add iytxt yrshift sub moveto
TBIL
(F) show
-30 -80 rmoveto TBS 
ilr 0 eq {(cb) show}
         {(c,r) show} ifelse
0 80 rmoveto
TBL
(\050) show
LSxr
TBL
(\051) show
TBL
tfw
ianta 1 eq {%ianta=0,1
            40 0 rmoveto (=) show 20 0 rmoveto
            ilr 0 eq {(-b) show 10 0 rmoveto SL (b) show TBL} if
            ilr 1 eq {20 0 rmoveto (-2) show} if
            40 0 rmoveto}
           {30 0 rmoveto (=) show 30 0 rmoveto
            ilr 0 eq {(b) show 30 0 rmoveto SL (b) show TBL} if 
            ilr 1 eq {20 0 rmoveto (2) show} if
            30 0 rmoveto
           } ifelse %ianta=0,1

ixtx 1050 add xgshift add 
ianta 1 eq {200 add} if
iytxt 100 add yrshift sub moveto
%TBL e_10 show
%0 100 rmoveto
%SVxr
%TBS (/a) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ilr 0 eq {( - ) show}{(     ) show} ifelse
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/c) show ioute 1 eq {(') show} if 0 -100 rmoveto

ixtx 1050 add xgshift add
ianta 1 eq {200 add} if
iytxt 170 sub yrshift sub moveto
TBL e_10 show
0 100 rmoveto
SVxr
TBS (/c) show ioute 1 eq {(') show} if -50 -100 rmoveto
TBL ( + ) show
TBL e_10 show
0 100 rmoveto TBS (-) show
SVxr
TBS (/c) show ioute 1 eq {(') show} if 0 -100 rmoveto
tfw

%***************************************************
ilr 0 eq {%ilr=0

4550 2000 50 add moveto
TBIL tfo (F) show
-30 -80 rmoveto TBS (ab) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show

4550 1400 moveto
tfl TBIL (F) show
-30 -80 rmoveto TBS (cb) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show

2700 1700 100 add moveto
tfy TBIL (F) show
-30 -80 rmoveto TBS (abc) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show tfw ( = ) show

TBIL tfo (F) show
-30 -80 rmoveto TBS (ab) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show tfw ( + ) show

tfl TBIL (F) show
-30 -80 rmoveto TBS (cb) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show

} if %ilr=0

%***************************************************
ilr 1 eq {%ilr=1

4550 2500 moveto
TBIL tfr (F) show
-30 -80 rmoveto TBS (a,r) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show

4550 1550 moveto
tfl TBIL (F) show
-30 -80 rmoveto TBS (c,r) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show

2600 2200 moveto
tfy TBIL (F) show
-30 -80 rmoveto TBS (ac,r) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show tfw ( = \050) show

TBIL tfo (F) show
-30 -80 rmoveto TBS (a,r) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show tfw ( + ) show

tfl TBIL (F) show
-30 -80 rmoveto TBS (c,r) show 0 80 rmoveto
TBL (\050) show LSxr
TBL (\051) show
TBL tfw ( \051 /2) show

} if %ilr=1

%************************************************************

ianta 1 eq {ix3 2250 add iyt0 300 add moveto
            TBS
            (antagonistic model) showen
            (antagonistisches Modell) showde
           } if

/alpha 1.0 def
/beta 1.00 def

iabcdat 3 le {%iabcdat<=3
j 0 eq {%j=0, both sides
        tfw
        TBS
        ix3 2100 add iyt0 130 add 170 add moveto
        (a=1,00, b=1,00 e=2,7182) show
%BEG NEW
        ix3 2100 add iyt0 040 sub 170 add moveto
        (c=1,00, ) show SS (b) show TBS (=1,00, ) show
        (examples) showen
        (Beispiele) showde
%END NEW
        } if %iabcdat<=3

%        ioute 1 eq {%ioute=1
%                    ix3 2250 add iyt0 040 sub moveto
%                    (a'=a) show 30 0 rmoveto (ln(10)=) show
%                    1.0 10 ln mul cvsshow3x
%                    (, ) show SS (b) show TBS (=) show
%                    beta cvsshow2
%                    } if %ioute=1
%        ioute 0 eq {%ioute=0
%                    ix3 2250 add iyt0 040 sub moveto
%                    SS (b) show TBS (=) show
%                    beta cvsshow2
%                   } if %ioute=0
       } if %j=0, both sides

} if %j=0

} for %j=jm1,jm2

idepi 1 eq {%idepi=1

/iyt1t iyt1 330 add def
30 setlinewidth
[ ] 0 setdash
tfg

ix0 iyt1t moveto
TBIL
(F') show
-50 -80 rmoveto TBS (ab) show 0 80 rmoveto
TBL
(\050) show
LSxrx
TBL
(\051) show 20 0 rmoveto
TBL
ianta 1 eq {(=) show 30 0 rmoveto (-4) show 30 0 rmoveto (b) show 
            30 0 rmoveto SL (a) show 30 0 rmoveto 
            TBL (/) show 30 0 rmoveto ([) show}
           {(=) show 30 0 rmoveto (4) show 30 0 rmoveto (b) show
            20 0 rmoveto SL (a) show 20 0 rmoveto
            TBL (/) show 30 0 rmoveto ([) show} ifelse
TBL (a) show 20 0 rmoveto
TBL ({) show
TBL e_10 show
0 80 rmoveto SVxr
TBS (/a) show ioute 1 eq {(') show} if
20 -80 rmoveto
TBL (+) show 20 0 rmoveto
TBL e_10 show
0 80 rmoveto TBS (-) show SVxr
TBS (/a) show ioute 1 eq {(') show} if
20 -80 rmoveto
TBL (}) show
0 80 rmoveto TBS (2) show 0 -80 rmoveto
TBL (]) show

ix3 1500 add iyt1t moveto
TBS
(a=) show ati xchartl get show (, ) show
%xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if
(b=) show bti xchartl get show (, ) show
(c=) show cti xchartl get show

/ialpha 1 def
/alpha 1.00 def
ialpha 1 eq {%ialpha=1
             ix3 2000 add iyt1t 200 sub moveto
             SS (a) show TBS (=) show alpha cvsshow2} if
} if %idepi=1

tfw
/ianta 0 def
[ ] 0 setdash
0 1500 moveto 4500 0 rlineto stroke
tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke
%tfn 200 3800 add 2070 ianta 1 eq {1000 sub} if moveto TBL (asymptote) show
tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke
TBL
%2450 070 add 1720 moveto (W) show
2450 100 add 1450 moveto (W) show
tfn
%1500 070 sub 0800 400 add moveto (N) show
1500 200 sub 1450 moveto (N) show

xtr0 neg ytr0 neg translate

%*************************************************************
proc_C0i_FXi

ilr 0 eq {proc_C1i_FX0i} if
ilr 1 eq {proc_C1i_FX1i} if

%**************************************************************

%special space for 'xm03'PROZ0.COM 2x before/after xchartl

%  xchartl    0 eq {  100 neg 13000 neg translate} if
%  xchartl    1 eq { 6150 neg 13000 neg translate} if
%  xchartl    2 eq {  100 neg 08740 neg translate} if
%  xchartl    3 eq { 6150 neg 08740 neg translate} if

%  xchartl    4 eq {  100 neg 04480 neg translate} if
%  xchartl    5 eq { 6150 neg 04480 neg translate} if
%  xchartl    6 eq {  100 neg 00220 neg translate} if
%  xchartl    7 eq { 6150 neg 00220 neg translate} if
  
grestore

%} for %xchartl=0,07

showpage
grestore

             
%%Trailer