diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-21 13:10:15 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-21 13:10:15 +0200 |
commit | 3916d70b9d170633c6122cb3c46000f0b3f32018 (patch) | |
tree | 8973c1b44200fac8c7465aa22e7bde80f3f3fced /packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |
parent | 197e88c3b56d28840217010a2871c6ea3a4dd1a4 (diff) |
Numeric.LinearAlgebra.Compat
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index e4f0846..55a805a 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
@@ -25,8 +25,9 @@ module Numeric.LinearAlgebra.Tests( | |||
25 | ) where | 25 | ) where |
26 | 26 | ||
27 | --import Data.Packed.Random | 27 | --import Data.Packed.Random |
28 | import Numeric.LinearAlgebra | 28 | import Numeric.LinearAlgebra.Compat |
29 | import Numeric.Container | 29 | import Numeric.LinearAlgebra.Util(row,col) |
30 | import Data.Packed | ||
30 | import Numeric.LinearAlgebra.LAPACK | 31 | import Numeric.LinearAlgebra.LAPACK |
31 | import Numeric.LinearAlgebra.Tests.Instances | 32 | import Numeric.LinearAlgebra.Tests.Instances |
32 | import Numeric.LinearAlgebra.Tests.Properties | 33 | import Numeric.LinearAlgebra.Tests.Properties |
@@ -67,10 +68,6 @@ a ~~ b = fromList a |~| fromList b | |||
67 | 68 | ||
68 | feye n = flipud (ident n) :: Matrix Double | 69 | feye n = flipud (ident n) :: Matrix Double |
69 | 70 | ||
70 | eps = peps :: Double | ||
71 | |||
72 | i = 0 :+ 1 :: Complex Double | ||
73 | |||
74 | 71 | ||
75 | ----------------------------------------------------------- | 72 | ----------------------------------------------------------- |
76 | 73 | ||
@@ -466,10 +463,10 @@ kroneckerTest = utest "kronecker" ok | |||
466 | x = (4><2) [3,5..] | 463 | x = (4><2) [3,5..] |
467 | b = (2><5) [0,5..] | 464 | b = (2><5) [0,5..] |
468 | v1 = vec (a <> x <> b) | 465 | v1 = vec (a <> x <> b) |
469 | v2 = (trans b `kronecker` a) <> vec x | 466 | v2 = (trans b `kronecker` a) <.> vec x |
470 | s = trans b <> b | 467 | s = trans b <> b |
471 | v3 = vec s | 468 | v3 = vec s |
472 | v4 = dup 5 <> vech s | 469 | v4 = (dup 5 :: Matrix Double) <.> vech s |
473 | ok = v1 == v2 && v3 == v4 | 470 | ok = v1 == v2 && v3 == v4 |
474 | && vtrans 1 a == trans a | 471 | && vtrans 1 a == trans a |
475 | && vtrans (rows a) a == asColumn (vec a) | 472 | && vtrans (rows a) a == asColumn (vec a) |