Angle difference between two bearings: Difference between revisions

Content added Content deleted
(Angle difference between two bearings in PureBasic)
Line 1,694:
 
---------- ANGLE DIFFERENCE BETWEEN TWO BEARINGS ---------
 
angleBetweenDegrees :: (Degrees, Degrees) -> Degrees▼
angleBetweenDegrees = degrees . bearingDelta . join bimap radians
 
bearingDelta :: (Radians, Radians) -> Radians
Line 1,709 ⟶ 1,706:
| otherwise = -1
 
▲angleBetweenDegrees :: (Degrees, Degrees) -> Degrees
angleBetweenDegrees =
degrees
. bearingDelta
. join bimap radians
 
--------------------------- TEST -------------------------
Retrieved from "https://rosettacode.org/wiki/Angle_difference_between_two_bearings"