%!PS-Adobe-3.0 EPSF-3.0 JG691-6, VM151-4, B8910_4, E8241-4, B4_53_2, N=4_53_2
%%BoundingBox: 72 85 226 204
% !for061..68.dat aus (wrpos:farc8910.for fuer 8910(1..8)*.eps) 21.6.95

%START PDFDE011.EPS
/pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE47/)
  /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, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2010010112000)
  /ModDate (D:2010010112000)
/DOCINFO pdfmark16
[ /View [ /FitB ]
/DOCVIEW pdfmark16
%END  PDFDE011

% !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
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-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
 
/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBG show} bind def
/bkshow1 {TBIG show} bind def
/ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def
/eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def
 
/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/bkshow2 {TBIM show} bind def
/ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def
/eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {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
 
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
 
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
 
/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def
 
/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def
 
/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def
 
/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
 
%ANFA OUTLIN00 951204
/pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def
 
/outSK {250 /Symbol FS outxshow} bind def
/outSM {300 /Symbol FS outxshow} bind def
/outSG {350 /Symbol FS outxshow} bind def
 
/outshowf {setcmykcolor show} bind def
 
/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def
 
/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def
 
/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
 
%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 0 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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def
 
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
4 /Times-ISOL1 FS
72 86 moveto
     ( JG691-6) show %,VM151-4, B8910_4, E8241-4, B4_53_2, N=4_53_2) show
 
72 90 translate
 
0.01 MM dup scale
 
            %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F
 
30 setlinewidth
 
 
0.0 0.0 0.0 0.5 setcmykcolor
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill
 
 
050 3725 moveto  TBM tfw        %B8910-04.xps
(Farbsignale: Amplituden\255Modulation) showde                  %08241-4 1
(color signal: amplitude modulation) showen                     %18241-4 1
(Se\361al del color: Amplitud\255Modulaci\363n) showes          %28241-4 1
(color signal: amplitude modulation) showfr                     %38241-4 1
(color signal: amplitude modulation) showit                     %48241-4 1
(color signal: amplitude modulation) showjp                     %58241-4 1
 
/tx [(-2) (-1) (  0) (  1) (  2) (  3) (  4) (  5)] def
/ty [(-3) (-2) (-1) (  0) (  1) (  2) (  3)] def
 
2200 3300 moveto (I) TBIM tfw show TBM tfw
(\255Proze\337:) showde                                         %08241-4 2
(\255process:) showen                                           %18241-4 2
(\255Proceso:) showes                                           %28241-4 2
(\255process:) showfr                                           %38241-4 2
(\255process:) showit                                           %48241-4 2
(\255process:) showjp                                           %58241-4 2
 
3600 3300 moveto (A) TBIM tfw show
(=achromatic) showen
(=achromatisch) showde
 
2200 2800 moveto (D) TBIM tfn show TBM tfw
(\255Proze\337:) showde                                         %08241-4 3
(\255process:) showen                                           %18241-4 3
(\255Proceso:) showes                                           %28241-4 3
(\255process:) showfr                                           %38241-4 3
(\255process:) showit                                           %48241-4 3
(\255process:) showjp                                           %58241-4 3
 
3600 2800 moveto (a) TBIM tfw show
 
2200 2300 moveto (I) TBIM tfw show TBM tfw
(\255Proze\337:) showde                                         %08241-4 4
(\255process:) showen                                           %18241-4 4
(\255Proceso:) showes                                           %28241-4 4
(\255process:) showfr                                           %38241-4 4
(\255process:) showit                                           %48241-4 4
(\255process:) showjp                                           %58241-4 4
 
3600 2300 moveto (A + (R - G)) TBIM tfw show
 
3600 1800 moveto (A - (R - G)) TBIM tfw show
 
2200 1300 moveto (D) TBIM tfn show TBM tfw
(\255Proze\337:) showde                                         %08241-4 5
(\255process:) showen                                           %18241-4 5
(\255Proceso:) showes                                           %28241-4 5
(\255process:) showfr                                           %38241-4 5
(\255process:) showit                                           %48241-4 5
(\255process:) showjp                                           %58241-4 5
 
3600 1300 moveto (a + (r - g)) TBIM tfw show
 
3600 0800 moveto (a - (r - g)) TBIM tfw show
 
tfw
550 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 3000 rlineto  stroke
 
TBM
 
%!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
 
0 1 7 {/i exch def
       /ixt { -250 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        ixt -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for
 
%!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten
 
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for
 
3800 -300 moveto (x) TBIM tfw show 20 0 rmoveto
                 (=) TBM  tfw show 20 0 rmoveto
                 (log) TBM tfw show 30 0 rmoveto TBIM (L) show

/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

/DLL 9 array def
/DLU 9 array def
/DLL [0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def
/YFAK 4 array def
/YFAK [ 1.0 1.8 3.2 5.6] def
/DL 36 array def
/DU 36 array def
/XF 36 array def

/F0 36 array def
/F1 36 array def
/F2 36 array def
/F3 36 array def
/F4 36 array def
/F5 36 array def
/FA 36 array def

0 1 8 {/k exch def %k=0,8
       DLU k DLL k get put
       0 1 3 {/j exch def %j=0,3
              /i k 4 mul j add def
              DL i DLL k get YFAK j get mul put
              DU i DL i get put
              } for %j=0,3
      } for %k=0,8

%      do 392 i=0,4
%  392 FA(i,j)=210-30.*j+30./aln10*alog(dl(i))
%      do 393 i=5,12
%  393 FA(i,j)=180-30.*j
%  394 continue

0 1 12 {/i exch def %i=0,12
        XF i DL i get log put
       } for %i=0,12
        
0 1 5 {/j exch def %j=0,5
       0 1 04 {/i exch def %i=0,4
               j 0 eq {F0 i 6 1 j mul sub 4 i sub 4 div sub put} if
               j 1 eq {F1 i 6 1 j mul sub 4 i sub 4 div sub put} if
               j 2 eq {F2 i 6 1 j mul sub 4 i sub 4 div sub put} if
               j 3 eq {F3 i 6 1 j mul sub 4 i sub 4 div sub put} if
               j 4 eq {F4 i 6 1 j mul sub 4 i sub 4 div sub put} if
               j 5 eq {F5 i 6 1 j mul sub 4 i sub 4 div sub put} if
              } for %i=0,4
       5 1 12 {/i exch def %i=5,12
               j 0 eq {F0 i 6 1 j mul sub put} if
               j 1 eq {F1 i 6 1 j mul sub put} if
               j 2 eq {F2 i 6 1 j mul sub put} if
               j 3 eq {F3 i 6 1 j mul sub put} if
               j 4 eq {F4 i 6 1 j mul sub put} if
               j 5 eq {F5 i 6 1 j mul sub put} if                              
              } for %i=5,12              
              
      } for %j=0,5

/IORX 1000 def %reason log(XU)=2
/IORY 0 def
/MULX 500 def
/MULY 500 def

50 setlinewidth
tfn
%0 1500 moveto 3000 0 rlineto stroke

0 1 5 {/j exch def %j=0,5 6 Kurven

0 1 12 {/i exch def %i=0,12
        j 0 eq {FA i F0 i get put} if
        j 1 eq {FA i F1 i get put} if
        j 2 eq {FA i F2 i get put} if
        j 3 eq {FA i F3 i get put} if
        j 4 eq {FA i F4 i get put} if
        j 5 eq {FA i F5 i get put} if
       } for %i=0,12

50 setlinewidth
/xst {IORX XF 0 get MULX mul add} bind def
/yst {IORY FA 0 get MULY mul add} bind def

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

k 1 le {%k=0,1
       newpath
       xst yst moveto
       1 3 10 {/i exch def  %i=0,3,9
               /x20 {IORX XF i       get MULX mul add} bind def
               /y20 {IORY FA i       get MULY mul add} bind def
               /x21 {IORX XF i 1 add get MULX mul add} bind def
               /y21 {IORY FA i 1 add get MULY mul add} bind def
               /x22 {IORX XF i 2 add get MULX mul add} bind def
               /y22 {IORY FA i 2 add get MULY mul add} bind def
               x20 y20 x21 y21 x22 y22 curveto
              } for %i=0,3,10
       j 0 eq {%W-N
               k 0 eq {1 1 1 setrgbcolor [   ] 0 setdash} if
               k 1 eq {0 0 0 setrgbcolor [100 300] 0 setdash} if
              } if %W-N
       j 1 eq {%N-W
               k 0 eq {0 0 0 setrgbcolor [   ] 0 setdash} if
               k 1 eq {1 1 1 setrgbcolor [100 300] 0 setdash} if
              } if %N-W
       j 2 eq {%W-N
               k 0 eq {1 1 1 setrgbcolor [   ] 0 setdash} if
               k 1 eq {0 0 0 setrgbcolor [100 300] 0 setdash} if
              } if %W-N
       j 3 eq {%W-N
               k 0 eq {1 1 1 setrgbcolor [   ] 0 setdash} if
               k 1 eq {0 0 0 setrgbcolor [100 300] 0 setdash} if
              } if %W-N
       j 4 eq {%N-W
               k 0 eq {0 0 0 setrgbcolor [   ] 0 setdash} if
               k 1 eq {1 1 1 setrgbcolor [100 300] 0 setdash} if
              } if %N-W
       j 5 eq {%N-W
               k 0 eq {0 0 0 setrgbcolor [   ] 0 setdash} if
               k 1 eq {1 1 1 setrgbcolor [100 300] 0 setdash} if
              } if %N-W
       stroke
} if %k=0,1       

[   ] 0 setdash
k 2 eq {%k=2
        0 3 12 {/i exch def  %i=0,3,12
                /x20 {IORX XF i get 0.050 sub MULX mul add} bind def
                /y20 {IORY FA i get 0.050 add MULY mul add} bind def
                /x21 {IORX XF i get 0.050 add MULX mul add} bind def
                /y21 {IORY FA i get 0.050 add MULY mul add} bind def
                /x22 {IORX XF i get 0.000 add MULX mul add} bind def
                /y22 {IORY FA i get 0.125 add MULY mul add} bind def
                x20 y20 moveto x21 y21 lineto x22 y22 lineto
                1 0 0 setrgbcolor
                closepath stroke
               } for %i=0,3,12
        } if %k=2
k 3 eq {%k=3
        0 3 12 {/i exch def  %i=0,3,12
                /x20 {IORX XF i get 0.050 sub MULX mul add} bind def
                /y20 {IORY FA i get 0.050 sub MULY mul add} bind def
                /x21 {IORX XF i get 0.050 add MULX mul add} bind def
                /y21 {IORY FA i get 0.050 sub MULY mul add} bind def
                /x22 {IORX XF i get 0.000 add MULX mul add} bind def
                /y22 {IORY FA i get 0.125 sub MULY mul add} bind def
                x20 y20 moveto x21 y21 lineto x22 y22 lineto
                0 1 0 setrgbcolor
                closepath stroke
               } for %i=0,3,12
        } if %k=3

} for %k=0,3

} for %j=0,5

showpage
grestore
} for %output with langind end
%%Trailer