2017-05-31 23:47:18 +02:00
|
|
|
open Qptypes
|
2017-08-18 18:28:33 +02:00
|
|
|
open Core
|
2014-08-13 17:54:32 +02:00
|
|
|
|
|
|
|
|
type t =
|
|
|
|
|
{ sym : Symmetry.t ;
|
2014-10-23 14:42:14 +02:00
|
|
|
expo : AO_expo.t ;
|
2017-08-18 18:28:33 +02:00
|
|
|
} [@@deriving sexp]
|
2014-08-13 17:54:32 +02:00
|
|
|
|
|
|
|
|
let to_string p =
|
|
|
|
|
let { sym = s ; expo = e } = p in
|
2017-12-01 13:27:34 +01:00
|
|
|
Printf.sprintf "(%s, %22e)"
|
2014-08-13 17:54:32 +02:00
|
|
|
(Symmetry.to_string s)
|
2014-10-23 14:42:14 +02:00
|
|
|
(AO_expo.to_float e)
|
2017-05-31 23:47:18 +02:00
|
|
|
|
2014-08-13 17:54:32 +02:00
|
|
|
|
2014-10-27 01:14:18 +01:00
|
|
|
let of_sym_expo s e =
|
|
|
|
|
{ sym=s ; expo=e}
|
