% ANIMACE Ukazkovy priklad na (pseudo )animovani v MLABU.
% ~~~~~~~

function animace 

% Inicializace konstant
% ~~~~~~~~~~~~~~~~~~~~~  
v0 = 100;
alfa = 45 * pi/180;
tk = 13;
g = 10;


% Vypocet drahy sikmeho vrhu
% ~~~~~~~~~~~~~~~~~~~~~~~~~~
t = [0:1e-1:tk];
x = v0*cos(alfa)*t;
y = v0*sin(alfa)*t - (1/2)*g*t.^2;


% Vytvoreni a nastaveni os pro vykreslovani
% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
axes('XLimMode', 'manual','XLim', [min(x) max(x)], ...
     'YLimMode', 'manual','YLim', [min(y) max(y)]);
hold on


% Vlastni animace
% ~~~~~~~~~~~~~~~
h = plot(x(1),y(1),'o');                           % vykresleni bodiku
set(h,'EraseMode','xor');                          % nastaveni prekreslovaciho modu
%set(h,'EraseMode','none');                        % zkuste zamenit ...
for i=1:length(t)
  set(h,'XData',x(i),'YData',y(i));                % nastaveni novych souradnic
  pause(0.05)                                      % pauza, aby bylo neco videt (zalezi na compu)
end  

