Re: Manipulate / Space Phasor
- To: mathgroup at smc.vnet.net
- Subject: [mg92331] Re: Manipulate / Space Phasor
- From: "David Park" <djmpark at comcast.net>
- Date: Sat, 27 Sep 2008 22:22:05 -0400 (EDT)
- References: <gbl2ve$lvl$1@smc.vnet.net>
The Presentations package at my web site ($50) has an Arrow3D routine. In
the Presentations graphics paradigm it is very easy to combine various
curves and objects in a graphic - you just draw one thing after another.
(Also in your Manipulate plot the PlotRange should be explicitly specified
so that each frame will have the same plot range.) So here is your helix
with an arrow with a Red tip going from the origin to the tip of the curve.
In this case I used an "Absolute" scaling so the arrowcone would always be
the same size.
Needs["Presentations`Master`"]
Manipulate[
Draw3DItems[
{ParametricDraw3D[{Sin[u], Cos[u], u/10}, {u, 0, t}],
Red,
Arrow3D[{0, 0, 0}, {Sin[t], Cos[t], t/10}, {.2, .7, "Absolute"}]},
PlotRange -> {{-1, 1}, {-1, 1}, {0, 2}},
Axes -> True],
Style["Helix with Arrow to Tip", 16],
Delimiter,
{t, 1, 20, Appearance -> "Labeled"}]
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
"Fabian" <fabian.uriarte at gmail.com> wrote in message
news:gbl2ve$lvl$1 at smc.vnet.net...
> 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.
>