From bc0f5f546514957214326fcd459a439bfe841c48 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 19 Mar 2012 14:11:31 +0100 Subject: remove deprecated --- lib/Numeric/LinearAlgebra/Algorithms.hs | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) (limited to 'lib') diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 9ae5e32..6500e0b 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs @@ -74,8 +74,7 @@ module Numeric.LinearAlgebra.Algorithms ( haussholder, unpackQR, unpackHess, pinvTol, - ranksv, - full, economy + ranksv ) where @@ -216,21 +215,6 @@ leftSV m | vertical m = let (u,s,_) = svd m in (u,s) | otherwise = let (u,s,_) = thinSVD m in (u,s) -{-# DEPRECATED full "use fullSVD instead" #-} -full svdFun m = (u, d ,v) where - (u,s,v) = svdFun m - d = diagRect 0 s r c - r = rows m - c = cols m - -{-# DEPRECATED economy "use compactSVD instead" #-} -economy svdFun m = (u', subVector 0 d s, v') where - (u,s,v) = svdFun m - d = rankSVD (1*eps) m s `max` 1 - u' = takeColumns d u - v' = takeColumns d v - - -------------------------------------------------------------- -- | Obtains the LU decomposition of a matrix in a compact data structure suitable for 'luSolve'. -- cgit v1.2.3