empty hmatrix-base

1 files changed, 0 insertions, 98 deletions

diff --git a/lib/Numeric/Matrix.hs b/lib/Numeric/Matrix.hs
deleted file mode 100644
index e285ff2..0000000
--- a/lib/Numeric/Matrix.hs
+++ /dev/null
@@ -1,98 +0,0 @@
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE UndecidableInstances #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-
------------------------------------------------------------------------------
--- |
--- Module      :  Numeric.Matrix
--- Copyright   :  (c) Alberto Ruiz 2010
--- License     :  GPL-style
---
--- Maintainer  :  Alberto Ruiz <aruiz@um.es>
--- Stability   :  provisional
--- Portability :  portable
---
--- Provides instances of standard classes 'Show', 'Read', 'Eq',
--- 'Num', 'Fractional', and 'Floating' for 'Matrix'.
---
--- In arithmetic operations one-component
--- vectors and matrices automatically expand to match the dimensions of the other operand.
-
------------------------------------------------------------------------------
-
-module Numeric.Matrix (
-                      ) where
-
--------------------------------------------------------------------
-
-import Numeric.Container
-import qualified Data.Monoid as M
-import Data.List(partition)
-
--------------------------------------------------------------------
-
-instance Container Matrix a => Eq (Matrix a) where
-    (==) = equal
-
-instance (Container Matrix a, Num (Vector a)) => Num (Matrix a) where
-    (+) = liftMatrix2Auto (+)
-    (-) = liftMatrix2Auto (-)
-    negate = liftMatrix negate
-    (*) = liftMatrix2Auto (*)
-    signum = liftMatrix signum
-    abs = liftMatrix abs
-    fromInteger = (1><1) . return . fromInteger
-
----------------------------------------------------
-
-instance (Container Vector a, Fractional (Vector a), Num (Matrix a)) => Fractional (Matrix a) where
-    fromRational n = (1><1) [fromRational n]
-    (/) = liftMatrix2Auto (/)
-
----------------------------------------------------------
-
-instance (Floating a, Container Vector a, Floating (Vector a), Fractional (Matrix a)) => Floating (Matrix a) where
-    sin   = liftMatrix sin
-    cos   = liftMatrix cos
-    tan   = liftMatrix tan
-    asin  = liftMatrix asin
-    acos  = liftMatrix acos
-    atan  = liftMatrix atan
-    sinh  = liftMatrix sinh
-    cosh  = liftMatrix cosh
-    tanh  = liftMatrix tanh
-    asinh = liftMatrix asinh
-    acosh = liftMatrix acosh
-    atanh = liftMatrix atanh
-    exp   = liftMatrix exp
-    log   = liftMatrix log
-    (**)  = liftMatrix2Auto (**)
-    sqrt  = liftMatrix sqrt
-    pi    = (1><1) [pi]
-
---------------------------------------------------------------------------------
-
-isScalar m = rows m == 1 && cols m == 1
-
-adaptScalarM f1 f2 f3 x y
-    | isScalar x = f1   (x @@>(0,0) ) y
-    | isScalar y = f3 x (y @@>(0,0) )
-    | otherwise = f2 x y
-
-instance (Container Vector t, Eq t, Num (Vector t), Product t) => M.Monoid (Matrix t)
-  where
-    mempty = 1
-    mappend = adaptScalarM scale mXm (flip scale)
-    
-    mconcat xs = work (partition isScalar xs)
-      where
-        work (ss,[]) = product ss
-        work (ss,ms) = scale' (product ss) (optimiseMult ms)
-        scale' x m
-            | isScalar x && x00 == 1 = m
-            | otherwise              = scale x00 m
-          where
-            x00 = x @@> (0,0)
-