Anonymous user
Averages/Mean angle: Difference between revisions
no edit summary
(Added Wren) |
No edit summary |
||
Line 828:
->ama 10 20 30
Mean angle is 20.0
</pre>
=={{header|IDL}}==
<lang IDL>function mean_angle, phi
z = total(exp(complex(0,phi*!dtor)))
return, atan(imaginary(z),real_part(z))*!radeg
end</lang>
{{out}}
<pre>IDL> print, mean_angle([350, 10])
-7.80250e-06
IDL> print, mean_angle([90, 180, 270, 360])
90.0000
IDL> print, mean_angle([10, 20, 30])
20.0000
</pre>
| |||