diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-06-05 17:55:08 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-06-05 17:55:08 +0200 |
commit | a40ed5c42f779561151b3119df0ebeddfcec183c (patch) | |
tree | a7ae3d3b15a4e96bdcc4ca2a595fe4ac750c4fd9 /packages/base/src/Numeric/HMatrix.hs | |
parent | f459fcb1adfd733de406f2eb81bb0a57f5ce6779 (diff) |
maybe variant of linearSolve
Diffstat (limited to 'packages/base/src/Numeric/HMatrix.hs')
-rw-r--r-- | packages/base/src/Numeric/HMatrix.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/HMatrix.hs b/packages/base/src/Numeric/HMatrix.hs index 786fb6d..024e462 100644 --- a/packages/base/src/Numeric/HMatrix.hs +++ b/packages/base/src/Numeric/HMatrix.hs | |||
@@ -152,7 +152,8 @@ import Numeric.LinearAlgebra.Data | |||
152 | import Numeric.Matrix() | 152 | import Numeric.Matrix() |
153 | import Numeric.Vector() | 153 | import Numeric.Vector() |
154 | import Data.Packed.Numeric hiding ((<>)) | 154 | import Data.Packed.Numeric hiding ((<>)) |
155 | import Numeric.LinearAlgebra.Algorithms | 155 | import Numeric.LinearAlgebra.Algorithms hiding (linearSolve) |
156 | import qualified Numeric.LinearAlgebra.Algorithms as A | ||
156 | import Numeric.LinearAlgebra.Util | 157 | import Numeric.LinearAlgebra.Util |
157 | import Numeric.LinearAlgebra.Random | 158 | import Numeric.LinearAlgebra.Random |
158 | import Numeric.Sparse((!#>)) | 159 | import Numeric.Sparse((!#>)) |
@@ -163,3 +164,6 @@ import Numeric.LinearAlgebra.Util.CG | |||
163 | (<>) = mXm | 164 | (<>) = mXm |
164 | infixr 8 <> | 165 | infixr 8 <> |
165 | 166 | ||
167 | -- | Solve a linear system (for square coefficient matrix and several right-hand sides) using the LU decomposition, returning Nothing for a singular system. For underconstrained or overconstrained systems use 'linearSolveLS' or 'linearSolveSVD'. | ||
168 | linearSolve m b = A.mbLinearSolve m b | ||
169 | |||