Horizontal sundial calculations: Difference between revisions
m
→{{header|EasyLang}}
m (→{{header|ANSI BASIC}}: lang="basic") |
|||
Line 1,386:
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
write s$
v = number input
print v
return v
.
slat = sin lat
diff = lng - merid
Line 1,402 ⟶ 1,403:
print "Hour\tSun hour angle\tDial hour line angle"
for h = -6 to 6
hra = 15 * h - diff
hla = atan2 (slat * sin hra) cos hra
print h + 12 & "\t" & hra & "\t\t" & hla
.
</syntaxhighlight>
|