From 517dfdbf884ef2b3f3f3d365294a6a714ba7ff9d Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 14 Jun 2015 13:14:24 +0200 Subject: benchmark luPacked' --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'packages/tests/src/Numeric') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 4cfa5cb..ffa45e7 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -613,6 +613,7 @@ runBenchmarks = do cholBench svdBench eigBench + luBench putStrLn "" -------------------------------- @@ -762,3 +763,20 @@ cholBench = do cholBenchN 300 -- cholBenchN 150 -- cholBenchN 50 + +-------------------------------------------------------------------------------- + +luBenchN f n x msg = do + let m = diagRect 1 (fromList (replicate n x)) n n + m `seq` putStr "" + time (msg ++ " "++ show n) (f m) + +luBench = do + luBenchN luPacked 1000 (5::R) "luPacked Double " + luBenchN luPacked' 1000 (5::R) "luPacked' Double " + luBenchN luPacked' 1000 (5::Mod 9973 I) "luPacked' I mod 9973" + luBenchN luPacked' 1000 (5::Mod 9973 Z) "luPacked' Z mod 9973" + + + + -- cgit v1.2.3