Message Boards Message Boards

0
|
21687 Views
|
3 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Parametric Plot Animation in Mathematica

Posted 9 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

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
Posted 9 years ago

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

POSTED BY: Michael Laszlo

I don't Know if that what you want exactly but maybe help youenter image description here

POSTED BY: Tasneem Smadi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract