Subject: Re: Первичные дирекции
Date   : 22 May 1997 07:47 GMT
From   : Albert R. Timashev (arta@infopro.spb.su)
To     : Benjamin Leznik (leznik@slip.net)

Привет еще раз!

 BL> Большая просьба к тем, кто может поделиться со мной формулами
 BL> пересчета эклиптических координат планет в экваториальные

  Все просто. Лови исходник на Паскале:

Procedure Ecliptic2Equator ( Beta, Gamma : Double;
                         Var Alpha, Delta : Double );
Begin
  Delta := ArcSin ( Cos ( Obliquity ) * Sin ( Beta ) +
                  + Sin ( Obliquity ) * Cos ( Beta ) *
                    Sin ( Gamma ) );
  Alpha := ArcTan2 ( Cos ( Obliquity ) * Sin ( Gamma )
                   - Sin ( Obliquity ) * Tan ( Beta ) ,
                     Cos ( Gamma ) );
End ;

   Где Obliquity - наклон экватора к эклиптике. На 2000 год
составляет 23,43929 градусов.

С уважением,
Альберт Тимашев