Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 20:25, 2 October 2021
, 2 years agoAdded AutoHotkey
Alpha bravo (talk | contribs) (Added AutoHotkey) |
|||
Line 230:
180
</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}}==
| |||