3 lines
178 B
Text
3 lines
178 B
Text
meanAngle(v)=atan(sum(i=1,#v,sin(v[i]))/sum(i=1,#v,cos(v[i])))%(2*Pi)
|
|
meanDegrees(v)=meanAngle(v*Pi/180)*180/Pi
|
|
apply(meanDegrees,[[350, 10], [90, 180, 270, 360], [10, 20, 30]])
|