Angle difference between two bearings: Difference between revisions

Content added Content deleted
(→‎BQN: cleanup)
(→‎J: simplify)
Line 3,065: Line 3,065:


=={{header|J}}==
=={{header|J}}==
<syntaxhighlight lang="j">relativeBearing=: 180 - 360 | 180 + -


tests=: _99&".;._2 noun define
<syntaxhighlight lang="j">relativeBearing=: (180 -~ 360 | 180 + -~)/"1</syntaxhighlight>
<syntaxhighlight lang="j">tests=: _99&".;._2 noun define
20 45
20 45
-45 45
-45 45
Line 3,080: Line 3,080:
1174.8380510598456 -154146.66490124757
1174.8380510598456 -154146.66490124757
60175.77306795546 42213.07192354373
60175.77306795546 42213.07192354373
)</syntaxhighlight>
)

tests ,. relativeBearing tests
<pre> tests ,. relativeBearing/"1 tests
20 45 25
20 45 25
_45 45 90
_45 45 90
Line 3,093: Line 3,094:
_165314 33694 _72.3439
_165314 33694 _72.3439
1174.84 _154147 _161.503
1174.84 _154147 _161.503
60175.8 42213.1 37.2989</syntaxhighlight>
60175.8 42213.1 37.2989</pre>


=={{header|Java}}==
=={{header|Java}}==