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 | |
| parent | 77066f8f2c7c41a6e472978c8d70994f07cc46ec (diff) | |
fix missing conj in nullspace
introduced in the recent change, detected by quickcheck
Diffstat (limited to 'packages/base')
| -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'. |