MathGroup Archive 2002

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

Search the Archive

Re: No "Arrow3D" ?

  • To: mathgroup at
  • Subject: [mg34852] Re: [mg34832] No "Arrow3D" ?
  • From: "Y.A. Tesiram" <yas at>
  • Date: Sun, 9 Jun 2002 05:10:31 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

You mean it doesn't exist? See [mg33525] and [mg33518]. Depending
on what you are doing, you might find Jens-Peer's suggestion the
quickest and simplest. Summary follows.

MathGroup MathGroup 2002 2002 2002 2002

[Date Index] [Thread Index] [Author Index]
Search the Archive
Re: Re: Vector Diagrams

    * To: mathgroup at
    * Subject: [mg34852] [mg33525] Re: [mg33518] Re: Vector Diagrams
    * From: Yas <y.tesiram at>
To: mathgroup at
    * Date: Mon, 25 Mar 2002 03:45:00 -0500 (EST)
    * Sender: owner-wri-mathgroup at

Hi Terry,

I've attached the replies sent to me. I tried J-PK's solution which has
it's advantages of quick visualization but I didn't try Kevins Vector3D
because I had settled on DJP's DrawGraphics package.


FROM David Park


Certainly. Since your plot contains many elements I used my DrawGraphics
package, available at my web site below.

Since you probably don't have DrawGraphics yet, I have attached a .gif
of the sample plot I made. I also attached the Mathematica notebook I
to make the plot.

DrawGraphics makes it easy to combine many different plot elements in one
piece of graphics. It also has many useful extra routines. For example, I
used UseWireframe to make the see through sphere and disk. I used
Arrow3D to
draw 3D vectors. I used a surface color on the arrow cones and used
NeutralLighting so that the color would not be overwhelmed by the
light sources. I used DrawAxed to draw the x,y,z axes.

DrawGraphics has complete documentation and also comes with a handy

David Park
djmp at

FROM Jens-Peer Kuska


Mathematica has no nice 3d arrows but you may use
the arrows from


Arrow[{x_, y_, z_}, {dx_, dy_, dz_}] :=
   Graphics`PlotField3D`Private`vector3D[{x, y, z}, {dx, dy, dz}, True]

and use

poly = Polygon [ Table[{Cos[phi], Sin[phi], 0}, {phi, 0, 2Pi, 2Pi/20}]];

       Arrow[{0, 0, 0}, {1, 0, 0}],
       Arrow[{0, 0, 0}, {0, 1, 0}],
       Arrow[{0, 0, 0}, {0, 0, 1}]

to make the axes and the ellipse.


On Sunday, March 24, 2002, at 05:45 PM, TerryH wrote:

> Hi Kevin:
> Could you please send me a copy of your routine for a 3D Arrow?
> Is it a package?  Also, do you know of anything equivalent in
> MathSource?
> Many thanks in advance!
> ....Terry
> "Kevin J. McCann" wrote:
>> There is no 3D equivalent of Arrow; however, I have written a small
>> routine
>> called Vector3D[{x1,y1,z1},{x2,y2,z2},HeadLength] that draws a line
>> and an
>> inverted cone for the head of the vector. It works, but I usually have
>> to
>> fiddle with the size of the cone through HeadLength to make it look
>> right.
>> If you would like, I will send it to you.
>> Kevin
>> "Yas" <y.tesiram at> wrote in message
>> news:a7cspe$i17$1 at
>>> Hi all,
>>> Can someone point me the right direction on how to go about drawing
>>> vector diagrams in Mathematica or if it can be done at all. I would
>>> like
>>> to draw several vectors in a sphere. Specifically I want the xy plane
>>> as
>>> a shaded ellipse and the three axes, originating from the centre of
>>> the
>>> ellipse with the z-axis vertical along the page and y-axis,
>>> horizontally
>>> along the page. In this frame I then want to draw vectors from the
>>> origin to various points within this sphere.
>>> Thanks
>>> Yas

On Sat, 8 Jun 2002, aes wrote:

> Subject line says it all.

  • Prev by Date: Re: Using Mathgroup Effectively -- cutting and pasting expressions
  • Next by Date: Dashed Arrowheads
  • Previous by thread: RE: No "Arrow3D" ?
  • Next by thread: Matrix