Anonymous user
Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 15:03, 28 June 2018
, 6 years agono edit summary
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
No edit summary |
||
Line 1,065:
-66.6649 deg - 94.8381 deg = -161.5030 deg
93.0719 deg - 55.7731 deg = 37.2989 deg</pre>
=={{header|Maple}}==
{{trans|C++}}
<lang Maple>getDiff := proc(b1,b2)
local r:
r := frem(b2 - b1, 360):
if r >= 180 then r := r - 360: fi:
return r:
end proc:
getDiff(20,45);
getDiff(-45,45);
getDiff(-85,90);
getDiff(-95,90);
getDiff(-45,125);
getDiff(-45,145);
getDiff(29.4803, -88.6381);
getDiff(-78.3251,-159.036);
getDiff(-70099.74233810938,29840.67437876723);
getDiff(-165313.6666297357,33693.9894517456);
getDiff(1174.8380510598456,-154146.66490124757);
getDiff(60175.77306795546,42213.07192354373)</lang>
{{Out}}
<pre>25
90
175
-175
170
-170
-118.1184
-80.7109
-139.58328
-72.3340
-161.5030
37.29885</pre>
=={{header|Kotlin}}==
| |||