function  VogelTabelle=vogel_untersuchung

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Immanuel 4-Oct-2006-15:04 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Schritt1: Definition benötigter Zähler/Ausgabe
% 
% Ringnummer=1
% Z_KM_m=0 (*KohlmeisenZähler*)
% Z_KM_w=0
%
% Z_A_m=0  (*AmselZähler*)
% Z_A_w=0
%
% Z_RK_m=0 (*RotkehlchenZähler*)
% Z_RK_w=0
%
% VogelTabelle=[] 

clear

RNr=1;
Z_KM_m=0; 
Z_KM_w=0;

Z_A_m=0;  
Z_A_w=0;

Z_RK_m=0; 
Z_RK_w=0;

VogelTabelle=[]; 


% Schritt2: Fangen der Vögel per Aufruf der Funktion Vogelfang
%
% if  einer der VogelZähler <10 
while Z_KM_m<10 | Z_KM_w<10 | Z_A_m<10 | Z_A_w<10 | Z_RK_m<10 | Z_RK_w <10 %START while

%     2.1 Aufruf der Fkt. Vogelfang (*drei Ausgabewerte: ART, GESCHLECHT,
%     GEWICHT*)
   [Art,Weibchen,Gewicht]=vogelfang; 

%     2.2 Prüfen, ob der gefangene Vogel Kohlmeise,Amsel,oder Rotkehlchen
   if strcmp(Art,'Kohlmeise') | strcmp(Art,'Amsel') | strcmp(Art,'Rotkehlchen') %START IF2
       
%     2.3 Wenn ja: Art in Zahl umwandeln (*Kohlmeise=1, Amsel=2, Rotkehlchen=3*)
      if strcmp(Art,'Kohlmeise') 
          Art=1; %START IF3
      elseif strcmp(Art,'Amsel') 
          Art=2;
      else Art=3;
      end %ENDE IF3
      
%     2.4 Vektor erstellen Zeile=[Art Geschlecht Gewicht]
      Zeile=[Art Weibchen Gewicht];
      
%     2.5 wenn entsprechender VogelZähler nicht 9
%         dann: 2.5.1 Ringnummer hinzufügen
%               2.5.2 VogelZähler hochsetzen
%               2.5.3 Ringnummer hochsetzen
%               2.5.4 Zeile an Matrix VogelTabelle anhängen
      
      if Art==1 & Weibchen==0 & Z_KM_m<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_KM_m=Z_KM_m+1;
         RNr=RNr+1;
         VogelTabelle=[VogelTabelle; Zeile];
      elseif  Art==1 & Weibchen==1 & Z_KM_w<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_KM_w=Z_KM_w+1;
         RNr=RNr+1;
         VogelTabelle=[VogelTabelle; Zeile];
         
      elseif  Art==2 & Weibchen==1 & Z_A_w<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_A_w=Z_A_w+1;
         RNr=RNr+1;
         VogelTabelle=[VogelTabelle; Zeile];
      elseif  Art==2 & Weibchen==0 & Z_A_m<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_A_m=Z_A_m+1;
         RNr=RNr+1;  
         VogelTabelle=[VogelTabelle; Zeile];
         
      elseif  Art==3 & Weibchen==1 & Z_RK_w<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_RK_w=Z_RK_w+1;
         RNr=RNr+1; 
         VogelTabelle=[VogelTabelle; Zeile];
      elseif  Art==3 & Weibchen==0 & Z_RK_m<10
         Zeile=[Art Weibchen Gewicht RNr];
         Z_RK_m=Z_RK_m+1;
         RNr=RNr+1;
         VogelTabelle=[VogelTabelle; Zeile];
      end   
   
    end %ENDE IF2       
          
end %ENDE while

% Ein- und Ausgaben: - keine Eingabe-parameter
%                    - Ausgabe Matrix "VogelTabelle" [60x4] 

