Angle difference between two bearings: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
No edit summary |
||
Line 1,065: | Line 1,065: | ||
-66.6649 deg - 94.8381 deg = -161.5030 deg |
-66.6649 deg - 94.8381 deg = -161.5030 deg |
||
93.0719 deg - 55.7731 deg = 37.2989 deg</pre> |
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}}== |
=={{header|Kotlin}}== |