MathGroup Archive 2002

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

Search the Archive

Re: Vector Diagrams

  • To: mathgroup at
  • Subject: [mg33468] Re: Vector Diagrams
  • From: Jens-Peer Kuska <kuska at>
  • Date: Fri, 22 Mar 2002 04:06:48 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <a7cspe$i17$>
  • Reply-to: kuska at
  • Sender: owner-wri-mathgroup at


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.


Yas wrote:
> 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

  • Prev by Date: Re: Adding columns and rows to a table
  • Next by Date: Re: the fastest way to read binary files
  • Previous by thread: Re: Vector Diagrams
  • Next by thread: Re: Vector Diagrams