Dear all,(adsbygoogle = window.adsbygoogle || []).push({});

here is my animation of a simple plot:

Animate[

ParametricPlot[ {Sin[tf], Cos[tf]}, {tf, 0, t}, PlotStyle -> {{Thickness[0.002], Red}, {Thickness[0.002], Blue}},

PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}, AspectRatio -> Automatic], {t, 0.01, 100, 0.01},

AnimationRate -> 2, AnimationRunning -> False]

I want to have the same animation, but with a circle moving together with the plot, creating it, i.e. to combine the result above with

Animate[

Show[

Graphics[

{{PointSize[Large], Red, Point[{Sin[t], Cos[t]}]}}, PlotRange -> {{-2, 2}, {-2, 2}}, Axes -> True,

AspectRatio -> Automatic]], {t, 0, 100}, AnimationRate -> 1, AnimationRunning -> False]

How can I get it? Many-many thankd!

**Physics Forums - The Fusion of Science and Community**

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica: moving point creating a curve

Tags:

Loading...

Similar Threads - Mathematica moving point | Date |
---|---|

Mathematica Cannot do the integral of the Hyper-geometric function? | Mar 11, 2018 |

Mathematica Cannot Plot This Function in Mathematica | Feb 26, 2018 |

Mathematica While Loop in Mathematica | Feb 25, 2018 |

Mathematica Mathematica Real Part | Feb 24, 2018 |

Moving a parametric object in mathematica | Dec 7, 2009 |

**Physics Forums - The Fusion of Science and Community**