function tabelle=voegel

%erstellen einer tabelle mit ringnummern 1-60:
tabelle=ones(60,4);
z=1;

for z=1:60
    tabelle(z,1)=z;
end

n=1;
art=0;
kohlm_m=0;
kohlm_w=0;
amsel_m=0;
amsel_w=0;
rotk_m=0;
rotk_w=0;

while n<=60                     %bis tabelle fertig ausgefüllt:

%einfangen von vögeln:
[a,weibchen,gewicht]=vogelfang;

%arten zahlen zuweisen


if strcmp(a,'Kohlmeise')
    art=1;
elseif strcmp(a,'Amsel')
    art=2;
elseif strcmp(a,'Rotkehlchen')
    art=3;
else
    art=7;
end

%arten und geschlecht (kohlm_m=1;w=2...):
art_geschl=0;

if weibchen
    art_geschl=art+3;
else
    art_geschl=art;
end

if (art_geschl==1)&(kohlm_m<10)
        kohlm_m=kohlm_m+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
elseif (art_geschl==2)&(amsel_m<10)
        amsel_m=amsel_m+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
elseif (art_geschl==3)&(rotk_m<10)
        rotk_m=rotk_m+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
elseif (art_geschl==4)&(kohlm_w<10)
        kohlm_w=kohlm_w+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
elseif (art_geschl==5)&(amsel_w<10)
        amsel_w=amsel_w+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
elseif (art_geschl==6)&(rotk_w<10)
        rotk_w=rotk_w+1
        tabelle(n,2)=art;
        tabelle(n,3)=weibchen;
        tabelle(n,4)=gewicht;
        n=n+1;
end

 
end