function maus=T9A2(anz)

% maus=T9A2(anz)
% Erzeugt zufällig Mäuse in der angegebenen Anzahl und schreibt ihre Daten
% (Markennummer, Käfignummer, Geschlecht, Wurfgrößen) in eine Struktur;
% fragt nach der gestorbenen Maus und löscht diese wieder.

%% Mäuse generieren

% Zufallszahlen

num1=randperm(anz); % für Markennummern
num2=randperm(anz); % für Markennummern
kaefig=randperm(anz+round(rand*anz/2)); % für Käfignummern
marknr=zeros(1,anz); % speichert die Markennummern

for i=1:anz
    marke=['77' num2str(num1(i)) num2str(num2(i))];
    marknr(i)=str2num(marke);
    maus(i).marke=['M' marke];  % Markennummer eintragen
    maus(i).kaefig=kaefig(i);   % Käfignummer eintragen
    weib=randperm(2);
    if weib(1)==1
        maus(i).weiblich=true;  % 50% Wahrscheinlichkeit für weiblich
        wurfanz=ceil(rand*5);
        maus(i).wurfgroessen=zeros(1,wurfanz);
        for j=1:wurfanz
            maus(i).wurfgroessen(j)=abs(round(randn*3+6)); % Wurfgrößen eintragen
        end
    else
        maus(i).weiblich=false; % sonst männlich
    end
end

disp(['Es wurden ' num2str(anz) ' Zufallsmäuse generiert.'])

%% Tote Maus löschen

disp('Folgende Markennummern gibt es: ')

for i=1:anz
    disp(num2str(maus(i).marke))
end

tod=input('Welche Maus ist gestorben? Markennummer (ohne M eingeben): ');

todnr=find(marknr==tod);  % Index der toten Maus finden

if isempty(todnr) % prüfe, ob Markennummer existiert
    warning('Diese Markennummer existiert nicht!')
end

maus(todnr)=[];   % tote Maus löschen