Angle difference between two bearings: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,005: / Line 2,005: @@
 </pre>
+=={{header|Phix}}==
+<lang Phix>include ..\Utilitys.pmt
+( "16" 1 "16" 1 "16" ) var al
+def difAngle    /# b1 b2 -- diff #/
+    swap - 360 mod
+    dup 180 > if 360 - endif
+enddef
+def test    /# b1 b2 -- #/
+    over over difAngle >ps swap " " rot " " ps> 5 tolist
+    al lalign ?
+enddef
+( "b1" " " "b2" " " "diff" ) al lalign ?
+"---------------- ---------------- ----------------" ?
+45 test
+-45 45 test
+-85 90 test
+-95 90 test
+-45 125 test
+-45 145 test
+.4803 -88.6381 test
+-78.3251 -159.036 test
+-70099.74233810938 29840.67437876723 test
+-165313.6666297357 33693.9894517456 test
+.8380510598456 -154146.66490124757 test
+.77306795546 42213.07192354373 test</lang>
+{{out}}
+<pre>       b1               b2              diff
+---------------- ---------------- ----------------
+45               25
+       -45              45               90
+       -85              90               175
+       -95              90              -175
+       -45              125              170
+       -45              145             -170
+.4803     -88.638099999999 -118.11840000000
+-78.325100000000 -159.03600000000 -80.710899999999
+-70099.742338109 29840.6743787672 -139.58328312338
+-165313.66662973 33693.9894517455 -72.343918518687
+.83805105984 -154146.66490124 -161.50295230740
+.7730679554 42213.0719235437 37.2988555882693
+=== Press any key to exit ===</pre>
 =={{header|PowerShell}}==