Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: arrows in the parametric plot

• To: mathgroup at smc.vnet.net
• Subject: [mg123881] Re: arrows in the parametric plot
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Mon, 26 Dec 2011 17:31:07 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201112261154.GAA14440@smc.vnet.net>

Manipulate[
 Module[{m, f, c},
  m = Ceiling[100/n];
  f[u_] = {Cos[u], Sin[u], u};
  c = ParametricPlot3D[f[u], {u, 0, 2 Pi},
    PlotStyle -> Thick,
    BoxRatios -> {1, 1, 1}];
  Show[c, Graphics3D[Arrow /@ Partition[
      Table[f[u], {u, 0, 2 Pi, 2 Pi/(m*n)}],
      m]]]],
 {{n, 4, "Number of\nArrows"}, 1, 10, 1,
  Appearance -> "Labeled"}]


Bob Hanlon

On Mon, Dec 26, 2011 at 6:54 AM, michael partensky <partensky at gmail.com> wrote:
> Hi the group.
> What is the better way of *putting the arrows in the 3-D parametric
> plot*showing the direction of a particle moving along the trajectory
> using
> *only the built-in functions *?
> The arrows should be separated  by a selected step along the trajectory
> (or, say, a chosen time step).
>
> Thanks
> Michael.

• References:
  • arrows in the parametric plot
    • From: michael partensky <partensky@gmail.com>