function narysuj(u)
% NARYSUJ - funkcja rysuj¹ca ruch wahadla matematycznego
% jej argumentem wejsciowym jest trzyelementowy wektor u zawierajacy
% aktualny czas symulacji, wartosc kata odpowiadaj¹c¹ temu czasowi, oraz
% dlugosc nici wahadla
% Autor: Grzegorz Knor

t = u(1);
teta = u(2);
l=u(3);

y=-l*cos(teta);
x=l*sin(teta);

cla
fill([-l/4 -l/4 l/4 l/4],[0.1 0 0 0.1],'r')
hold on
line([0 x],[0 y])
plot(x,y,'r.','MarkerSize',30)
xlim([-l l])
ylim([-l 0.1])
text(-l/4,0.05,['  T = ' num2str(t)])
hold off
axis off

drawnow

