diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-05-14 19:45:08 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-05-14 19:45:08 +0200 |
| commit | 494fe8f3e66f52244c4e0aedfd00eb15b9caceef (patch) | |
| tree | cdc5a289e55b2a943374337d47d347ec921ccc23 /packages/tests | |
| parent | 202bd30174f8e5b70c45c087a9865341c6f855f9 (diff) | |
remove cdot
Diffstat (limited to 'packages/tests')
| -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 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 | ||
| 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 (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 () |