22 lines
640 B
Plaintext
22 lines
640 B
Plaintext
sub getDifference b1, b2
|
|
r = (b2 - b1) mod 360
|
|
if r >= 180 then r = r - 360
|
|
print r
|
|
end sub
|
|
|
|
print "Input in -180 to +180 range:"
|
|
call getDifference 20, 45
|
|
call getDifference -45, 45
|
|
call getDifference -85, 90
|
|
call getDifference -95, 90
|
|
call getDifference -45, 125
|
|
call getDifference -45, 145
|
|
call getDifference -45, 125
|
|
call getDifference -45, 145
|
|
call getDifference 29.4803, -88.6381
|
|
call getDifference -78.3251, -159.036
|
|
print "Input in wider range:"
|
|
call getDifference -70099.74233810938, 29840.67437876723
|
|
call getDifference -165313.6666297357, 33693.9894517456
|
|
call getDifference 1174.8380510598456, -154146.66490124757
|