summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs8
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
28import Numeric.LinearAlgebra 28import Numeric.LinearAlgebra
29import Numeric.Container
29import Numeric.LinearAlgebra.LAPACK 30import Numeric.LinearAlgebra.LAPACK
30import Numeric.LinearAlgebra.Tests.Instances 31import Numeric.LinearAlgebra.Tests.Instances
31import Numeric.LinearAlgebra.Tests.Properties 32import Numeric.LinearAlgebra.Tests.Properties
@@ -66,6 +67,11 @@ a ~~ b = fromList a |~| fromList b
66 67
67feye n = flipud (ident n) :: Matrix Double 68feye n = flipud (ident n) :: Matrix Double
68 69
70eps = peps :: Double
71
72i = 0 :+ 1 :: Complex Double
73
74
69----------------------------------------------------------- 75-----------------------------------------------------------
70 76
71detTest1 = det m == 26 77detTest1 = 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