       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*.
>
>