Re: Plot contour regions over a globe

*To*: mathgroup at smc.vnet.net*Subject*: [mg101141] Re: Plot contour regions over a globe*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Thu, 25 Jun 2009 07:12:01 -0400 (EDT)*Organization*: Uni Leipzig*References*: <h1svbm$mi0$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de

Hi, what is so complicated on plt = ContourPlot[ Re[SphericalHarmonicY[6, 3, th, phi]], {th, 0, Pi}, {phi, 0, 2 Pi}, ContourShading -> False, ContourStyle -> {Red, Green, Blue, Yellow}] Graphics3D[ {Cases[plt, _GraphicsComplex, Infinity] /. GraphicsComplex[pnts_, more___] :> GraphicsComplex[ Function[{th, phi}, 1.01*{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]}] @@@ pnts, more], Sphere[{0, 0, 0}, 1]} ] And plt = ContourPlot[ Re[SphericalHarmonicY[6, 3, th, phi]], {th, 0, Pi}, {phi, 0, 2 Pi}] Graphics3D[ {Cases[plt, _GraphicsComplex, Infinity] /. GraphicsComplex[pnts_, more___] :> GraphicsComplex[ Function[{th, phi}, 1.01*{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]}] @@@ pnts, more]} ] are also working. Regards Jens michaell1 wrote: > Hello, > > I'm in need of some advice and any help would be appreciated. > > I'm trying to use Mathematica to plot a representation of coverage areas on top of a representation of a globe. But I would like to have countries outlined on the sphere. I tried the new Geo plot toolbox and to show all the countries uses a enormous amount of resources. This is not quite the solution I am hoping for. > > The contour regions plotted over the globe will be inputted as latitude and longitude which brings me to another missing piece of Mathematica. There doesn't seem to be a tool to plot coordinates in 3D. I believe these were all new features in v7 so I hope for many more features to come in the future. > > Thanks in advance! > > -Mike >