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, 4 insertions, 4 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 5fdc5af..3803f3b 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
@@ -24,8 +24,8 @@ module Numeric.LinearAlgebra.Tests( | |||
24 | --, runBigTests | 24 | --, runBigTests |
25 | ) where | 25 | ) where |
26 | 26 | ||
27 | --import Data.Packed.Random | ||
28 | import Numeric.LinearAlgebra | 27 | import Numeric.LinearAlgebra |
28 | import Numeric.HMatrix | ||
29 | import Numeric.LinearAlgebra.Util(col,row) | 29 | import Numeric.LinearAlgebra.Util(col,row) |
30 | import Data.Packed | 30 | import Data.Packed |
31 | import Numeric.LinearAlgebra.LAPACK | 31 | import Numeric.LinearAlgebra.LAPACK |
@@ -56,8 +56,8 @@ import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector | |||
56 | 56 | ||
57 | import Test.QuickCheck.Test(isSuccess) | 57 | import Test.QuickCheck.Test(isSuccess) |
58 | 58 | ||
59 | eps = peps :: Double | 59 | --eps = peps :: Double |
60 | i = 0:+1 :: Complex Double | 60 | --i = 0:+1 :: Complex Double |
61 | 61 | ||
62 | qCheck n x = do | 62 | qCheck n x = do |
63 | r <- quickCheckWithResult stdArgs {maxSize = n} x | 63 | r <- quickCheckWithResult stdArgs {maxSize = n} x |
@@ -760,7 +760,7 @@ mkVecBench = do | |||
760 | subBench = do | 760 | subBench = do |
761 | putStrLn "" | 761 | putStrLn "" |
762 | let g = foldl1' (.) (replicate (10^5) (\v -> subVector 1 (dim v -1) v)) | 762 | let g = foldl1' (.) (replicate (10^5) (\v -> subVector 1 (dim v -1) v)) |
763 | time "0.1M subVector " (g (constant 1 (1+10^5) :: Vector Double) @> 0) | 763 | time "0.1M subVector " (g (konst 1 (1+10^5) :: Vector Double) @> 0) |
764 | let f = foldl1' (.) (replicate (10^5) (fromRows.toRows)) | 764 | let f = foldl1' (.) (replicate (10^5) (fromRows.toRows)) |
765 | time "subVector-join 3" (f (ident 3 :: Matrix Double) @@>(0,0)) | 765 | time "subVector-join 3" (f (ident 3 :: Matrix Double) @@>(0,0)) |
766 | time "subVector-join 10" (f (ident 10 :: Matrix Double) @@>(0,0)) | 766 | time "subVector-join 10" (f (ident 10 :: Matrix Double) @@>(0,0)) |