1

I would like to ask about the point movement on the torus knot. 

 rr = 3;
torus[u_, v_] := {(rr + Cos[2 Pi u]) Cos[2 Pi v], (rr + Cos[2 Pi u]) Sin[2 Pi v], Sin[2 Pi u]}
Toro = ParametricPlot3D[torus[u, v], {u, 0, 1}, {v, 0, 1}, 
   Boxed -> False, Axes -> False, MeshStyle -> None];
Knot = ParametricPlot3D[torus[u, 2 u], {u, 0, 1}, Boxed -> False, 
   Axes -> False];

It's look like:

Tortus and knot image

And I want to animate the point movement on the torus knot.

How can I do this?

David G. Stork
  • 41,180
  • 3
  • 34
  • 96
Mike
  • 11
  • 1

1 Answers1

4
ListAnimate[
 Table[
  Show[Toro,
   Knot,
   Graphics3D@{Red, Sphere[torus[u, 2 u], .3]}, 
   PlotRange -> {{-4.5, 4.5}, {-4.5, 4.5}, {-1.2, 1.2}}],
  {u, 0, 1, .01}]
 ]

enter image description here

Jason B.
  • 68,381
  • 3
  • 139
  • 286