Anonymous user
Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 20:02, 28 November 2021
, 2 years ago→{{header|Forth}}
No edit summary |
|||
Line 1,240:
=={{header|Forth}}==
Developed with Gforth 0.7.9_20211014 using floating point math.
<lang forth>
: Angle-Difference-stack ( b1 b2 - a +/-180)
Line 1,246:
fswap f- \ Delta angle
360e fswap fover fmod \ mod 360
fover 1.5e f* f+ \ +
fover fmod \ mod 360
fswap f2/ f- \ - 180
;
: Angle-Difference-const ( b1 b2 - a +/-180)
Line 1,283:
</pre>
=={{header|Fortran}}==
| |||