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!
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}]
This was exactly what I was looking for! Thank you so much.
I don't Know if that what you want exactly but maybe help you