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)