diff options
Diffstat (limited to 'packages/tests/src/Numeric')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 4 |
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 7e1799e..5398daa 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 (udot a (conj a))) | 273 | norm2PropC a = norm2 a =~= realPart (sqrt (cdot a a)) |
274 | a =~= b = fromList [a] |~| fromList [b] | 274 | a =~= b = fromList [a] |~| fromList [b] |
275 | 275 | ||
276 | normsMTest = TestList [ | 276 | normsMTest = TestList [ |
@@ -660,7 +660,7 @@ a |~~| b = a :~6~: b | |||
660 | 660 | ||
661 | makeUnitary v | realPart n > 1 = v / scalar n | 661 | makeUnitary v | realPart n > 1 = v / scalar n |
662 | | otherwise = v | 662 | | otherwise = v |
663 | where n = sqrt (conj v `udot` v) | 663 | where n = sqrt (v `cdot` 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 () |