From 1c1fc3f1ba1781e087d84373b29633a0dc43c8fb Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 13 Jun 2014 06:35:28 +0200 Subject: fix missing conj in nullspace introduced in the recent change, detected by quickcheck --- packages/base/src/Numeric/LinearAlgebra/Algorithms.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/base/src/Numeric') 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 k = case hint of Right t -> t _ -> rankSVD tol a s - vs = dropColumns k v + vs = conj (dropColumns k v) -- | The nullspace of a matrix. See also 'nullspaceSVD'. -- cgit v1.2.3