Angle difference between two bearings: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 1,623:
</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}}==
|