mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-22 05:02:08 +02:00
65 lines
1.9 KiB
OCaml
65 lines
1.9 KiB
OCaml
(* Constants
|
|
* :PROPERTIES:
|
|
* :header-args: :noweb yes :comments both
|
|
* :END:
|
|
*
|
|
* All constants used in the program. *)
|
|
|
|
|
|
|
|
(* [[file:../constants.org::*Constants][Constants:1]] *)
|
|
|
|
(* Constants:1 ends here *)
|
|
|
|
(* ~epsilon~
|
|
*
|
|
* Value below which a float is considered null. Default is
|
|
* \epsilon = 2.10^{-15}. *)
|
|
|
|
|
|
(* [[file:../constants.org::*~epsilon~][~epsilon~:1]] *)
|
|
val epsilon : float
|
|
(* ~epsilon~:1 ends here *)
|
|
|
|
(* ~integrals_cutoff~
|
|
*
|
|
* Cutoff value for integrals. Default is \epsilon . *)
|
|
|
|
(* [[file:../constants.org::*~integrals_cutoff~][~integrals_cutoff~:1]] *)
|
|
val integrals_cutoff : float
|
|
(* ~integrals_cutoff~:1 ends here *)
|
|
|
|
(* Mathematical constants
|
|
*
|
|
* | ~pi~ | $\pi = 3.141~592~653~589~793~12$ |
|
|
* | ~two_pi~ | $2 \pi$ |
|
|
* | ~sq_pi~ | $\sqrt{\pi}$ |
|
|
* | ~sq_pi_over_two~ | $\sqrt{\pi} / 2$ |
|
|
* | ~pi_inv~ | $1 / \pi$ |
|
|
* | ~two_over_sq_pi~ | $2 / \sqrt{\pi}$ | *)
|
|
|
|
|
|
(* [[file:../constants.org::*Mathematical constants][Mathematical constants:1]] *)
|
|
val pi : float
|
|
val two_pi : float
|
|
val sq_pi : float
|
|
val sq_pi_over_two : float
|
|
val pi_inv : float
|
|
val two_over_sq_pi : float
|
|
(* Mathematical constants:1 ends here *)
|
|
|
|
(* Physical constants
|
|
*
|
|
* | ~a0~ | Bohr's radius : $a_0 = 0.529~177~210~67(23)$ angstrom |
|
|
* | ~a0_inv~ | $1 / a_0$ |
|
|
* | ~ha_to_ev~ | Hartree to eV conversion factor : $27.211~386~02(17)$ |
|
|
* | ~ev_to_ha~ | eV to Hartree conversion factor : 1 / ~ha_to_ev~ | *)
|
|
|
|
|
|
(* [[file:../constants.org::*Physical constants][Physical constants:1]] *)
|
|
val a0 : float
|
|
val a0_inv : float
|
|
val ha_to_ev : float
|
|
val ev_to_ha : float
|
|
(* Physical constants:1 ends here *)
|