Re: 3-D plotting of list in spherical coordinates
- To: mathgroup at smc.vnet.net
- Subject: [mg25177] Re: 3-D plotting of list in spherical coordinates
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 12 Sep 2000 21:24:22 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8pkl2g$m6g@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
SetCoodinates[] does not change the meaning of Point[{x,y,z}] to
Point[{r,theta,phi}] you must do it by hand and say something like
gr /. {Point[p_]:> Point[CoordinatesToCartesian[p]],
Polygon[pnts_]:> Polygon[CoordinatesToCartesian /@ pnts] }
for the graphics primitives you have.
Regards
Jens
Siddiq Qidwai wrote:
>
> Hi All,
>
> I've an irregular list (20 x 40 grid) of numbers to be plotted in 3-D. The
> data is in spherical coordinates, i.e., r, theta and phi. I've used the
> SetCoordinates[Spherical[r, theta, phi]] and ListSurfacePlot3D commands in
> tandem but they apprently still spews out the plot in cartesian coordinates.
> I use Mathematica version 3.0. Any suggestions please?
>
> Thanks.
>
> Siddiq