Re: Manipulate / Space Phasor

*To*: mathgroup at smc.vnet.net*Subject*: [mg92315] Re: Manipulate / Space Phasor*From*: "Fabian M. Uriarte" <fabian.uriarte at gmail.com>*Date*: Sat, 27 Sep 2008 22:19:09 -0400 (EDT)*References*: <gbl2ve$lvl$1@smc.vnet.net> <48DE15A9.3000703@gmail.com>

Thank Szabolcs Horv=E1t for suggesting the vector arrow. A bit big, but hey, it conveys the idea quite well. Thanks again. On Sat, Sep 27, 2008 at 6:14 AM, Szabolcs Horv=E1t <szhorvat at gmail.com> wro= te: > 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] & >