mirror of https://gitlab.com/scemama/QCaml.git
25 lines
333 B
OCaml
25 lines
333 B
OCaml
(** Spin *)
|
|
|
|
(** Type *)
|
|
|
|
type t = (* m_s *)
|
|
| Alfa (* {% $m_s = +1/2$ %} *)
|
|
| Beta (* {% $m_s = -1/2$ %} *)
|
|
|
|
|
|
(** Functions *)
|
|
|
|
let other = function
|
|
| Alfa -> Beta
|
|
| Beta -> Alfa
|
|
|
|
let to_string = function
|
|
| Alfa -> "Alpha"
|
|
| Beta -> "Beta "
|
|
|
|
|
|
(** Printers *)
|
|
|
|
let pp ppf t =
|
|
Format.fprintf ppf "@[%s@]" (to_string t)
|