Re: Manipulate / Space Phasor
- To: mathgroup at smc.vnet.net
- Subject: [mg92334] Re: Manipulate / Space Phasor
- From: Szabolcs Horvát <szhorvat at gmail.com>
- Date: Sat, 27 Sep 2008 22:22:38 -0400 (EDT)
- Organization: University of Bergen
- References: <gbl2ve$lvl$1@smc.vnet.net>
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] &