diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-02-03 17:53:51 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-02-03 17:53:51 +0000 |
commit | 3f5bf5985d3da0e4d01cd9c126cb781cb6fc28ef (patch) | |
tree | f4ff2376e550668e19912b96e3ad88979a52cfb3 /examples/latexmat.hs | |
parent | ab5a2c1c8b4ecd7f8d9d9823d9976410aa94bb18 (diff) |
updated examples, removed Util module
Diffstat (limited to 'examples/latexmat.hs')
-rw-r--r-- | examples/latexmat.hs | 11 |
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 @@ | |||
1 | import Numeric.LinearAlgebra | ||
2 | import Text.Printf | ||
3 | |||
4 | disp w l fmt m = unlines $ map (++l) $ lines $ format w (printf fmt) m | ||
5 | |||
6 | latex fmt m = "\\begin{bmatrix}\n" ++ disp " & " " \\\\" fmt m ++ "\\end{bmatrix}" | ||
7 | |||
8 | main = do | ||
9 | let m = (3><4) [1..12::Double] | ||
10 | putStrLn $ disp " | " "" "%.2f" m | ||
11 | putStrLn $ latex "%.3f" m | ||