MathGroup Archive 1997

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

Search the Archive

Re: How to draw a shaded shpere?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg8074] Re: [mg8060] How to draw a shaded shpere?
  • From: Allan Hayes <hay at haystack.demon.co.uk>
  • Date: Tue, 5 Aug 1997 03:22:39 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

juana at spcm2.ictp.trieste.it (MORENO JUANA)
in [mg8060] How to draw a shaded shpere?

wants,for example, show the following without the polygon edges

kx=Sin[theta] Cos[phi]
ky=Sin[theta] Sin[phi]
kz=Cos[theta]
shade=15*(1-kz*kz)*(1+15*kz*kz)/64
sphere=ParametricPlot3D[{kx,ky,kz,GrayLevel[shade]},{theta,0,Pi},
{phi,0 , 2  
Pi},PlotPoints->{50,50},Axes->False,Boxed->False,Lighting->False].

Juana,

Replace GrayLeve[shade] with {GrayLevel[shade], EdgeForm[]}.

Allan

Allan Hayes
hay at haystack.demon.co.uk
http://www.haystack.demon.co.uk/training.html
voice:+44 (0)116 2714198
fax: +44 (0)116 2718642
Leicester,  UK



  • Prev by Date: Re: Re: Taylor Series in R^n
  • Next by Date: Re: Combining ListPlots
  • Previous by thread: How to draw a shaded shpere?
  • Next by thread: Book Announcement