19 lines
462 B
Plaintext
19 lines
462 B
Plaintext
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)
|