Angle difference between two bearings: Difference between revisions
Content added Content deleted
Alpha bravo (talk | contribs) (Added AutoHotkey) |
|||
Line 230: | Line 230: | ||
180 |
180 |
||
</pre> |
</pre> |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey>Angles:= [[20, 45] |
|||
,[-45, 45] |
|||
,[-85, 90] |
|||
,[-95, 90] |
|||
,[-45, 125] |
|||
,[-45, 145] |
|||
,[29.4803, -88.6381] |
|||
,[-78.3251, -159.036] |
|||
,[-70099.74233810938, 29840.67437876723] |
|||
,[-165313.6666297357, 33693.9894517456] |
|||
,[1174.8380510598456, -154146.66490124757] |
|||
,[60175.77306795546, 42213.07192354373]] |
|||
for i, set in angles |
|||
result .= set.2 " to " set.1 " = " Angle_difference_between_two_bearings(set) "`n" |
|||
MsgBox, 262144, , % result |
|||
return |
|||
Angle_difference_between_two_bearings(set){ |
|||
return (diff := Mod(set.2, 360) - Mod(set.1, 360)) >180 ? diff-360 : diff |
|||
}</lang> |
|||
{{out}} |
|||
<pre>45 to 20 = 25 |
|||
45 to -45 = 90 |
|||
90 to -85 = 175 |
|||
90 to -95 = -175 |
|||
125 to -45 = 170 |
|||
145 to -45 = -170 |
|||
-88.6381 to 29.4803 = -118.118400 |
|||
-159.036 to -78.3251 = -80.710900 |
|||
29840.67437876723 to -70099.74233810938 = 220.416717 |
|||
33693.9894517456 to -165313.6666297357 = -72.343919 |
|||
-154146.66490124757 to 1174.8380510598456 = -161.502952 |
|||
42213.07192354373 to 60175.77306795546 = 37.298856</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |