Angle difference between two bearings: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 1,623: | Line 1,623: | ||
</pre> |
</pre> |
||
=={{header|Klingphix}}== |
|||
{{trans|NewLISP}} |
|||
<lang Klingphix>include ..\Utilitys.tlhy |
|||
:bearing sub 360 mod 540 add 360 mod 180 sub ; |
|||
20 45 bearing |
|||
-45 45 bearing |
|||
-85 90 bearing |
|||
-95 90 bearing |
|||
-45 125 bearing |
|||
-45 145 bearing |
|||
29.4803 -88.6381 bearing |
|||
-78.3251 -159.036 bearing |
|||
-70099.74233810938 29840.67437876723 bearing |
|||
-165313.6666297357 33693.9894517456 bearing |
|||
1174.8380510598456 -154146.66490124757 bearing |
|||
60175.77306795546 42213.07192354373 bearing |
|||
pstack |
|||
" " input</lang> |
|||
{{out}} |
|||
<pre>(-25, -90, -175, 175, -170, 170, 118.118, 80.7109, 139.583, 72.3439, 161.503, -37.2989)</pre> |
|||
=={{header|Kotlin}}== |
=={{header|Kotlin}}== |