Angle difference between two bearings: Difference between revisions

Content added Content deleted
(Angle difference between two bearings in PureBasic)
Line 1,694: Line 1,694:


---------- ANGLE DIFFERENCE BETWEEN TWO BEARINGS ---------
---------- ANGLE DIFFERENCE BETWEEN TWO BEARINGS ---------

⚫
angleBetweenDegrees :: (Degrees, Degrees) -> Degrees
angleBetweenDegrees = degrees . bearingDelta . join bimap radians


bearingDelta :: (Radians, Radians) -> Radians
bearingDelta :: (Radians, Radians) -> Radians
Line 1,709: Line 1,706:
| otherwise = -1
| otherwise = -1


⚫
angleBetweenDegrees :: (Degrees, Degrees) -> Degrees
angleBetweenDegrees =
degrees
. bearingDelta
. join bimap radians


--------------------------- TEST -------------------------
--------------------------- TEST -------------------------
Retrieved from "https://rosettacode.org/wiki/Angle_difference_between_two_bearings"