Horizontal sundial calculations: Difference between revisions
Content added Content deleted
(Added BBC BASIC) |
(J: avoid principal value issue) |
||
Line 492: | Line 492: | ||
'Diff longitude ' out -diff=. ref - lng |
'Diff longitude ' out -diff=. ref - lng |
||
lbl=.'hour ';'sun hour angle ';'dial hour line angle' |
lbl=.'hour ';'sun hour angle ';'dial hour line angle' |
||
r=.((,. (,. *&slat |
r=.((,. (,. ({:@*.@j. *&slat)/@+.@r.&.rfd)) diff + 15&*) i:6 |
||
smoutput lbl ,: ('3.0';'7.3';'7.3') 8!:1 r |
smoutput lbl ,: ('3.0';'7.3';'7.3') 8!:1 r |
||
)</lang> |
)</lang> |
||
Line 519: | Line 519: | ||
│ 4 │ 60.500 │ -8.671 │ |
│ 4 │ 60.500 │ -8.671 │ |
||
│ 5 │ 75.500 │-18.451 │ |
│ 5 │ 75.500 │-18.451 │ |
||
│ 6 │ 90.500 │ |
│ 6 │ 90.500 │-95.775 │ |
||
└──────┴────────────────┴────────────────────┘</lang> |
└──────┴────────────────┴────────────────────┘</lang> |
||