Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: A question about a sphere

• To: mathgroup at smc.vnet.net
• Subject: [mg107077] Re: [mg107038] A question about a sphere
• From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
• Date: Tue, 2 Feb 2010 03:27:53 -0500 (EST)
• References: <201002011112.GAA22587@smc.vnet.net>

Hi,

for example:
take spherical coordinates and use ParametricPlot3D to plot your desired
lines and circles:

Show[{Graphics3D[{Blue, Sphere[{0, 0, 0}, 0.97]}], 
   ParametricPlot3D[
    Table[{r*Sin[theta]*Cos[phi], r*Sin[theta]*Sin[phi], 
       r Cos[theta]} /. r :> 1, {phi, 0, 2 Pi, 2 Pi/5}]
    , {theta, 0, Pi}],
   ParametricPlot3D[
    Table[{r*Sin[theta]*Cos[phi], r*Sin[theta]*Sin[phi], 
       r Cos[theta]} /. r :> 1, {theta, 0, Pi, Pi/5}],
    {phi, 0, 2 Pi}]
   }, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}}] /. 
 Line[pts_] :> {Magenta, Tube[pts, 0.01]}

Cheers
Patrick

On Mon, 2010-02-01 at 06:12 -0500, Marwa Abd El-Wahaab wrote:
> Dear Sir,
> 
> I am a Mathematica 7 user.
> 
> I have a question :
> 
> I want to draw a sphere, then draw 5 circles on this sphere like
> *latitudes*and draw 5 lines on this sphere like
> *longitudes*.
> 
> I need your help.
> 
> Thanks in advance
> 
> Marwa Ali
> 
> 

• References:
  • A question about a sphere
    • From: Marwa Abd El-Wahaab <m.a.elwahaab@gmail.com>