let sauvegarde = fun (echantillon:float array) (adresse:string) ->
 let oc = open_out adresse in
  for j = 0 to Data.pred_taille_d_echantillon do
   output_string oc  ( ( string_of_float echantillon.(j) ) ^ "\n" ) ;
  done ;
  close_out_noerr oc