%Hausaufgabe H1
%Aufgabe

plot(populationen','*')
hold on
pause
x=1:100;

%Finde Funktionen, die die einzelnen Punktwolken am besten annähern
%Vermutung: Ein Polynom 2 Grades wird die Wolken gut beschreiben
m=[]
n=[]

%Erstelle Matrix mit den Koeffizienten der Näherungsfunktionen für alle
%Zeilen

for i=1:20
    p=polyfit(x,populationen(i,:),2); %Näherungsfunktion 1. Zeile
    m=[m;p]
end 

%Koeffizienten der Gesamtnäherung
g= mean(m)

%Gesamtnäherung plotten
y=g(1)*x.^2+g(2)*x+g(3);
plot(x,y,'r')
