Horizontal sundial calculations: Difference between revisions
Content deleted Content added
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>
|