MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Manipulate / Space Phasor


Fabian wrote:
> Dear Group-
> 
> In this plot:
> 
> Manipulate[
>  ParametricPlot3D[{Sin[u], Cos[u], u/10}, {u, 0, t}], {t, 1, 20}]
> 
> Is there a way a to show an Arrow from the origin to the tip of the
> curve at all instances of time t?
> 

arrow3D = Line[{{0, 0, 0}, #}] &

Manipulate[
  Show[ParametricPlot3D[{Sin[u], Cos[u], u/10}, {u, 0, t}],
   Graphics3D[arrow3D[{Sin[t], Cos[t], t/10}]], PlotRange -> All], {t,
   1, 20}]

Now all you have to do is define (or search Google for) a better 3D 
arrow than a line.  Or steal one from the VectorFieldPlots package (it's 
a bit ugly):

<< VectorFieldPlots`
arrow3D = VectorFieldPlots`Private`vector3D[{0, 0, 0}, #, True] &


  • Prev by Date: Re: Redirecting input
  • Next by Date: Re: Manipulate / Space Phasor
  • Previous by thread: Re: Manipulate / Space Phasor
  • Next by thread: Re: Manipulate / Space Phasor