Angle difference between two bearings: Difference between revisions

Content added Content deleted
(Added Perl example)
m (→‎{{header|Perl 6}}: decimal-aligned output)
Line 1,372: Line 1,372:
}
}


# TESTING
for 20, 45,
for 20, 45,
-45, 45,
-45, 45,
Line 1,386: Line 1,385:
60175.77306795546, 42213.07192354373
60175.77306795546, 42213.07192354373


-> $b1, $b2 { say "$b1 ∠ $b2 = ", $b1 ∠ $b2 }</lang>
-> $b1, $b2 { printf "%10.2f %10.2f = %8.2f\n", $b1, $b2, $b1 ∠ $b2 }</lang>
{{out}}
{{out}}
<pre>20 ∠ 45 = 25
<pre> 20.00 45.00 = 25.00
-45 ∠ 45 = 90
-45.00 45.00 = 90.00
-85 ∠ 90 = 175
-85.00 90.00 = 175.00
-95 ∠ 90 = -175
-95.00 90.00 = -175.00
-45 ∠ 125 = 170
-45.00 125.00 = 170.00
-45 ∠ 145 = -170
-45.00 145.00 = -170.00
29.4803 ∠ -88.6381 = -118.1184
29.48 -88.64 = -118.12
-78.3251 ∠ -159.036 = -80.7109
-78.33 -159.04 = -80.71
-70099.74233810938 ∠ 29840.67437876723 = -139.58328312339
-70099.74 29840.67 = -139.58
-165313.6666297357 ∠ 33693.9894517456 = -72.3439185187
-165313.67 33693.99 = -72.34
1174.8380510598456 ∠ -154146.66490124757 = -161.5029523074156
1174.84 -154146.66 = -161.50
60175.77306795546 ∠ 42213.07192354373 = 37.29885558827</pre>
60175.77 42213.07 = 37.30</pre>


=={{header|Phix}}==
=={{header|Phix}}==
Retrieved from "https://rosettacode.org/wiki/Angle_difference_between_two_bearings"