MathGroup Archive 2004

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

Search the Archive

Re: plot data points onto sphere


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
>
>


  • 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