function result = average_angles(angles)
% function result = average_angles(angles)
%
% Average the angles given in the list in degrees
%
% Example: average_angles([10 20 30 40])
%
% $Id$

result = rad2deg(angle(sum(exp(i*deg2rad(angles)))));
