aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Angle-difference-between-two-bearings/AppleScript/angle-difference-between-two-bearings.applescript Normal file
View file

@ -0,0 +1,18 @@
on diff_bearing({b1, b2})
set r to (b2 - b1) mod 360
if r > 180 then
r - 360
else if r < -180 then
r + 360
else
r
end if
end diff_bearing
set test_bearings to {{20, 45}, {-45, 45}, {-85, 90}, {-95, 90}, {-45, 125}, {-45, 145}, {29.4803, -88.6381}, {-78.3251, -159.036}}
set big_bearings to {{-7.00997423381094E+4, 2.98406743787672E+4}, {-1.65313666629736E+5, 3.36939894517456E+4}, {1174.838051059846, -1.54146664901248E+5}, {6.01757730679555E+4, 4.22130719235437E+4}}
repeat with b in test_bearings & big_bearings
log diff_bearing(b)
end repeat