Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 16:12, 14 June 2023
, 11 months ago→{{header|Craft Basic}}
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 2,107:
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">
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
endif▼
▲ endif
print "bearing 1: ", b1[i], " bearing 2: ", b2[i], " difference: ", r
next i
▲endif
end</syntaxhighlight>
| |||