Parametric Plot Animation in Mathematica

Questions
,
1

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!

2

I don’t Know if that what you want exactly but maybe help you

Capture0.PNG
Capture0.PNG607×300 5.27 KB

3

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}]
4

This was exactly what I was looking for! Thank you so much.