Angle difference between two bearings: Difference between revisions

Content added Content deleted
Line 2,107: Line 2,107:


=={{header|Craft Basic}}==
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">input "angle 1:", a1
<syntaxhighlight lang="basic">precision 4
input "angle 2:", a2


let b = (a2 - a1) % 360
define s1 = 0, s2 = 0


dim b1[20, -45, -85, -95, -45, -45, -45, -45, 29.4803, -78.3251]
⚫
if b > 180 then
dim b2[45, 45, 90, 90, 125, 145, 125, 145, -88.6381, -159.036]


arraysize s1, b1
⚫
let b = b - 360
arraysize s2, b2


if s1 = s2 then
⚫
endif


for i = 0 to s1 - 1
⚫
if b < -180 then


let b = b + 360
let r = (b2[i] - b1[i]) % 360


⚫
if r >= 180 then
⚫
endif


⚫
let r = r - 360
print "difference: ", b

⚫
endif

print "bearing 1: ", b1[i], " bearing 2: ", b2[i], " difference: ", r

next i

⚫
endif


end</syntaxhighlight>
end</syntaxhighlight>
Retrieved from "https://rosettacode.org/wiki/Angle_difference_between_two_bearings"