%zeitmessung

function zeitmessung(fun,max)
zeit = []; %vektor mit den einzelnen zeiten

cla reset %besser wäre alle plotfenster schliessen

for i = 2:1:max %mindestens 2 stützstellen
[A,q,x] = heat_sparse(fun,i);
t = cputime;
y = A\q;
zeit = [zeit, (cputime -t)];

%plot(x,y) %kontinuirliches ploten wie???

end;

plot(x,y)
title(fun);
xlabel('Quelle');
ylabel('Temperatur');

figure %neues plotfenster
plot(zeit)
title('Benötigte Zeit zur Berechnung (Sparse_Modus)');
xlabel('Anzahl Stützstellen');
ylabel('Zeit in Sekunden');