E = 23,4523 - 0,013 *T

    Рассчитывается прямое восхождение любой точки эклиптики исходя из её долготы L.

Если L = 90 тогда RA = 90
Если L = 270 тогда RA = 270
Если L <> 90 или 270 тогда:
пусть X = Arctg(tg(L)*cos(E))
если 0 <= L < 90 тогда RA = X
если 90 < L < 270 тогда RA = X + 180
если 270 < L < 360 тогда RA = X + 360

    Рассчитывается долгота любой эклиптической точки из её прямого восхождения RA.

Если RA = 90 then L = 90
Если RA = 270 then L = 270
Если RA <> 90 или 270 тогда:
пусть X = Arctg(tg(RA)/cos(E))
если 0 <= RA < 90 тогда L = X
если 90 < RA < 270 тогда L = X + 180
если 270 < RA < 360 тогда L = X + 360

    Рассчитывается склонение любой точки эклиптики из её долготы L.

D = Arcsin(sin(L)*sin(E))

    Рассчитывается склонение любой эклиптической точки из её долготы L и широты B.

D = Arcsin(cos(E)*sin(В) + sin(E)*cos(В)*sin(L))

    Рассчитывается прямое восхождение любой эклиптической точки из её долготы L и склонения D.

Если L = 90 тогда RA = 90
Если L = 270 тогда RA = 270
Если L <> 90 или 270 тогда:
пусть X = Arctg(tg(L) /cos(E)) - SGN (cos(L))*Arcsin(tan(D)*sin(E)/SQR(tg(L)*tg(L) + cos(E)*cos(E)))
если 0 <= L < 90 тогда RA = X
если 90 < L < 270 тогда RA = X + 180
если 270 < L < 360 тогда RA = X + 360

    где SQR обозначает квадратный корень из выражения, а SGN является знаковой функцией (возвращающей значение -1 при аргументе меньше нуля и +1 при аргументе больше или равном нулю).
    Если RA>360 то вычитаем 360, а если RA< 0 то прибавляем 360.

    Рассчитывается долгота любой точки из её прямого восхождения RA и склонения D.

Если RA = 90 тогда L = 90
Если RA = 270 тогда L = 270
Если RA <> 90 или 270 тогда:
Пусть X = Arctg(cos(E)*Sin(RA) + sin(E)*tg(D))/cos(RA))
если 0 <= RA < 90 тогда L = X
если 90 < RA < 270 тогда L = X + 180
если 270 < RA < 360 тогда L = X + 360

    Если L > 360 то вычитаем 360, а если L < 0 то прибавляем 360.