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: | Line 729: | ||
faccept |
faccept |
||
cr ." Enter legal meridian: " |
cr ." Enter legal meridian: " |
||
faccept f- ( sin[latitude] longitude ) |
faccept f- fnegate ( sin[latitude] -longitude ) |
||
cr ." Hour : HourAngle , DialAngle" |
cr ." Hour : HourAngle , DialAngle" |
||
7 -6 do |
7 -6 do |
||
cr i . ." : " |
cr i 4 .r ." : " |
||
fover fover |
fover fover i 15 * s>d d>f f+ |
||
fdup f. ." , " |
fdup f. ." , " |
||
>radians |
>radians fsincos fswap frot f* fswap fatan2 >degrees f. |
||
loop fdrop fdrop ;</lang> |
loop fdrop fdrop ;</lang> |
||