MathGroup Archive 2008

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

Search the Archive

Re: 3D Arrows

  • To: mathgroup at
  • Subject: [mg88135] Re: 3D Arrows
  • From: "Fred Klingener" <gigabitbucket at>
  • Date: Sat, 26 Apr 2008 03:42:12 -0400 (EDT)
  • References: <fus8fk$842$>
  • Reply-to: "Fred Klingener" <gigabitbucket at>

"Robert M. Lurie" <RMLURIE at ALUM.MIT.EDU> wrote in message 
news:fus8fk$842$1 at
> Apparently Arrows is only a 2D graphic. Is there a way to make an arrow
> in 3D?


I use a short stack of Cylinders. Here's a stack of five, apex at p_, 
pointing in direction n_.
arrowhead3D[p_, n_] :=
Module[{l = 0.2, d = 0.1, s = 5}, {EdgeForm[None],
Table[Cylinder[{p - (i - 1) l n/s, p - i l n/s}, d i/s/2], {i, s}]}]

p = {1, 1, 1};
n = {1, 1, 1};
Graphics3D[{Point[p], Line[{{0, 0, 0}, n}], arrowhead3D[p, n]}]

The form is pretty cheap but not-ready-for-publication. Absolute size would 
be a good idea, but I didn't need it at the time.

Fred Klingener

  • Prev by Date: Re: 3D Arrows
  • Next by Date: Re: Re: Print vs Print[text, Plot]? (*now Do and Table*)
  • Previous by thread: Re: 3D Arrows
  • Next by thread: Re: 3D Arrows