Angle difference between two bearings: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: removed a spurious ?) |
No edit summary |
||
Line 1,973: | Line 1,973: | ||
-161.5030 |
-161.5030 |
||
37.29885</pre> |
37.29885</pre> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>ClearAll[AngleDifference] |
|||
AngleDifference[b1_, b2_] := Mod[b2 - b1, 360, -180] |
|||
AngleDifference[20, 45] |
|||
AngleDifference[-45, 45] |
|||
AngleDifference[-85, 90] |
|||
AngleDifference[-95, 90] |
|||
AngleDifference[-45, 125] |
|||
AngleDifference[-45, 145] |
|||
AngleDifference[29.4803, -88.6381] |
|||
AngleDifference[-78.3251, -159.036] |
|||
AngleDifference[-70099.74233810938, 29840.67437876723] |
|||
AngleDifference[-165313.6666297357, 33693.9894517456] |
|||
AngleDifference[1174.8380510598456, -154146.66490124757] |
|||
AngleDifference[60175.77306795546, 42213.07192354373]</lang> |
|||
{{out}} |
|||
<pre>25 |
|||
90 |
|||
175 |
|||
-175 |
|||
170 |
|||
-170 |
|||
-118.118 |
|||
-80.7109 |
|||
-139.583 |
|||
-72.3439 |
|||
-161.503 |
|||
37.2989</pre> |
|||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |