ВНИМАНИЕ! На форуме начался конкурс - астрофотография месяца - ИЮЛЬ!
0 Пользователей и 1 Гость просматривают эту тему.
GMST = 24110.54841 + TU * (8640184.812866 + TU * (0.093104 - TU * 6.2E-6));GMST = Modulus(GMST + secday*omega_E*UT,secday);
GMST = Modulus(GMST + secday*omega_E*UT,secday); эквивалентно GMST = (GMST + secday*omega_E*UT)/(secday)
static double Modulus(double arg1, double arg2){ double modu; modu = arg1 - (long)(arg1/arg2) * arg2; if (modu >= 0.0) return modu; else return modu + arg2;}
Функции atan2 в Делфи нет...