1 files changed, 11 insertions, 0 deletions

diff --git a/examples/latexmat.hs b/examples/latexmat.hs
new file mode 100644
index 0000000..d912a28
--- /dev/null
+++ b/examples/latexmat.hs
@@ -0,0 +1,11 @@
+import Numeric.LinearAlgebra
+import Text.Printf
+
+disp w l fmt m = unlines $ map (++l) $ lines $ format w (printf fmt) m
+
+latex fmt m = "\\begin{bmatrix}\n" ++ disp " & " " \\\\" fmt m ++ "\\end{bmatrix}"
+
+main = do
+    let m = (3><4) [1..12::Double]
+    putStrLn $ disp " | " "" "%.2f" m
+    putStrLn $ latex "%.3f" m