Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.
> 



  • Prev by Date: Re: A Package Function Tutorial
  • Next by Date: Re: How to debug init.m?
  • Previous by thread: Re: Manipulate / Space Phasor
  • Next by thread: Re: Curious on the .nb format Opções