Message Boards Message Boards

Animate a Point in plot of a propeller?

in wolfram mathematica I have the following code:

Animate[
    ParametricPlot3D[
        {x = Sin[t], y = Cos[t], z = t}, {t, 0, 5 Pi}], {t, 0, 5Pi}]

Propeller

But it failed to animate a point that goes in the helix as I give values ??to T (0,5Pi)

here if I could:

Animate[Graphics[{ Circle[{2, 5}, 2], 
   Point[
    {2 + 2 Cos[t], 5 + 2 Sin[t]}]}], {t, 0, 2 Pi}]

![][2]

If you could help me do it in the same way I would appreciate a lot, sorry for my English

Posted 5 years ago

You are using the same "t" inside ParametricPlot and as the animation variable. Use "t" inside ParametricPlot and e.g. "s" to animate. (x, y and z are of no use). Try this code:

Animate[ParametricPlot3D[{Sin[t + s], Cos[t + s], t}, {t, 0, 5 Pi}, 
  PlotRange -> {{-1, 1}, {-1, 1}, {0, 5 \[Pi]}}], {s, 0, 2 Pi}]
POSTED BY: Erik Mahieu
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