2020-12-27 16:55:53 +01:00
|
|
|
(* [[file:../constants.org::*Constants][Constants:2]] *)
|
|
|
|
|
|
|
|
|
|
(* Constants:2 ends here *)
|
|
|
|
|
|
|
|
|
|
(* [[file:../constants.org::*~epsilon~][~epsilon~:2]] *)
|
2020-12-17 19:52:09 +01:00
|
|
|
let epsilon = 2.e-15
|
2020-12-27 16:55:53 +01:00
|
|
|
(* ~epsilon~:2 ends here *)
|
|
|
|
|
|
|
|
|
|
(* [[file:../constants.org::*~integrals_cutoff~][~integrals_cutoff~:2]] *)
|
2020-12-17 19:52:09 +01:00
|
|
|
let integrals_cutoff = epsilon
|
2020-12-27 16:55:53 +01:00
|
|
|
(* ~integrals_cutoff~:2 ends here *)
|
2018-01-19 17:42:12 +01:00
|
|
|
|
2020-12-27 16:55:53 +01:00
|
|
|
(* [[file:../constants.org::*Mathematical constants][Mathematical constants:2]] *)
|
|
|
|
|
let pi = acos (-1.)
|
|
|
|
|
let two_pi = 2. *. pi
|
|
|
|
|
let sq_pi = sqrt pi
|
2018-02-01 19:06:29 +01:00
|
|
|
let sq_pi_over_two = sq_pi *. 0.5
|
2020-12-27 16:55:53 +01:00
|
|
|
let pi_inv = 1. /. pi
|
|
|
|
|
let two_over_sq_pi = 2. /. sq_pi
|
|
|
|
|
(* Mathematical constants:2 ends here *)
|
2018-01-19 17:42:12 +01:00
|
|
|
|
2020-12-27 16:55:53 +01:00
|
|
|
(* [[file:../constants.org::*Physical constants][Physical constants:2]] *)
|
2018-05-30 20:16:18 +02:00
|
|
|
let a0 = 0.529_177_210_67
|
2018-02-13 17:36:25 +01:00
|
|
|
let a0_inv = 1. /. a0
|
2018-05-30 20:16:18 +02:00
|
|
|
let ha_to_ev = 27.211_386_02
|
|
|
|
|
let ev_to_ha = 1. /. ha_to_ev
|
2020-12-27 16:55:53 +01:00
|
|
|
(* Physical constants:2 ends here *)
|
