MathGroup Archive 2004

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

Search the Archive

Re: plot data points onto sphere

  • To: mathgroup at
  • Subject: [mg48038] Re: [mg48026] plot data points onto sphere
  • From: Selwyn Hollis <sh2.7183 at>
  • Date: Sat, 8 May 2004 01:23:42 -0400 (EDT)
  • References: <>
  • Sender: owner-wri-mathgroup at

Something like this?

	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:

	sphr = WireFrame[{GrayLevel[.5], Sphere[1,30,30]}]

Selwyn 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

  • Prev by Date: Interpretation of subscripts
  • Next by Date: Re: plot data points onto sphere
  • Previous by thread: plot data points onto sphere
  • Next by thread: Re: plot data points onto sphere