Re: Re: A question about a sphere
- To: mathgroup at smc.vnet.net
- Subject: [mg107119] Re: [mg107075] Re: A question about a sphere
- From: Tomas Garza <tgarza10 at msn.com>
- Date: Wed, 3 Feb 2010 06:10:32 -0500 (EST)
Fine, but you wrote "R" instead of "r" in the second and third plots.
Tomas
> Date: Tue, 2 Feb 2010 03:27:31 -0500
> From: jlucio at ubu.es
> Subject: [mg107075] Re: A question about a sphere
> To: mathgroup at 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
>