LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 18:16:12 +01:00
Code Issues Releases Wiki Activity

Randomized multiplet guess

Browse Source
This commit is contained in:
Anthony Scemama 2016-12-07 20:51:58 +01:00
parent e6c8cf2e25
commit 5e4d5a62e4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ocaml/qp_create_guess.ml
View File

@ -88,8 +88,9 @@ let run ~multiplicity ezfio_file =
~alpha:(Elec_alpha_number.of_int alpha_new) ~alpha:(Elec_alpha_number.of_int alpha_new)
~beta:(Elec_beta_number.of_int beta_new) pair ) ~beta:(Elec_beta_number.of_int beta_new) pair )
in in
let c = 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 in
determinants determinants