diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-09-28 12:25:56 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-09-28 12:25:56 +0000 |
| commit | 3815bc25f62124063e02af83fe3c907336dc86f5 (patch) | |
| tree | 50fddcf4e66780272fdddf5515540e0f5d200feb /examples/tests.hs | |
| parent | 74e7d42263b196c22d1f5da3d51beec69071600d (diff) | |
algorithms interface reorganized
Diffstat (limited to 'examples/tests.hs')
| -rw-r--r-- | examples/tests.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index b542113..5c14f96 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -328,6 +328,7 @@ tests = do | |||
| 328 | [ test "arith1" $ ((ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| (49 :: RM) | 328 | [ test "arith1" $ ((ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| (49 :: RM) |
| 329 | , test "arith2" $ (((1+i) .* ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| ( (140*i-51).*1 :: CM) | 329 | , test "arith2" $ (((1+i) .* ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| ( (140*i-51).*1 :: CM) |
| 330 | , test "arith3" $ exp (i.*ones(10,10)*pi) + 1 |~| 0 | 330 | , test "arith3" $ exp (i.*ones(10,10)*pi) + 1 |~| 0 |
| 331 | , test "<\\>" $ (3><2) [2,0,0,3,1,1::Double] <\> 3|>[4,9,5] |~| 2|>[2,3] | ||
| 331 | ] | 332 | ] |
| 332 | putStrLn "--------- GSL ------" | 333 | putStrLn "--------- GSL ------" |
| 333 | quickCheck $ \v -> ifft (fft v) |~| v | 334 | quickCheck $ \v -> ifft (fft v) |~| v |