RosettaCodeData/Task/Averages-Mean-angle/Stata/averages-mean-angle.stata
2023-07-01 13:44:08 -04: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