diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-19 14:11:31 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-19 14:11:31 +0100 |
commit | bc0f5f546514957214326fcd459a439bfe841c48 (patch) | |
tree | 96746afeb234ff0bd50e966b5df89979705cdccc | |
parent | 355eae1c5dcd83be84ae6d3379480b98a675dc08 (diff) |
remove deprecated
-rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 18 |
1 files changed, 1 insertions, 17 deletions
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 ( | |||
74 | haussholder, | 74 | haussholder, |
75 | unpackQR, unpackHess, | 75 | unpackQR, unpackHess, |
76 | pinvTol, | 76 | pinvTol, |
77 | ranksv, | 77 | ranksv |
78 | full, economy | ||
79 | ) where | 78 | ) where |
80 | 79 | ||
81 | 80 | ||
@@ -216,21 +215,6 @@ leftSV m | vertical m = let (u,s,_) = svd m in (u,s) | |||
216 | | otherwise = let (u,s,_) = thinSVD m in (u,s) | 215 | | otherwise = let (u,s,_) = thinSVD m in (u,s) |
217 | 216 | ||
218 | 217 | ||
219 | {-# DEPRECATED full "use fullSVD instead" #-} | ||
220 | full svdFun m = (u, d ,v) where | ||
221 | (u,s,v) = svdFun m | ||
222 | d = diagRect 0 s r c | ||
223 | r = rows m | ||
224 | c = cols m | ||
225 | |||
226 | {-# DEPRECATED economy "use compactSVD instead" #-} | ||
227 | economy svdFun m = (u', subVector 0 d s, v') where | ||
228 | (u,s,v) = svdFun m | ||
229 | d = rankSVD (1*eps) m s `max` 1 | ||
230 | u' = takeColumns d u | ||
231 | v' = takeColumns d v | ||
232 | |||
233 | |||
234 | -------------------------------------------------------------- | 218 | -------------------------------------------------------------- |
235 | 219 | ||
236 | -- | Obtains the LU decomposition of a matrix in a compact data structure suitable for 'luSolve'. | 220 | -- | Obtains the LU decomposition of a matrix in a compact data structure suitable for 'luSolve'. |