RosettaCodeData/Task/Averages-Mean-angle/Stata/averages-mean-angle.stata
2018-06-22 20:57:24 +00:00

14 lines
199 B
Text

mata
function meanangle(a) {
return(arg(sum(exp(C(0,a)))))
}
deg=pi()/180
meanangle((350,10)*deg)/deg
-1.61481e-15
meanangle((90,180,270,360)*deg)/deg
0
meanangle((10,20,30)*deg)/deg
20
end