quantum_package/ocaml/test_determinants.ml

open Qptypes;;

let test_module () = 
  let mo_tot_num = MO_number.of_int 10 in
  let det =
   [| 15L ; 7L |]
   |> Determinant.of_int64_array 
      ~n_int:(N_int_number.of_int 1)
      ~alpha:(Elec_alpha_number.of_int 4)
      ~beta:(Elec_beta_number.of_int 3)
  in
  Printf.printf "%s\n" (Determinant.to_string (~mo_tot_num:mo_tot_num) det)
;;

test_module ();;
pretty printing of MOs 2014-10-29 16:56:16 +01:00			`open Qptypes;;`

			`let test_module () =`
			`let mo_tot_num = MO_number.of_int 10 in`
			`let det =`
			`[\| 15L ; 7L \|]`
Determinants check the nb of alpha and beta electrons 2014-11-04 00:10:17 +01:00			`\|> Determinant.of_int64_array`
			`~n_int:(N_int_number.of_int 1)`
			`~alpha:(Elec_alpha_number.of_int 4)`
			`~beta:(Elec_beta_number.of_int 3)`
pretty printing of MOs 2014-10-29 16:56:16 +01:00			`in`
			`Printf.printf "%s\n" (Determinant.to_string (~mo_tot_num:mo_tot_num) det)`
			`;;`

			`test_module ();;`