summaryrefslogtreecommitdiff
path: root/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs
blob: 57e5cf1ee208b54f80682f77a8cc02d686994b71 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
{-# LANGUAGE CPP #-}
--------------------------------------------------------------------------------
{- |
Module      :  Numeric.LinearAlgebra.HMatrix
Copyright   :  (c) Alberto Ruiz 2006-14
License     :  BSD3
Maintainer  :  Alberto Ruiz
Stability   :  provisional

compatibility with previous version, to be removed

-}
--------------------------------------------------------------------------------

module Numeric.LinearAlgebra.HMatrix (
    module Numeric.LinearAlgebra,
    (¦),(——),ℝ,ℂ,(<·>),app,mul, cholSH, mbCholSH, eigSH', eigenvaluesSH', geigSH'
) where

import Numeric.LinearAlgebra
import Internal.Util
import Internal.Algorithms(cholSH, mbCholSH, eigSH', eigenvaluesSH', geigSH')
#if MIN_VERSION_base(4,11,0)
import Prelude hiding ((<>))
#endif

infixr 8 <·>
(<·>) :: Numeric t => Vector t -> Vector t -> t
(<·>) = dot

app :: Numeric t => Matrix t -> Vector t -> Vector t
app m v = m #> v

mul :: Numeric t => Matrix t -> Matrix t -> Matrix t
mul a b = a <> b