Jump to content

Angle difference between two bearings: Difference between revisions

m
(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 -------------------------
9,655

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.