Calculate circular average

Answer 1

SUMX = 0

SUMY = 0

N =0

FOR each angle a (in radians) DO

SUMX = SUMX + COS(a)

SUMY = SUMY + SIN(a)

N = N + 1

ENDFOR

AVGX = SUMX/N

AVGY = SUMY/N

IF (AVGX,AVGY) is "too close" to (0,0) THEN

report directionless, NULL VECTOR

ELSE

AVERAGEANGLE = ARCTAN(AVGY,AVGX)

ENDIF