contrib/haskell/src/Hkl/Source.hs

   1 {-
   2     Copyright  : Copyright (C) 2014-2016 Synchrotron Soleil
   3     License    : GPL3+
   4
   5     Maintainer : picca@synchrotron-soleil.fr
   6     Stability  : Experimental
   7     Portability: GHC only?
   8 -}
   9 module Hkl.Source
  10        ( ki ) where
  11
  12 import Prelude hiding ((/))
  13
  14 import Numeric.LinearAlgebra (Vector, fromList)
  15
  16 import Numeric.Units.Dimensional.Prelude (nano, meter,
  17                                           (*~), (/~), (/), Length, one)
  18 import Hkl.Lattice (tau)
  19
  20 lambda :: Length Double
  21 lambda = 1.54 *~ nano meter
  22
  23 ki :: Vector Double
  24 ki = fromList [(tau / lambda) /~ (one / meter), 0, 0]