empty hmatrix-base

1 files changed, 0 insertions, 28 deletions

diff --git a/examples/parallel.hs b/examples/parallel.hs
deleted file mode 100644
index e875407..0000000
--- a/examples/parallel.hs
+++ /dev/null
@@ -1,28 +0,0 @@
--- $ ghc --make -O -rtsopts -threaded parallel.hs
--- $ ./parallel 3000 +RTS -N4 -s -A200M
-
-import System.Environment(getArgs)
-import Numeric.LinearAlgebra
-import Control.Parallel.Strategies
-import System.Time
-
-inParallel = parMap rwhnf id
-
--- matrix product decomposed into p parallel subtasks
-parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ]
-    where [ys] = toBlocksEvery (rows y) (cols y `div` p) y
-
-main = do
-    n <- (read . head) `fmap` getArgs
-    let m = ident n :: Matrix Double
-    time $ print $ maxElement $ takeDiag $ m <> m
-    time $ print $ maxElement $ takeDiag $ parMul 2 m m
-    time $ print $ maxElement $ takeDiag $ parMul 4 m m
-    time $ print $ maxElement $ takeDiag $ parMul 8 m m
-
-time act = do
-    t0 <- getClockTime
-    act
-    t1 <- getClockTime
-    print $ tdSec $ normalizeTimeDiff $ diffClockTimes t1 t0
-