average_bearing function

Average of bearings