10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-07-17 00:20:23 +02:00
QCaml/particles/lib/element.mli

53 lines
1.4 KiB
OCaml
Raw Normal View History

2020-12-28 23:27:33 +01:00
(* Type
*
* #+NAME: types *)
2018-01-02 22:02:01 +01:00
2020-12-29 01:08:37 +01:00
(* [[file:~/QCaml/particles/element.org::types][types]] *)
2018-01-17 15:56:57 +01:00
type t =
2020-12-28 23:27:33 +01:00
|X
|H |He
|Li|Be |B |C |N |O |F |Ne
|Na|Mg |Al|Si|P |S |Cl|Ar
|K |Ca|Sc|Ti|V |Cr|Mn|Fe|Co|Ni|Cu|Zn|Ga|Ge|As|Se|Br|Kr
|Rb|Sr|Y |Zr|Nb|Mo|Tc|Ru|Rh|Pd|Ag|Cd|In|Sn|Sb|Te|I |Xe
|Pt
2018-01-02 22:02:01 +01:00
2020-12-28 23:27:33 +01:00
exception ElementError of string
2018-03-03 21:33:32 +01:00
2020-12-28 23:27:33 +01:00
open Common
(* types ends here *)
2018-03-03 21:33:32 +01:00
2020-12-28 23:27:33 +01:00
(* Conversion *)
2018-03-03 21:33:32 +01:00
2020-12-29 01:08:37 +01:00
(* [[file:~/QCaml/particles/element.org::*Conversion][Conversion:1]] *)
2020-12-28 23:27:33 +01:00
val of_string : string -> t
val to_string : t -> string
2018-01-02 22:02:01 +01:00
val to_long_string : t -> string
2018-01-17 15:56:57 +01:00
val to_int : t -> int
val of_int : int -> t
2018-03-03 22:13:14 +01:00
2018-01-02 22:02:01 +01:00
val to_charge : t -> Charge.t
val of_charge : Charge.t -> t
2020-12-28 23:27:33 +01:00
(* Conversion:1 ends here *)
2018-03-03 22:13:14 +01:00
2020-12-28 23:27:33 +01:00
(* Database information *)
2018-03-03 22:13:14 +01:00
2020-12-29 01:08:37 +01:00
(* [[file:~/QCaml/particles/element.org::*Database information][Database information:1]] *)
2020-12-28 23:27:33 +01:00
val covalent_radius : t -> Non_negative_float.t
val vdw_radius : t -> Non_negative_float.t
val mass : t -> Mass.t
val small_core : t -> int
val large_core : t -> int
(* Database information:1 ends here *)
2018-03-03 22:13:14 +01:00
2020-12-28 23:27:33 +01:00
(* Printers *)
2020-10-08 11:42:33 +02:00
2020-12-29 01:08:37 +01:00
(* [[file:~/QCaml/particles/element.org::*Printers][Printers:1]] *)
2020-12-28 23:27:33 +01:00
val pp : Format.formatter -> t -> unit
2020-10-08 11:42:33 +02:00
val pp_long : Format.formatter -> t -> unit
2020-12-28 23:27:33 +01:00
(* Printers:1 ends here *)