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] &
>