Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: A question about a sphere

• To: mathgroup at smc.vnet.net
• Subject: [mg107075] Re: A question about a sphere
• From: JH <jlucio at ubu.es>
• Date: Tue, 2 Feb 2010 03:27:31 -0500 (EST)
• References: <hk6cu2$m1a$1@smc.vnet.net>

On 1 feb, 12:12, Marwa Abd El-Wahaab <m.a.elwah... at gmail.com> 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

Hello,

You can do the following:

Suppose the radio is 1 an the center of the sphere is at the origin:

r = 1;
gg = Graphics3D[Sphere[{0, 0, 0}, 1]];
pp = ParametricPlot3D[
   Table[{R Cos[\[CurlyPhi]] Cos[\[Theta]],
     R Cos[\[CurlyPhi]] Sin[\[Theta]],
     R Sin[\[CurlyPhi]]}, {\[CurlyPhi], -\[Pi]/3, \[Pi]/3, \[Pi]/
      6}], {\[Theta], 0, 2 \[Pi]}];   (*  the parallels or circles of
latitude  *)
mm = ParametricPlot3D[
  Table[{-R Cos[\[Theta]] Sin[\[Delta]],
    R Cos[\[Theta]] Cos[\[Delta]], R Sin[\[Theta]]}, {\[Delta], 0,
    2 \[Pi], 2 \[Pi]/5}], {\[Theta], 0, 2 \[Pi]}];   (*  the
meridians  *)
Show[gg, pp, mm]    (*  See all together  *)

    JH

• Follow-Ups:
  • Re: Re: A question about a sphere
    • From: DrMajorBob <btreat1@austin.rr.com>