diff options
| author | Alberto Ruiz <aruiz@um.es> | 2012-02-23 19:08:16 +0100 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2012-02-23 19:08:16 +0100 |
| commit | 9322df983400894625105f66e36e5718329c0053 (patch) | |
| tree | 07c71310724f6c04dacd17814a98875aeee137b4 /lib/Numeric/LinearAlgebra/Algorithms.hs | |
| parent | 1d29051bc2ee1838a326d2d73f4bcf5907d4ebfd (diff) | |
minor doc fix
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index e2ecd4d..435cc5a 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
| @@ -209,7 +209,7 @@ rightSV :: Field t => Matrix t -> (Vector Double, Matrix t) | |||
| 209 | rightSV m | vertical m = let (_,s,v) = thinSVD m in (s,v) | 209 | rightSV m | vertical m = let (_,s,v) = thinSVD m in (s,v) |
| 210 | | otherwise = let (_,s,v) = svd m in (s,v) | 210 | | otherwise = let (_,s,v) = svd m in (s,v) |
| 211 | 211 | ||
| 212 | -- | Singular values and all right singular vectors. | 212 | -- | Singular values and all left singular vectors. |
| 213 | leftSV :: Field t => Matrix t -> (Matrix t, Vector Double) | 213 | leftSV :: Field t => Matrix t -> (Matrix t, Vector Double) |
| 214 | leftSV m | vertical m = let (u,s,_) = svd m in (u,s) | 214 | leftSV m | vertical m = let (u,s,_) = svd m in (u,s) |
| 215 | | otherwise = let (u,s,_) = thinSVD m in (u,s) | 215 | | otherwise = let (u,s,_) = thinSVD m in (u,s) |