Anonymous user
Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 22:52, 17 December 2016
, 7 years ago→{{header|REXX}}: added the REXX language.
(→{{header|Perl 6}}: added zkl) |
m (→{{header|REXX}}: added the REXX language.) |
||
Line 167:
-45 ∠ 125 = 170
-45 ∠ 145 = -170</pre>
=={{header|REXX}}==
<lang rexx>/*REXX pgm calculates the difference between 2 angles (degrees), normalizes the result. */
call show 20, 45 /*display the angular difference (deg).*/
call show -45, 45 /* " " " " " */
call show -85, 90 /* " " " " " */
call show -95, 90 /* " " " " " */
call show -45, 125 /* " " " " " */
call show -45, 145 /* " " " " " */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
show: procedure; parse arg a,b; $='º' /*obtain the 2 angles (are in degrees).*/
say right(a,5)$ ' -'right(b,5)$ ' ───► 'right(((((b-a)//360)+540)//360)-180, 5)$
return d /* [↑] display the angular difference.*/</lang>
'''output'''
<pre>
20º - 45º ───► 25º
-45º - 45º ───► 90º
-85º - 90º ───► 175º
-95º - 90º ───► -175º
-45º - 125º ───► 170º
-45º - 145º ───► -170º
</pre>
=={{header|zkl}}==
| |||