From 3916d70b9d170633c6122cb3c46000f0b3f32018 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 21 May 2014 13:10:15 +0200 Subject: Numeric.LinearAlgebra.Compat --- packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests') 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 ( linearSolveProp, linearSolveProp2 ) where -import Numeric.LinearAlgebra --hiding (real,complex) -import Numeric.LinearAlgebra.Devel -import Numeric.Container +import Numeric.LinearAlgebra.Compat --hiding (real,complex) import Numeric.LinearAlgebra.LAPACK import Debug.Trace import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector @@ -95,13 +93,13 @@ positiveDefinite m = minimum (toList e) > 0 upperTriang m = rows m == 1 || down == z where down = fromList $ concat $ zipWith drop [1..] (toLists (ctrans m)) - z = constant 0 (dim down) + z = konst 0 (dim down) upperHessenberg m = rows m < 3 || down == z where down = fromList $ concat $ zipWith drop [2..] (toLists (ctrans m)) - z = constant 0 (dim down) + z = konst 0 (dim down) -zeros (r,c) = reshape c (constant 0 (r*c)) +zeros (r,c) = reshape c (konst 0 (r*c)) ones (r,c) = zeros (r,c) + 1 -- cgit v1.2.3