diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-04-15 09:15:54 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-04-15 09:15:54 +0200 |
| commit | 12deeb5550d31042816b43e95f7d5678a706c32e (patch) | |
| tree | 7c21b8de36095a8e15973e2eff724d4771a06521 /packages/tests/src/Numeric | |
| parent | 3aa140213de434ab6ee6736142fd54c967f34ee9 (diff) | |
minor changes
Diffstat (limited to 'packages/tests/src/Numeric')
| -rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index a25f4cb..cf0f581 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -216,7 +216,7 @@ normsMTest = TestList [ | |||
| 216 | ] where v = (2><2) [1,-2*iC,3:+4,7] :: Matrix (Complex Double) | 216 | ] where v = (2><2) [1,-2*iC,3:+4,7] :: Matrix (Complex Double) |
| 217 | x = (2><2) [1,2,-3,5] :: Matrix Double | 217 | x = (2><2) [1,2,-3,5] :: Matrix Double |
| 218 | a =~= b = fromList [a] :~10~: fromList [b] | 218 | a =~= b = fromList [a] :~10~: fromList [b] |
| 219 | a =~~= b = fromList [a] :~5~: fromList [b] | 219 | -- a =~~= b = fromList [a] :~5~: fromList [b] |
| 220 | 220 | ||
| 221 | --------------------------------------------------------------------- | 221 | --------------------------------------------------------------------- |
| 222 | 222 | ||
| @@ -592,8 +592,8 @@ runTests n = do | |||
| 592 | 592 | ||
| 593 | 593 | ||
| 594 | -- single precision approximate equality | 594 | -- single precision approximate equality |
| 595 | infixl 4 |~~| | 595 | -- infixl 4 |~~| |
| 596 | a |~~| b = a :~6~: b | 596 | -- a |~~| b = a :~6~: b |
| 597 | 597 | ||
| 598 | makeUnitary v | realPart n > 1 = v / scalar n | 598 | makeUnitary v | realPart n > 1 = v / scalar n |
| 599 | | otherwise = v | 599 | | otherwise = v |