From 57487d828065ea219cdb33c9dc177b67c60b34c7 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 14 Jun 2015 19:49:10 +0200 Subject: minor changes --- packages/base/src/Numeric/LinearAlgebra.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'packages/base/src/Numeric/LinearAlgebra.hs') diff --git a/packages/base/src/Numeric/LinearAlgebra.hs b/packages/base/src/Numeric/LinearAlgebra.hs index 0f8efa4..fe524cc 100644 --- a/packages/base/src/Numeric/LinearAlgebra.hs +++ b/packages/base/src/Numeric/LinearAlgebra.hs @@ -80,6 +80,7 @@ module Numeric.LinearAlgebra ( cholSolve, cgSolve, cgSolve', + linearSolve', -- * Inverse and pseudoinverse inv, pinv, pinvTol, @@ -136,8 +137,9 @@ module Numeric.LinearAlgebra ( Seed, RandDist(..), randomVector, rand, randn, gaussianSample, uniformSample, -- * Misc - meanCov, rowOuters, pairwiseD2, unitary, peps, relativeError, haussholder, optimiseMult, udot, nullspaceSVD, orthSVD, ranksv, gaussElim, luST, magnit, - ℝ,ℂ,iC, + meanCov, rowOuters, pairwiseD2, unitary, peps, relativeError, magnit, + haussholder, optimiseMult, udot, nullspaceSVD, orthSVD, ranksv, + iC, -- * Auxiliary classes Element, Container, Product, Numeric, LSDiv, Complexable, RealElement, @@ -156,7 +158,7 @@ import Numeric.Vector() import Internal.Matrix import Internal.Container hiding ((<>)) import Internal.Numeric hiding (mul) -import Internal.Algorithms hiding (linearSolve,Normed,orth,luPacked') +import Internal.Algorithms hiding (linearSolve,Normed,orth,luPacked',linearSolve') import qualified Internal.Algorithms as A import Internal.Util import Internal.Random @@ -240,3 +242,5 @@ orth m = orthSVD (Left (1*eps)) m (leftSV m) luPacked' x = mutable (luST (magnit 0)) x +linearSolve' x y = gaussElim x y + -- cgit v1.2.3