mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-21 12:42:05 +02:00
33 lines
725 B
OCaml
33 lines
725 B
OCaml
|
|
|
|
(* Note :
|
|
* ~Alfa~ if written with an 'f' instead of 'ph' because it has the same number of
|
|
* letters as ~Beta~, so the alignment of the code is nicer. *)
|
|
|
|
|
|
(* [[file:~/QCaml/common/spin.org::*Type][Type:2]] *)
|
|
type t = (* m_s *)
|
|
| Alfa (* {% $m_s = +1/2$ %} *)
|
|
| Beta (* {% $m_s = -1/2$ %} *)
|
|
(* Type:2 ends here *)
|
|
|
|
|
|
|
|
(* Returns the opposite spin *)
|
|
|
|
|
|
(* [[file:~/QCaml/common/spin.org::*Functions][Functions:2]] *)
|
|
let other = function
|
|
| Alfa -> Beta
|
|
| Beta -> Alfa
|
|
|
|
let to_string = function
|
|
| Alfa -> "Alpha"
|
|
| Beta -> "Beta "
|
|
(* Functions:2 ends here *)
|
|
|
|
(* [[file:~/QCaml/common/spin.org::*Printers][Printers:2]] *)
|
|
let pp ppf t =
|
|
Format.fprintf ppf "@[%s@]" (to_string t)
|
|
(* Printers:2 ends here *)
|