Re: Vector Diagrams

• To: mathgroup at smc.vnet.net
• Subject: [mg33468] Re: Vector Diagrams
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 22 Mar 2002 04:06:48 -0500 (EST)
• Organization: Universitaet Leipzig
• References: <a7cspe\$i17\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

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

Needs["Graphics`PlotField3D`"]

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}]];

Show[Graphics3D[{poly,
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.

Regards
Jens

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