Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Angle difference between two bearings in BASIC256) |
(Angle difference between two bearings in Run BASIC) |
||
| Line 3,481: | Line 3,481: | ||
-161.50295230740448 |
-161.50295230740448 |
||
37.29885558826936</pre> |
37.29885558826936</pre> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>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</lang> |
|||
=={{header|Rust}}== |
=={{header|Rust}}== |
||