[Date Index] [Thread Index] [Author Index]

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)