Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 13:42, 25 September 2023
, 8 months agoAdded Easylang
Basicgames (talk | contribs) |
(Added Easylang) |
||
Line 2,198:
=={{header|Delphi}}==
See [[#Pascal]].
=={{header|EasyLang}}==
{{trans|AWK}}
<syntaxhighlight lang=easylang>
func angdiff a b .
r = (b - a) mod 360
if r < -180
r += 360
elif r >= 180
r -= 360
.
return r
.
proc pd a b . .
print b & " " & a & " -> " & angdiff a b
.
pd 20 45
pd -45 45
pd -85 90
pd -95 90
pd -45 125
pd -45 145
pd 29.4803 -88.6381
pd -78.3251 -159.036
pd -70099.74233810938 29840.67437876723
pd -165313.6666297357 33693.9894517456
pd 1174.8380510598456 -154146.66490124757
pd 60175.77306795546 42213.07192354373
</syntaxhighlight>
=={{header|Erlang}}==
The real number calculations are done using integer arithmetic to better handle
| |||