Re: Erstellen eines Gradnetzes auf einer Kugel

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

tja also die Himmerlskugel erstellen, 
noch dazu mit einem Gradnetz -- ich glaube das
kann nur GOtt ... aber wie wär's mit
lst = 1.01*
  Table[{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]}, 

     {phi, 0, 2Pi, 2Pi/24}, {th, 0, Pi, Pi/12}];

sp = ParametricPlot3D[
  {Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th], EdgeForm[]},
  {th, 0, Pi}, {phi, 0, 2Pi}, PlotPoints -> {32, 64}, 
  DisplayFunction -> Identity];

Show[Graphics3D[
  {{RGBColor[1, 0, 0], Line /@ lst}, 

   {RGBColor[0, 1, 0], Line /@ Transpose[lst]}}
   ], sp, Boxed -> False
];



Gruß

  Jens

  ----- Original Message ----- 
  From: Roland Schneider 
  To: demug@XXXXXXX.ch 
  Sent: Monday, June 20, 2005 11:13 PM
  Subject: Erstellen eines Gradnetzes auf einer Kugel


  Hallo

  ich möchte für astronom. Arbeitsblätter die Himmelskugel
  mit einem Gradnetz

  Längenkreise (Rektaszensionskreise) im Abstand 15 Grad 
  Breitenkreise (Deklinationskreise)      im Abstand 15 Grad 

  erstellen.

  Wie macht man dies, mit dem Befehl Parametric3D. 


  Für eine Lösung danke ich im voraus

                                  Roland Schneider