Data update

Task/Angle-difference-between-two-bearings/BQN/angle-difference-between-two-bearings.bqn

@@ -0,0 +1,12 @@
+Adiff ← 180 - 360 | 180 + -
+
+tests ← [20‿45, ¯45‿45, ¯85‿90, ¯95‿90, ¯45‿125, ¯45‿145
+         99‿279, 29.4803‿¯88.6381, ¯78.3251‿¯159.036
+         ¯70099.74233810938‿29840.67437876723
+         ¯165313.6666297357‿33693.9894517456
+         1174.8380510598456‿¯154146.66490124757
+         60175.77306795546‿42213.07192354373]
+
+Round ← ⌊∘+⟜0.5⌾(1e3⊸×)
+
+Round∘∾⟜(Adiff´)˘ tests

Task/Angle-difference-between-two-bearings/Chipmunk-Basic/angle-difference-between-two-bearings.basic

@@ -0,0 +1,32 @@
+100 cls
+110 sub getdifference(b1,b2)
+120   r = (b2-b1) mod 360
+130   if r >= 180 then r = r-360
+140   print using "#######.######";b1;
+150   print using "    #######.######";b2;
+160   print using "    #######.######";r
+170 end sub
+180 print "Input in -180 to +180 range:"
+190 print "     b1                b2               difference"
+200 print " -------------------------------------------------"
+210 getdifference(20,45)
+220 getdifference(-45,45)
+230 getdifference(-85,90)
+240 getdifference(-95,90)
+250 getdifference(-45,125)
+260 getdifference(-45,145)
+270 getdifference(-45,125)
+280 getdifference(-45,145)
+290 getdifference(29.4803,-88.6381)
+300 getdifference(-78.3251,-159.036)
+310 getdifference(-70099.742338,29840.674379)
+320 getdifference(-165313.66663,33693.989452)
+330 getdifference(1174.838051,-154146.664901)
+340 print
+350 print "Input in wider range:"
+360 print "     b1                b2               difference"
+370 print " -------------------------------------------------"
+380 getdifference(-70099.742338,29840.674379)
+390 getdifference(-165313.66663,33693.989452)
+400 getdifference(1174.838051,-154146.664901)
+410 getdifference(60175.773068,42213.071924)

Task/Angle-difference-between-two-bearings/J/angle-difference-between-two-bearings-1.j

@@ -1 +0,0 @@
-relativeBearing=: (180 -~ 360 | 180 + -~)/"1

Task/Angle-difference-between-two-bearings/J/angle-difference-between-two-bearings-2.j

@@ -1,27 +0,0 @@
-tests=: _99&".;._2 noun define
-20 45
--45 45
--85 90
--95 90
--45 125
--45 145
-29.4803  -88.6381
--78.3251  -159.036
--70099.74233810938  29840.67437876723
--165313.6666297357  33693.9894517456
-1174.8380510598456  -154146.66490124757
-60175.77306795546  42213.07192354373
-)
-   tests ,. relativeBearing tests
-      20       45       25
-     _45       45       90
-     _85       90      175
-     _95       90     _175
-     _45      125      170
-     _45      145     _170
- 29.4803 _88.6381 _118.118
-_78.3251 _159.036 _80.7109
-_70099.7  29840.7 _139.583
- _165314    33694 _72.3439
- 1174.84  _154147 _161.503
- 60175.8  42213.1  37.2989

Task/Angle-difference-between-two-bearings/J/angle-difference-between-two-bearings.j

@@ -0,0 +1,16 @@
+relativeBearing=: 180 - 360 | 180 + -
+
+tests=: _99&".;._2 noun define
+20 45
+-45 45
+-85 90
+-95 90
+-45 125
+-45 145
+29.4803  -88.6381
+-78.3251  -159.036
+-70099.74233810938  29840.67437876723
+-165313.6666297357  33693.9894517456
+1174.8380510598456  -154146.66490124757
+60175.77306795546  42213.07192354373
+)