function animate(initialSpeed, initialAngle, height)
[xliste, yliste]= trajectory(initialSpeed, initialAngle, height);
dt=0.1; % Setter tidsintervall
xmax = max(xliste);
xmin = min(xliste);
ymax = max(yliste);
ymin = min(yliste);
xlen = length(xliste);
axis([xmin xmax ymin ymax]);
hFig = figure(1);
set(hFig, 'Position', [xmin ymin 1200 800])
for i = [1:length(xliste)] % printer plottet, ett steg lengre for hver iterasjon
hold on; % Vil beholde det eksisterende plottet.
plot(xliste(1:i),yliste(1:i), '-k'); % Hva skjer her?
pause(dt/initialSpeed*2); % Koden kjører for fort, ber den pause med "dt"
end
end |