LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Envoi Nico

This commit is contained in:
Anthony Scemama 2020-03-30 18:06:21 +02:00
parent c01b984277
commit 4dccd121e0
2 changed files with 842 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

900
Notebooks/F12_fast.ipynb
View File

File diff suppressed because it is too large Load Diff

16
Simulation.ml
View File

@ -1,6 +1,6 @@
type t = { type t = {
charge : Charge.t; charge : Charge.t;
electrons : Electrons.t ; electrons : Electrons.t;
nuclei : Nuclei.t; nuclei : Nuclei.t;
basis : Basis.t; basis : Basis.t;
ao_basis : AOBasis.t; ao_basis : AOBasis.t;
@ -19,12 +19,12 @@ let mu_erf t = t.mu_erf
let f12 t = t.f12 let f12 t = t.f12
let make ?cartesian:(cartesian=false) let make ?cartesian:(cartesian=false)
?multiplicity:(multiplicity=1) ?multiplicity:(multiplicity=1)
?charge:(charge=0) ?charge:(charge=0)
?f12 ?f12
?mu_erf ?mu_erf
~nuclei ~nuclei
basis basis
= =
(* Tune Garbage Collector *) (* Tune Garbage Collector *)
@ -35,7 +35,7 @@ let make ?cartesian:(cartesian=false)
Electrons.make ~multiplicity ~charge nuclei Electrons.make ~multiplicity ~charge nuclei
in in
let charge = let chargre =
Charge.(Nuclei.charge nuclei + Electrons.charge electrons) Charge.(Nuclei.charge nuclei + Electrons.charge electrons)
in in