Advanced Search

Question: Animation of a simple pendulum

Question:Animation of a simple pendulum

Pendule 10 Maple
animation plotting
March 07 2012
1

Hi,

Im trying to animate a simple pendulum with maple 15. I'm able to make to the pendulum masse move, but, somehow, I can't animate the rope of the pendulum. I tried to draw the rope with the plottools library line , but no success.

Pendulum:=proc(x,y)plots[pointplot]([x,y],color=blue, symbol=solidcircle,symbolsize=25) end proc:
A:=animate(Pendulum,[XCoordinate,YCoordinate],t=0..8,frame=100):
Rope:=plottools[line]([0,1],[XCoordinate,YCoordinate],color=blue,thickness=3):
display([A,Rope]);

There is no error message when I run the code, but the damn Rope wont appear. I try doing a procedure for the Rope, didn't work either. So, I only a circle swinging, but no Rope :(

Any suggestion
Please Wait...