Angle difference between two bearings: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,976: | Line 1,976: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>ClearAll[AngleDifference] |
<lang Mathematica>ClearAll[AngleDifference] |
||
AngleDifference[b1_, b2_] := Mod[b2 - b1, 360, -180] |
AngleDifference[b1_, b2_] := Mod[b2 - b1, 360, -180] |