From aef0333b5180ea79e539bd53194f1dfed20b7db5 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 7 Feb 2010 09:29:50 +0000 Subject: added odeSolve --- lib/Numeric/LinearAlgebra/Tests/Properties.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Numeric/LinearAlgebra/Tests/Properties.hs') diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs index 405ce64..42c6ce2 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs @@ -148,7 +148,7 @@ svdProp4 m' = m |~| u <> real (diag s) <> trans v && orthonormal u && orthonormal v && (dim s == r || r == 0 && dim s == 1) where (u,s,v) = compactSVD m - m = m' <-> m' + m = fromBlocks [[m'],[m']] r = rank m' svdProp5a m = and (map (s1|~|) [s2,s3,s4,s5,s6]) where -- cgit v1.2.3