diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-06-13 06:35:28 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-06-13 06:35:28 +0200 |
commit | 1c1fc3f1ba1781e087d84373b29633a0dc43c8fb (patch) | |
tree | 9139617619e62829a29ee2a199990ba107e9a270 /packages/base/src/Numeric/LinearAlgebra/Algorithms.hs | |
parent | 77066f8f2c7c41a6e472978c8d70994f07cc46ec (diff) |
fix missing conj in nullspace
introduced in the recent change, detected by quickcheck
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Algorithms.hs')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Algorithms.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs b/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs index fd9177c..21faf6e 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs | |||
@@ -472,7 +472,7 @@ nullspaceSVD hint a (s,v) = vs where | |||
472 | k = case hint of | 472 | k = case hint of |
473 | Right t -> t | 473 | Right t -> t |
474 | _ -> rankSVD tol a s | 474 | _ -> rankSVD tol a s |
475 | vs = dropColumns k v | 475 | vs = conj (dropColumns k v) |
476 | 476 | ||
477 | 477 | ||
478 | -- | The nullspace of a matrix. See also 'nullspaceSVD'. | 478 | -- | The nullspace of a matrix. See also 'nullspaceSVD'. |