2014-10-26 17:29:11 +01:00
|
|
|
exception ElementError of string
|
|
|
|
|
|
|
|
|
|
type t =
|
|
|
|
|
|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
|
2016-07-04 18:01:04 +02:00
|
|
|
|Rb|Sr|Y |Zr|Nb|Mo|Tc|Ru|Rh|Pd|Ag|Cd|In|Sn|Sb|Te|I |Xe
|
2017-07-17 15:37:18 +02:00
|
|
|
|Pt
|
2017-08-18 18:28:33 +02:00
|
|
|
[@@deriving sexp]
|
2014-10-26 17:29:11 +01:00
|
|
|
|
|
|
|
|
(** String conversion functions *)
|
|
|
|
|
val of_string : string -> t
|
|
|
|
|
val to_string : t -> string
|
|
|
|
|
val to_long_string : t -> string
|
|
|
|
|
|
2015-11-17 22:25:26 +01:00
|
|
|
(** Properties *)
|
2014-10-26 17:29:11 +01:00
|
|
|
val to_charge : t -> Charge.t
|
|
|
|
|
val of_charge : Charge.t -> t
|
2015-11-17 22:25:26 +01:00
|
|
|
val covalent_radius : t -> Qptypes.Positive_float.t
|
|
|
|
|
val vdw_radius : t -> Qptypes.Positive_float.t
|
2016-09-08 22:37:05 +02:00
|
|
|
val mass : t -> Qptypes.Positive_float.t
|
