ВНИМАНИЕ! На форуме начался конкурс - астрофотография месяца ФЕВРАЛЬ!
0 Пользователей и 1 Гость просматривают эту тему.
L5:=-Longitude;
D5 := ArcTan(S / Sqrt(1 - S * S));
D2 := aD[1] + P * DD;
If D0 >= Pi/2 - B5*DR - 6*DR then cost = (-sin(51/60*DR) - sin(B5*DR) * sin(D2)) / cos(B5*DR) / cos(D2) th = ArcTan(sqrt((1-cost*cost)/cost)) var1 = (sin(-6*DR) - sin(B5*DR) * sin(D2)) / cos(B5*DR) / Cos(D2) A = ArcTan(sqrt((1-var1*var1)/var1)) dt = abs(A-th)/DR/15 ' dt в часахelse dt=0 end if
if st[1]='В' and dt <> 0 Then RuseTime= T3-dtIf st[1]='З' and dt<>0 Then SetTime= T3+dt