Re: plot data points onto sphere
- To: mathgroup at smc.vnet.net
- Subject: [mg48038] Re: [mg48026] plot data points onto sphere
- From: Selwyn Hollis <sh2.7183 at misspelled.erthlink.net>
- Date: Sat, 8 May 2004 01:23:42 -0400 (EDT)
- References: <200405070829.EAA24831@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Something like this?
<<Graphics`ParametricPlot3D`
sphr = SphericalPlot3D[1, {theta, 0, Pi}, {phi, 0, 2*Pi}];
pairs = Table[{Pi*Random[], 2*Pi*Random[]}, {200}];
pts = Apply[{Cos[#1]Sin[#2],Sin[#1]Sin[#2],Cos[#2]}&, #]& /@ pairs;
Show[{sphr, Graphics3D[{PointSize[.015], Hue[0], Point /@ pts}]}]
You could also use a wire frame for the sphere like this:
<<Graphics`Shapes`
sphr = WireFrame[{GrayLevel[.5], Sphere[1,30,30]}]
-----
Selwyn Hollis
http://www.math.armstrong.edu/faculty/hollis
(edit reply-to to reply)
On May 7, 2004, at 4:29 AM, Michael wrote:
> Hi, I would like to plot data points (theta, phi) from a list onto the
> surface of a sphere, generated with SphericalPlot3D. Does anyone know
> how to do that with mathematica? There was a related entry from Peter
> Lundberg, yet without response.
> Michael
>
>
- References:
- plot data points onto sphere
- From: michael.john@ch.tum.de (Michael)
- plot data points onto sphere