From 80be521adb679b3a41034269c35f0de4db698fab Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 5 Mar 2008 15:56:40 +0000 Subject: add Intel's MKL support --- lib/Numeric/LinearAlgebra/Tests/Properties.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/Numeric') diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs index 566d038..55e9a1b 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs @@ -40,6 +40,9 @@ module Numeric.LinearAlgebra.Tests.Properties ( import Numeric.LinearAlgebra import Numeric.LinearAlgebra.Tests.Instances(Sq(..),Her(..),Rot(..)) import Test.QuickCheck +import Debug.Trace + +debug x = trace (show x) x -- relative error dist :: (Normed t, Num t) => t -> t -> Double @@ -89,8 +92,9 @@ ones (r,c) = zeros (r,c) + 1 ----------------------------------------------------- -luProp m = m |~| p <> l <> u && det p == s +luProp m = m |~| p <> l <> u && f (det p) |~| f s where (l,u,p,s) = lu m + f x = fromList [x] invProp m = m <> inv m |~| ident (rows m) -- cgit v1.2.3