summaryrefslogtreecommitdiff
path: root/packages
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2014-05-14 19:45:08 +0200
committerAlberto Ruiz <aruiz@um.es>2014-05-14 19:45:08 +0200
commit494fe8f3e66f52244c4e0aedfd00eb15b9caceef (patch)
treecdc5a289e55b2a943374337d47d347ec921ccc23 /packages
parent202bd30174f8e5b70c45c087a9865341c6f855f9 (diff)
remove cdot
Diffstat (limited to 'packages')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs4
1 files changed, 2 insertions, 2 deletions
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 [
270#ifndef NONORMVTEST 270#ifndef NONORMVTEST
271 norm2PropR a = norm2 a =~= sqrt (udot a a) 271 norm2PropR a = norm2 a =~= sqrt (udot a a)
272#endif 272#endif
273 norm2PropC a = norm2 a =~= realPart (sqrt (cdot a a)) 273 norm2PropC a = norm2 a =~= realPart (sqrt (a <.> a))
274 a =~= b = fromList [a] |~| fromList [b] 274 a =~= b = fromList [a] |~| fromList [b]
275 275
276normsMTest = TestList [ 276normsMTest = TestList [
@@ -660,7 +660,7 @@ a |~~| b = a :~6~: b
660 660
661makeUnitary v | realPart n > 1 = v / scalar n 661makeUnitary v | realPart n > 1 = v / scalar n
662 | otherwise = v 662 | otherwise = v
663 where n = sqrt (v `cdot` v) 663 where n = sqrt (v <.> v)
664 664
665-- -- | Some additional tests on big matrices. They take a few minutes. 665-- -- | Some additional tests on big matrices. They take a few minutes.
666-- runBigTests :: IO () 666-- runBigTests :: IO ()