diff options
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 | |||