Angle difference between two bearings: Difference between revisions

m
→‎{{header|Perl 6}}: decimal-aligned output
(Added Perl example)
m (→‎{{header|Perl 6}}: decimal-aligned output)
Line 1,372:
}
 
# TESTING
for 20, 45,
-45, 45,
Line 1,386 ⟶ 1,385:
60175.77306795546, 42213.07192354373
 
-> $b1, $b2 { sayprintf "$b1%10.2f ∠ $b2%10.2f = %8.2f\n", $b1, $b2, $b1 ∠ $b2 }</lang>
{{out}}
<pre> 20.00 45.00 = 25.00
-45.00 45.00 = 90.00
-85.00 90.00 = 175.00
-95.00 90.00 = -175.00
-45.00 125.00 = 170.00
-45.00 145.00 = -170.00
29.480348 -88.638164 = -118.118412
-78.325133 -159.03604 = -80.710971
-70099.7423381093874 29840.6743787672367 = -139.5832831233958
-165313.666629735767 33693.989451745699 = -72.343918518734
1174.8380510598456 ∠84 -154146.6649012475766 = -161.502952307415650
60175.7730679554677 42213.0719235437307 = 37.2988555882730</pre>
 
=={{header|Phix}}==
2,392

edits