diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:41:34 +0100 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:41:34 +0100 |
commit | 62d745b157313909c275a00cdb0226741678031b (patch) | |
tree | e3ff2d556ce9c0b653d25879a1336ca5ed1ced2a /packages/base/src/Numeric/LinearAlgebra/HMatrix.hs | |
parent | 617625917faa0d8ab514de2b4f0a178e66dfbf1d (diff) | |
parent | 6c120cf8c1271da8c39926b47384ac1b117e7c96 (diff) |
Merge branch 'master' into sundials-clean
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/HMatrix.hs')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/HMatrix.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs b/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs index 3a84645..57e5cf1 100644 --- a/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs +++ b/packages/base/src/Numeric/LinearAlgebra/HMatrix.hs | |||
@@ -28,7 +28,9 @@ infixr 8 <·> | |||
28 | (<·>) :: Numeric t => Vector t -> Vector t -> t | 28 | (<·>) :: Numeric t => Vector t -> Vector t -> t |
29 | (<·>) = dot | 29 | (<·>) = dot |
30 | 30 | ||
31 | app :: Numeric t => Matrix t -> Vector t -> Vector t | ||
31 | app m v = m #> v | 32 | app m v = m #> v |
32 | 33 | ||
34 | mul :: Numeric t => Matrix t -> Matrix t -> Matrix t | ||
33 | mul a b = a <> b | 35 | mul a b = a <> b |
34 | 36 | ||