diff options
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 | ||