RosettaCodeData/Task/Angle-difference-between-two-bearings/J/angle-difference-between-two-bearings-2.j
2023-07-01 13:44:08 -04:00

27 lines
623 B
Text

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