Animation points

Posted on 2008-11-29 12:10 By nickzess (

10)

Categories:

How do I ...? with Maple (Student)

Hello,
I have animation trajectory of motion. I have displayed as line it. But I need displayed as point, which will move.

How to do it?

Thank you. I am sorry for my English language.

= diff(x(t), t) = -(x(t)-y(t))/sqrt(x(t)^2+y(t)^2): vy := diff(y(t), t) = -(x(t)+y(t))/sqrt(x(t)^2+y(t)^2):

animate(DEplot, [sys, [x(t), y(t)], t = 0 .. T, x = -1 .. 1, y = -1 .. 1, init, stepsize = 0.1e-1, thickness = 1, arrows = none, title = "Animation", linecolor = [red, blue, gold, black]], T = 0.1e-2 .. sqrt(2));

Sorry, once

Comment on 2008-11-29 12:18 from nickzess (

10)

Sorry, once more:

restart;

with(DEtools):with(plots):

vx := diff(x(t), t) = -(x(t)-y(t))/sqrt(x(t)^2+y(t)^2);

vy := diff(y(t), t) = -(x(t)+y(t))/sqrt(x(t)^2+y(t)^2);

sys := {vx, vy}:

init := [[x(0) = 1, y(0) = 1], [x(0) = 1, y(0) = -1], [x(0) = -1, y(0) = -1], [x(0) = -1, y(0) = 1]]:

animate(DEplot, [sys, [x(t), y(t)], t = 0 .. T, x = -1 .. 1, y = -1 .. 1, init, stepsize = 0.1e-1, thickness = 1, arrows = none, title = "Animace", linecolor = [red, blue, gold, black]], T = 0.1e-2 .. sqrt(2));

animation of points

Comment on 2008-11-30 00:23 from Robert Israel ( Maple Rating 4

1554)

S:= [seq(subs(dsolve(sys union {op(v)}, numeric, output=listprocedure),[x(t),y(t)]),v=init)];

display([seq](pointplot(S(sqrt(2)*j/50),colour=[red,blue,gold,black]),j=1..50),insequence=true);

OK, thank you. And when I

Comment on 2008-12-01 03:26 from nickzess (

10)

OK, thank you.

And when I want display trajectory as line and as point in one graph?

Combined

Comment on 2008-12-01 03:55 from Robert Israel ( Maple Rating 4

1554)

display([seq](
 display([pointplot(S(j*sqrt(2)/50),colour=[red,blue,gold,black]),
 DEplot(sys, [x(t), y(t)], t = 0 .. j*sqrt(2)/50, x = -1 .. 1, y = -1 .. 1, init,  
  thickness = 1, arrows = none, title = sprintf("Animace\n T = %4.4f",j*sqrt(2)/50), 
  linecolor = [red, blue, gold, black])]),
 j=1..50),insequence=true);