diff options
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs index 81cbf61..70d36e8 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs | |||
@@ -43,9 +43,7 @@ module Numeric.LinearAlgebra.Tests.Properties ( | |||
43 | linearSolveProp, linearSolveProp2 | 43 | linearSolveProp, linearSolveProp2 |
44 | ) where | 44 | ) where |
45 | 45 | ||
46 | import Numeric.LinearAlgebra --hiding (real,complex) | 46 | import Numeric.LinearAlgebra.Compat --hiding (real,complex) |
47 | import Numeric.LinearAlgebra.Devel | ||
48 | import Numeric.Container | ||
49 | import Numeric.LinearAlgebra.LAPACK | 47 | import Numeric.LinearAlgebra.LAPACK |
50 | import Debug.Trace | 48 | import Debug.Trace |
51 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector | 49 | import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector |
@@ -95,13 +93,13 @@ positiveDefinite m = minimum (toList e) > 0 | |||
95 | 93 | ||
96 | upperTriang m = rows m == 1 || down == z | 94 | upperTriang m = rows m == 1 || down == z |
97 | where down = fromList $ concat $ zipWith drop [1..] (toLists (ctrans m)) | 95 | where down = fromList $ concat $ zipWith drop [1..] (toLists (ctrans m)) |
98 | z = constant 0 (dim down) | 96 | z = konst 0 (dim down) |
99 | 97 | ||
100 | upperHessenberg m = rows m < 3 || down == z | 98 | upperHessenberg m = rows m < 3 || down == z |
101 | where down = fromList $ concat $ zipWith drop [2..] (toLists (ctrans m)) | 99 | where down = fromList $ concat $ zipWith drop [2..] (toLists (ctrans m)) |
102 | z = constant 0 (dim down) | 100 | z = konst 0 (dim down) |
103 | 101 | ||
104 | zeros (r,c) = reshape c (constant 0 (r*c)) | 102 | zeros (r,c) = reshape c (konst 0 (r*c)) |
105 | 103 | ||
106 | ones (r,c) = zeros (r,c) + 1 | 104 | ones (r,c) = zeros (r,c) + 1 |
107 | 105 | ||