% Funçao para animaçao de pendulos simples.
%
% pendulum_anim(xy,theta,t,L)
% xy    -> Coordenadas (x,y) do pendulo para os diversos instantes temporais.
% theta -> Valores de theta e Dtheta do pendulo para todos os instantes temporais.
% t     -> Espaço temporal.
% L     -> Dimensao da janela de animaçao.

function pendulum_anim(u)

L=1;
theta=u;

% === CINEMATICA DIRECTA =============================
% theta(:,1)=angulo
x=L*cos(theta-pi/2);
y=L*sin(theta-pi/2);
% ====================================================

% === ANIMACAO GRAFICA =============================
% Representacao do pendulo
plot([0,x],[0,y],'linewidth',3);
text(0,0,'X');
text(x,y,'O');

title('Simple Pendulum Simulation');
xlabel('x');
ylabel('y');
axis(6/5*[-L,L,-L,L]);
axis square

drawnow
%==================================================
