Re: Manipulate / Space Phasor
- To: mathgroup at smc.vnet.net
- Subject: [mg92313] Re: [mg92291] Manipulate / Space Phasor
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 27 Sep 2008 22:18:48 -0400 (EDT)
- Reply-to: hanlonr at cox.net
Manipulate[Show[ParametricPlot3D[
{Sin[u], Cos[u], u/10}, {u, 0, t},
PlotRange -> {{-1, 1}, {-1, 1}, {0, 2}},
PlotStyle -> Directive[Red, Thick]],
Graphics3D[{Directive[Blue, Thick],
Line[{{0, 0, 0}, {Sin[t], Cos[t], t/10}}]}]],
{t, 1, 20}]
Bob Hanlon
---- Fabian <fabian.uriarte at gmail.com> 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?
Thank you.
--
Bob Hanlon