Anonymous user
Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 06:42, 17 December 2016
, 7 years ago→{{header|Perl 6}}: added zkl
Thundergnat (talk | contribs) (→{{header|Perl 6}}: remove extraneous line (copy / paste error)) |
(→{{header|Perl 6}}: added zkl) |
||
Line 167:
-45 ∠ 125 = 170
-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==
| |||