RosettaCodeData/Task/Averages-Mean-angle/Lua/averages-mean-angle.lua

14 lines
396 B
Lua
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
function meanAngle (angleList)
2017-09-23 10:01:46 +02:00
local sumSin, sumCos = 0, 0
for i, angle in pairs(angleList) do
sumSin = sumSin + math.sin(math.rad(angle))
sumCos = sumCos + math.cos(math.rad(angle))
end
local result = math.deg(math.atan2(sumSin, sumCos))
return string.format("%.2f", result)
2015-11-18 06:14:39 +00:00
end
print(meanAngle({350, 10}))
print(meanAngle({90, 180, 270, 360}))
print(meanAngle({10, 20, 30}))