diff options
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 | ||