% T4H6 (Vogeltabelle)
% Erstellen einer Matrix mit folgenden Spalten
% 1. Spalte: Ringnummer
% 2. Spalte: Kohlmeise=1, Amsel=2, Rotkehlchen=3
% 3. Spalte: Weibchen=1, Männchen=0;
% 4. Spalte: Gewicht

tabelle = zeros(60,4);                   % leere Tabelle erstellen
anzartge = zeros(1,6);                   % Vektor zum Vögel zählen
% anzartge(1): Kohlmeise, Männchen
% anzartge(2): Kohlmeise, Weibchen
% anzartge(3): Amsel, Männchen
% anzartge(4): Amsel, Weibchen
% anzartge(5): Rotkehlchen, Männchen
% anzartge(6): Rotkehlchen, Weibchen
num=1;                                   % Zähler für Gesamtzahl

while num<=60
    [art,weibchen,gewicht]=vogelfang;    % Aufruf von vogelfang
    switch art
        case 'Kohlmeise'                 % Abfrage der Art und zuweisen 
            art=1;                       % der entsprechenden Kennzahl
        case 'Amsel'
            art=2;
        case 'Rotkehlchen'
            art=3;
        otherwise
            art=-1;                     % falls keine "brauchbare Art 
    end                                 % gezogen wurde, wird -1 zugewiesen, 
                                        % damit die nächste if-Anweisung nicht
                                        % ausgeführt wird
    if art>0                            
        pos = (art*2-1 + weibchen);     % Position in anzartge bestimmen  
        if anzartge(pos)<10             % falls noch keine zehn Vögel dieser 
                                        % Art und dieses Geschlechts gezogen 
                                        % wurden, wird Anweisung ausgeführt
            tabelle(num,:) = [num, art, weibchen, gewicht]; % Zuweisung zur Tabelle
            anzartge(pos) = anzartge(pos)+1;                % Zaehler für diese Art 
                                                            % und dieses Geschlecht hochsetzen
            num = num + 1;              % Gesamtzähler hochsetzen
        end
    end
end

disp(tabelle);

