Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 08:30, 23 February 2023
, 1 year ago→{{header|RPL}}
Line 4,615:
-118.1184
-80.7109
</pre>
=={{header|RPL}}==
≪ SWAP - 360 MOD
'''IF''' DUP 180 > '''THEN''' 360 - '''END''' ≫ 'BDIFF' STO
{{in}}
<pre>
20 45 BDIFF
-45 45 BDIFF
-85 90 BDIFF
-95 90 BDIFF
-45 125 BDIFF
-45 145 BDIFF
29.4803 -88.6381 BDIFF
-78.3251 -159.036 BDIFF
</pre>
{{out}}
<pre>
8: 25
7: 90
6 175
5: -175
4: 170
3: -170
2: -118.1184
1: -80.7109
</pre>
| |||