7 lines
155 B
Text
7 lines
155 B
Text
open Complex
|
|
|
|
let mean_angle angles =
|
|
let sum =
|
|
List.fold_left (fun sum a -> add sum (polar 1.0 (deg2rad a))) zero angles
|
|
in
|
|
rad2deg (arg sum)
|