Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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


  • 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