Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Angle difference between two bearings- K language implementation given) |
|||
Line 1,047: | Line 1,047: | ||
1174.8 - -154146.7 = -161.5 |
1174.8 - -154146.7 = -161.5 |
||
60175.8 - 42213.1 = -322.7</pre> |
60175.8 - 42213.1 = -322.7</pre> |
||
=={{header|K}}== |
|||
<lang K> |
|||
/ Angle difference between two angles |
|||
/ angledif.k |
|||
angdif: {[b1;b2]; :[(r:(b2-b1)!360.0)<-180.0;r+:360.0;r>180.0;r-:360.0];:r} |
|||
</lang> |
|||
The output of a session is given below: |
|||
{{out}} |
|||
<pre> |
|||
K Console - Enter \ for help |
|||
\l angledif |
|||
angdif[20;45] |
|||
25.0 |
|||
angdif[-45;45] |
|||
90.0 |
|||
angdif[-85;90] |
|||
175.0 |
|||
angdif[-95;90] |
|||
-175.0 |
|||
angdif[-45;125] |
|||
170.0 |
|||
angdif[29.4803;-88.6381] |
|||
-118.1184 |
|||
angdif[-78.3251;-159.036] |
|||
-80.7109 |
|||
angdif[-70099.74233810938;29840.67437876723] |
|||
-139.5833 |
|||
</pre> |
|||
=={{header|Lua}}== |
=={{header|Lua}}== |