type nuage = float*float array;;
let creer_nuage_points (b:int) : float*float list=
;;