Horizontal sundial calculations: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added more FUZZ digits to COS subroutine.) |
(→{{header|Forth}}: Prevent unexpected sign change in output) |
||
Line 729:
faccept
cr ." Enter legal meridian: "
faccept f- fnegate ( sin[latitude] -longitude )
cr ." Hour : HourAngle , DialAngle"
7 -6 do
cr i 4 .r ." : "
fover fover
fdup f. ." , "
>radians
loop fdrop fdrop ;</lang>
|