1
$\begingroup$

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?

Improve this question
$\endgroup$
2
  • $\begingroup$ Have you tried anything? $\endgroup$
    – MarcoB
    May 25, 2016 at 14:33
  • $\begingroup$ Possible duplicate of Curve wound on torus $\endgroup$
    – Sumit
    May 25, 2016 at 14:49

1 Answer 1

Reset to default
4
$\begingroup$ 
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

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.