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: [mg92321] Re: Manipulate / Space Phasor
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Sat, 27 Sep 2008 22:20:15 -0400 (EDT)
  • References: <gbl2ve$lvl$1@smc.vnet.net>

Hi,

DynamicModule[{gr, v, nf, tt}, Manipulate[
   v = {Sin[u], Cos[u], u/10} /. u -> N[t];
   nf = #/Sqrt[#.#] &[v];
   tt = NullSpace[{nf}][[1]];
   gr = ParametricPlot3D[{Sin[u], Cos[u], u/10}, {u, 0, t}];
   Graphics3D[{gr[[1]], Line[{{0, 0, 0}, v}],
     Polygon[{v, v - 0.1*nf + 0.05*tt, v - 0.1*nf - 0.05*tt}]}]
   , {t, 1, 20}]
  ]

??

Regards
   Jens

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?
> 
> Thank you.
> 


  • Prev by Date: Re: Manipulate / Space Phasor
  • Next by Date: Re: SparseArray
  • Previous by thread: Re: Manipulate / Space Phasor
  • Next by thread: Re: Manipulate / Space Phasor