Message Boards

WOLFRAM COMMUNITY

22727 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Parametric Plot Animation in Mathematica

Michael Laszlo

Posted 10 years ago

Hi everyone, I'm struggling with this task in Mathematica I have to hand in this week so I was hoping you could give me some advice: Two points are moving on the lines (x,1,y,1)=(4cos t,5sin t) and (x,2,y 2)=((cos 2t)/(t+3),3sin t); 0<t<2Pi. How do you set up the animation for this? Thanks in advance!

POSTED BY: Michael Laszlo

3 Replies

Sort By:

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 10 years ago

Something like this? curves = ParametricPlot[{{4 Cos[t], 5 Sin[t]}, {Cos[2 t]/(t + 3), 3 Sin[t]}}, {t, 0, 2 Pi}]; Animate[Show[curves, Graphics[{PointSize[Large], Point[{4 Cos[t], 5 Sin[t]}], Point[{Cos[2 t]/(t + 3), 3 Sin[t]}]}]], {t, 0, 2 Pi}]

Something like this?

curves = ParametricPlot[{{4 Cos[t], 5 Sin[t]}, {Cos[2 t]/(t + 3), 
     3 Sin[t]}}, {t, 0, 2 Pi}];
Animate[Show[curves, 
  Graphics[{PointSize[Large], Point[{4 Cos[t], 5 Sin[t]}], 
    Point[{Cos[2 t]/(t + 3), 3 Sin[t]}]}]],
 {t, 0, 2 Pi}]

POSTED BY: Gianluca Gorni