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>
- Reply-to: kuska at informatik.uni-leipzig.de
- 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