added module HMatrix.Util

2 files changed, 29 insertions, 1 deletions

diff --git a/packages/base/hmatrix.cabal b/packages/base/hmatrix.cabal
index 350023f..01699f2 100644
--- a/packages/base/hmatrix.cabal
+++ b/packages/base/hmatrix.cabal
@@ -55,7 +55,7 @@ library
                         Numeric.LinearAlgebra.Data
                         Numeric.LinearAlgebra.HMatrix
                         Numeric.LinearAlgebra.Static
-                        Numeric.LinearAlgebra.Util
+                        Numeric.LinearAlgebra.HMatrix.Util
 
     other-modules:      Data.Packed,
                         Data.Packed.Vector
@@ -85,6 +85,7 @@ library
                         Numeric.Conversion
                         Numeric.Sparse
                         Numeric.LinearAlgebra.Static.Internal
+                        Numeric.LinearAlgebra.Util
 
     C-sources:          src/C/lapack-aux.c
                         src/C/vector-aux.c
diff --git a/packages/base/src/Numeric/LinearAlgebra/HMatrix/Util.hs b/packages/base/src/Numeric/LinearAlgebra/HMatrix/Util.hs
new file mode 100644
index 0000000..078a748
--- /dev/null
+++ b/packages/base/src/Numeric/LinearAlgebra/HMatrix/Util.hs
@@ -0,0 +1,27 @@
+-----------------------------------------------------------------------------
+{- |
+Module      :  Numeric.LinearAlgebra.HMatrix.Util
+Copyright   :  (c) Alberto Ruiz 2015
+License     :  BSD3
+Maintainer  :  Alberto Ruiz
+Stability   :  provisional
+
+-}
+-----------------------------------------------------------------------------
+
+module Numeric.LinearAlgebra.HMatrix.Util(
+    -- * Tools for the Kronecker product
+    --
+    -- | (see A. Fusiello, A matter of notation: Several uses of the Kronecker product in
+    --  3d computer vision, Pattern Recognition Letters 28 (15) (2007) 2127-2132)
+
+    --
+    -- | @`vec` (a \<> x \<> b) == ('trans' b ` 'kronecker' ` a) \<> 'vec' x@
+    vec,
+    vech,
+    dup,
+    vtrans
+) where
+
+import Numeric.LinearAlgebra.Util
+