Re: Contour List Plot on Surface of Sphere?
- To: mathgroup at smc.vnet.net
- Subject: [mg30394] Re: Contour List Plot on Surface of Sphere?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 15 Aug 2001 01:04:01 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <9lalg0$ccm$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I have a package for functions to plot contours and colors on a
sphere but ContourPlot[] will generate non-convex polygons
and the 3d extension would require a a triangulation of the
polygons in the contour plot.
But the best way would be to make a ContourPlot[]/ ListContourPlot[]
an apply it as a Texture on a sphere in MathGL3d.
Get["OpenGLViewer`"]
cntr = ContourPlot[Sin[phi]*(1 - Cos[th]), {th, 0, Pi}, {phi, 0, 2Pi},
Frame -> False, ColorFunction -> Hue, PlotPoints -> 60,
DisplayFunction->Identity];
ss = ParametricPlot3D[{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]},
{th, 0,
Pi}, {phi, 0, 2Pi},DisplayFunction->Identity];
MVShow3D[ss, MVTexture -> cntr, MVTextureMapType -> MVMeshUVMapping,
MVNewScene -> True, MVTextureSize -> 536]
You can look at the result at
http://phong.informatik.uni-leipzig.de/~kuska/colorsplt.wrl
Regards
Jens
"Warner A. Miller" wrote:
>
> Hi,
>
> I want to plot contours of frequency on a spherical surface from a
> table of data {theta,phi,frequency} where theta and phi are standard
> spherical polar coordinates. These contours will be curves on the
> surface of a sphere. Can Mathematica do such a plot? If yes, how? As
> far as i know, Mathematica can do contours of f(theta,phi) on a sphere
> but can I equally well plot a table of data? Thanks for any help.
>
> Sincerely,
>
> Warner A. Miller
> Leader, Theoretical Astrophysics Group
> Theoretical Division
> Los Alamos National Laboratory
> wam at lanl.gv