summaryrefslogtreecommitdiff
path: root/packages/tests
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs16
1 files changed, 14 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index 148bbb9..b1428fb 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -611,9 +611,10 @@ runBenchmarks = do
611 mkVecBench 611 mkVecBench
612 multBench 612 multBench
613 cholBench 613 cholBench
614 luBench
615 luBench_2
614 svdBench 616 svdBench
615 eigBench 617 eigBench
616 luBench
617 putStrLn "" 618 putStrLn ""
618 619
619-------------------------------- 620--------------------------------
@@ -778,6 +779,17 @@ luBench = do
778 luBenchN luPacked' 1000 (5::Mod 9973 I) "luPacked' I mod 9973" 779 luBenchN luPacked' 1000 (5::Mod 9973 I) "luPacked' I mod 9973"
779 luBenchN luPacked' 1000 (5::Mod 9973 Z) "luPacked' Z mod 9973" 780 luBenchN luPacked' 1000 (5::Mod 9973 Z) "luPacked' Z mod 9973"
780 781
781 782luBenchN_2 f g n x msg = do
783 let m = diagRect 1 (fromList (replicate n x)) n n
784 b = flipud m
785 m `seq` b `seq` putStr ""
786 time (msg ++ " "++ show n) (f (g m) b)
787
788luBench_2 = do
789 putStrLn ""
790 luBenchN_2 luSolve luPacked 500 (5::R) "luSolve .luPacked Double "
791 luBenchN_2 luSolve' luPacked' 500 (5::R) "luSolve'.luPacked' Double "
792 luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 I) "luSolve'.luPacked' I mod 9973"
793 luBenchN_2 luSolve' luPacked' 500 (5::Mod 9973 Z) "luSolve'.luPacked' Z mod 9973"
782 794
783 795