Angle difference between two bearings: Difference between revisions
Content added Content deleted
Line 4,615: | Line 4,615: | ||
-118.1184 |
-118.1184 |
||
-80.7109 |
-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> |
</pre> |
||