- #1
MikhailKhot
- 2
- 0
Dear all,
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!
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!