Group Abstract

Message Boards

WOLFRAM COMMUNITY

6.4K Views

2 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Get animation of the tip of a vector moving along a parameterized 3D line?

Stephan Brandt

Posted 9 years ago

Hello, I am trying to program an animation that does a very similar thing as an animation of a point moving along a line but instead of the point I need a vector originating from (0,0,0). This is how i got so far with a point: path[var_] := CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", {1, Exp[-15 (var - \[Pi]/2)^4] + Pi/4, 0.5 ArcTan[20 (var - \[Pi]/2)] + \[Pi]/4}] Animate[ Show[ ParametricPlot3D[path@u, {u, 1/4 \[Pi], 3/4 Pi}, PlotStyle -> Gray, Boxed -> False, Axes -> False], Graphics3D[{Red, PointSize[0.05], Point[path@v]}]], {v, 1/4 \[Pi], 3/4 Pi}] thanks in advance for any suggestions. Stephan

Hello, I am trying to program an animation that does a very similar thing as an animation of a point moving along a line but instead of the point I need a vector originating from (0,0,0). This is how i got so far with a point:

path[var_] := CoordinateTransformData["Spherical" -> "Cartesian", "Mapping",
  {1, Exp[-15 (var - \[Pi]/2)^4] + Pi/4, 
   0.5 ArcTan[20 (var - \[Pi]/2)] + \[Pi]/4}]

Animate[
    Show[
  ParametricPlot3D[path@u, {u, 1/4 \[Pi], 3/4 Pi}, PlotStyle -> Gray, 
   Boxed -> False, Axes -> False],
        Graphics3D[{Red, PointSize[0.05], Point[path@v]}]], {v, 1/4 \[Pi],
   3/4 Pi}]

thanks in advance for any suggestions. Stephan

POSTED BY: Stephan Brandt