Портал "Русская Профессиональная Астрология"
![](//top-fwz1.mail.ru/counter?id=4377)
![](//counter.rambler.ru/top100.cnt?pid=727)
![Астрологическая Консультационная Служба портала Русская Профессиональная Астрология](//Astrologer.ru/consulting/img/banner02.gif)
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 градусов.
С уважением,
Альберт Тимашев
![](/img/blank.gif)