Angle difference between two bearings: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: remove extraneous line (copy / paste error) |
→{{header|Perl 6}}: added zkl |
||
Line 167: | Line 167: | ||
-45 ∠ 125 = 170 |
-45 ∠ 125 = 170 |
||
-45 ∠ 145 = -170</pre> |
-45 ∠ 145 = -170</pre> |
||
=={{header|zkl}}== |
|||
{{trans|Perl 6}} |
|||
<lang zkl>fcn bearingAngleDiff(b1,b2){ // -->Float, b1,b2 can be int or float |
|||
( (b:=(0.0 + b2 - b1 + 720)%360) > 180 ) and b - 360 or b; |
|||
}</lang> |
|||
<lang zkl>T( 20,45, -45,45, -85,90, -95,90, -45,125, -45,145 ) |
|||
.pump(Console.println,Void.Read, |
|||
fcn(b1,b2){ "%.1f\UB0; + %.1f\UB0; = %.1f\UB0;" |
|||
.fmt(b1,b2,bearingAngleDiff(b1,b2)) });</lang> |
|||
{{out}} |
|||
<pre> |
|||
20.0° + 45.0° = 25.0° |
|||
-45.0° + 45.0° = 90.0° |
|||
-85.0° + 90.0° = 175.0° |
|||
-95.0° + 90.0° = -175.0° |
|||
-45.0° + 125.0° = 170.0° |
|||
-45.0° + 145.0° = -170.0° |
|||
</pre> |
|||
==References== |
==References== |