let averageShortestPathLength graph = let n = float_of_int (G.nb_vertex graph) in let c = G.fold_vertex (fun v acc -> acc +. (average_distance graph v) ) graph 0.0 in c /. n