Kuu tõusu- ja loojangu ajad

[A.R.]

Programmi tekstile lisatud sek arvestus,
atan kohti mõjutatud ATK väärtusega.

Järeldus: 4 kohta peale koma piisav minuti täpsuseks.

__________________________________
Tallinn Tallin 59° 26 N, 24° 45 E"
59.43 24.75
Y 2012 M 4 D 15 H -3 '' arvestatud suveaeg.

ATK 1000000000
MOONRISE AT 4:14 S 9.77241847
MOONSET AT 13:58 S 14.2368016
ATK 1000000
MOONRISE AT 4:14 S 9.75386166
MOONSET AT 13:58 S 14.2483363
ATK 10000
MOONRISE AT 4:14 S 7.6979559
MOONSET AT 13:58 S 12.9721378
ATK 1000
MOONRISE AT 4:13 S 40.2190289
MOONSET AT 13:58 S 16.4427364
ATK 100
MOONRISE AT 4:10 S 50.4264959
MOONSET AT 13:58 S 28.2024313
ATK 10
MOONRISE AT 3:44 S 56.0859963
MOONSET AT 14:26 S 7.52969845

Sarnane tehe tehtud kõigi kolme atan() - funktsiooniga
415 ''A7=ATN(N7/D7)/R1
tn100=ATN(N7/D7)

atn1=N7/D7
tn1=ATN(atn1)
tn1oi=tn1*ATK
tn1o=INT(tn1oi)
tn1o1=tn1o/ATK
A7=tn1o1/R1
PRINT " ";tn100;" ATAN1 arg";atn1;" ATAN ";tn1;" ATK ";ATK;" * ";tn1oi;" / ";tn1o1;
__________________
Loodan et sai kõik õigesti.