function animate(initialSpeed, initialAngle, height)
[xliste, yliste]= trajectory(initialSpeed, initialAngle, height);
dt=0.1;
% Lite spennende
% Look away
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])
% Spennende
for i = [1:length(xliste)] % printer plottet, ett steg lengre for hver
% "frame" eller steg/dt.
hold on; % Vil beholde det eksisterende plottet.
plot(xliste(1:i),yliste(1:i), '-k'); % Hva skjer her?
pause(dt); % Koden kjører for fort, ber den pause med "dt"
end |