summaryrefslogtreecommitdiff
path: root/examples/latexmat.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2010-02-03 17:53:51 +0000
committerAlberto Ruiz <aruiz@um.es>2010-02-03 17:53:51 +0000
commit3f5bf5985d3da0e4d01cd9c126cb781cb6fc28ef (patch)
treef4ff2376e550668e19912b96e3ad88979a52cfb3 /examples/latexmat.hs
parentab5a2c1c8b4ecd7f8d9d9823d9976410aa94bb18 (diff)
updated examples, removed Util module
Diffstat (limited to 'examples/latexmat.hs')
-rw-r--r--examples/latexmat.hs11
1 files changed, 0 insertions, 11 deletions
diff --git a/examples/latexmat.hs b/examples/latexmat.hs
deleted file mode 100644
index d912a28..0000000
--- a/examples/latexmat.hs
+++ /dev/null
@@ -1,11 +0,0 @@
1import Numeric.LinearAlgebra
2import Text.Printf
3
4disp w l fmt m = unlines $ map (++l) $ lines $ format w (printf fmt) m
5
6latex fmt m = "\\begin{bmatrix}\n" ++ disp " & " " \\\\" fmt m ++ "\\end{bmatrix}"
7
8main = do
9 let m = (3><4) [1..12::Double]
10 putStrLn $ disp " | " "" "%.2f" m
11 putStrLn $ latex "%.3f" m