15 lines
521 B
Plaintext
15 lines
521 B
Plaintext
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]
|