diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-21 10:30:55 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-21 10:30:55 +0200 |
commit | 197e88c3b56d28840217010a2871c6ea3a4dd1a4 (patch) | |
tree | 825be9d6c9d87d23f7e5497c0133d11d52c63535 /packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |
parent | e07c3dee7235496b71a89233106d93f6cc94ada1 (diff) |
update dependencies, move examples etc
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index b5e7c72..e4f0846 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
@@ -26,6 +26,7 @@ module Numeric.LinearAlgebra.Tests( | |||
26 | 26 | ||
27 | --import Data.Packed.Random | 27 | --import Data.Packed.Random |
28 | import Numeric.LinearAlgebra | 28 | import Numeric.LinearAlgebra |
29 | import Numeric.Container | ||
29 | import Numeric.LinearAlgebra.LAPACK | 30 | import Numeric.LinearAlgebra.LAPACK |
30 | import Numeric.LinearAlgebra.Tests.Instances | 31 | import Numeric.LinearAlgebra.Tests.Instances |
31 | import Numeric.LinearAlgebra.Tests.Properties | 32 | import Numeric.LinearAlgebra.Tests.Properties |
@@ -66,6 +67,11 @@ a ~~ b = fromList a |~| fromList b | |||
66 | 67 | ||
67 | feye n = flipud (ident n) :: Matrix Double | 68 | feye n = flipud (ident n) :: Matrix Double |
68 | 69 | ||
70 | eps = peps :: Double | ||
71 | |||
72 | i = 0 :+ 1 :: Complex Double | ||
73 | |||
74 | |||
69 | ----------------------------------------------------------- | 75 | ----------------------------------------------------------- |
70 | 76 | ||
71 | detTest1 = det m == 26 | 77 | detTest1 = det m == 26 |
@@ -427,8 +433,6 @@ conformTest = utest "conform" ok | |||
427 | ,26,28,30 | 433 | ,26,28,30 |
428 | ,39,41,43 | 434 | ,39,41,43 |
429 | ,52,54,56] | 435 | ,52,54,56] |
430 | row = asRow . fromList | ||
431 | col = asColumn . fromList :: [Double] -> Matrix Double | ||
432 | 436 | ||
433 | --------------------------------------------------------------------- | 437 | --------------------------------------------------------------------- |
434 | 438 | ||