MathGroup Archive 2010

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

Search the Archive

Re: Re: A question about a sphere

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107127] Re: [mg107075] Re: A question about a sphere
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Wed, 3 Feb 2010 06:12:02 -0500 (EST)
  • References: <hk6cu2$m1a$1@smc.vnet.net> <201002020827.DAA08742@smc.vnet.net>
  • Reply-to: drmajorbob at yahoo.com

That doesn't work as written, but it does if you change the first  
statement to

R = 1

or better yet, replace R with r in the other statements.

Bobby

On Tue, 02 Feb 2010 02:27:31 -0600, JH <jlucio at ubu.es> wrote:

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


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Re: Re: A question about a sphere
  • Next by Date: Re: Can Mathematica solve this differential equation ?
  • Previous by thread: Re: A question about a sphere
  • Next by thread: Re: A question about a sphere