From 494fe8f3e66f52244c4e0aedfd00eb15b9caceef Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 14 May 2014 19:45:08 +0200 Subject: remove cdot --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/tests') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 5398daa..b5e7c72 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -270,7 +270,7 @@ normsVTest = TestList [ #ifndef NONORMVTEST norm2PropR a = norm2 a =~= sqrt (udot a a) #endif - norm2PropC a = norm2 a =~= realPart (sqrt (cdot a a)) + norm2PropC a = norm2 a =~= realPart (sqrt (a <.> a)) a =~= b = fromList [a] |~| fromList [b] normsMTest = TestList [ @@ -660,7 +660,7 @@ a |~~| b = a :~6~: b makeUnitary v | realPart n > 1 = v / scalar n | otherwise = v - where n = sqrt (v `cdot` v) + where n = sqrt (v <.> v) -- -- | Some additional tests on big matrices. They take a few minutes. -- runBigTests :: IO () -- cgit v1.2.3