Randomized multiplet guess

2016-12-07 20:51:58 +01:00 · 2016-12-07 20:51:58 +01:00 · 5e4d5a62e4
parent e6c8cf2e25
commit 5e4d5a62e4
1 changed files with 2 additions and 1 deletions
--- a/ocaml/qp_create_guess.ml
+++ b/ocaml/qp_create_guess.ml
@ -88,8 +88,9 @@ let run ~multiplicity ezfio_file =
      ~alpha:(Elec_alpha_number.of_int alpha_new)
      ~beta:(Elec_beta_number.of_int beta_new) pair )
  in
+
  let c = 
-    Array.create ~len:(List.length determinants) (Det_coef.of_float 1.)
+    Array.init (List.length determinants) (fun _ -> Det_coef.of_float ((Random.float 2.)-.1.))
  in
 
  determinants