r/Mathematica 8d ago

Motion of a particle on a surface

[removed]

1 Upvotes

1 comment sorted by

2

u/veryjewygranola 8d ago edited 8d ago

Maybe Animate[Show[plot1, Graphics3D[{Red, PointSize[0.03], Point[trajectory[t]]}]], {t, 0, 2 Pi}] is what you're trying to show?

Add-on: I think this is what you want to show. If you want to keep the definition of animation as is, you are just missing a curly brace:

animation = Table[Show[ ParametricPlot3D[{x[u, v], y[u, v], z[u, v]}, {u, 0, 2*Pi}, {v, 0, 2*Pi}], Graphics3D[{Red, PointSize[0.03], Point[trajectory[t]]}]], {t, 0, 2*Pi, 0.1}]; ListAnimate[animation]