Horizontal sundial calculations: Difference between revisions

m
Line 609:
print " diff longitude: " & diff
print ""
print "Hour" & tb$ & "Sun\tSun hour angle" & tb$ & "Dial\tDial hour line angle"
tb$ = char_chr 9
print "Hour" & tb$ & "Sun hour angle" & tb$ & "Dial hour line angle"
for h = -6 to 6
hra = 15 * h - diff
hla = atan2 (slat * sin hra) cos hra
print h + 12 & tb$"\t" & hra & tb$ & tb$"\t\t" & hla
.</lang>
 
2,023

edits