MathGroup Archive 1999

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

Search the Archive

Re: Surfacecoloring of a sphere

  • To: mathgroup at smc.vnet.net
  • Subject: [mg15755] Re: Surfacecoloring of a sphere
  • From: Martin Kraus <mkraus at theorie3.physik.uni-erlangen.de>
  • Date: Sun, 7 Feb 1999 02:03:41 -0500 (EST)
  • Organization: Regionales Rechenzentrum Erlangen, Germany
  • References: <79eb8g$9sk@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Florian Stock wrote:
> 
> Hello,
> 
> for visualization of an Satellite, i want to color the surface of a
> sphere (for the colors I have a function color[long,att] with long and
> att in a  range from 0 to 2 Pi).
> How can i coloring the sphere?
> I've tried with SphericalPlot3D and the ColorFunction option, with
> ParametricPlot3D, but I didn't found a way to color it.
> 
> Greetings
> 
> Florian
> 
> --
> "Alles was von Bedeutung ist, ist in Mathematik gegruendet.",
>  Robert A. Heinlein`s "Sternenkrieger"

I guess either long or att goes from 0 to Pi only.

With SphericalPlot3D you can choose a color (or more general any list of
graphics directives) this way:


<<Graphics`ParametricPlot3D`

SphericalPlot3D[{1,color[long,att]},{att,0,Pi},{long,0,2Pi},Lighting->False]


With ParametricPlot3D it was:


ParametricPlot3D[{Sin[att]Sin[long],Sin[att]Cos[long],Cos[att],color[long,att]},
{att,0,Pi},{long,0,2Pi},Lighting->False]


Hope that helps

Martin Kraus


  • Prev by Date: Re: FindRoot question (number of variables)
  • Next by Date: Re: Integration of very simple partwise definded functions fails
  • Previous by thread: Re: Surfacecoloring of a sphere
  • Next by thread: Re: Surfacecoloring of a sphere