Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 14:06, 27 August 2018
, 5 years ago→{{header|Haskell}}: Replaced (if then else) with guards
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: typo) |
m (→{{header|Haskell}}: Replaced (if then else) with guards) |
||
Line 713:
(ax, ay) = (sin a, cos a)
(bx, by) = (sin b, cos b)
sign
| ((ay * bx) - (by * ax)) > 0 = 1
degrees :: Radians -> Degrees
| |||