From 4a1589178a2928710f13e0cb18efb34ed8c0d883 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sun, 21 Jul 2013 10:14:19 -0400
Subject: [PATCH] Add another example for forward_substitute.

---
 src/Linear/System.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Linear/System.hs b/src/Linear/System.hs
index 58d8d78..f49c652 100644
--- a/src/Linear/System.hs
+++ b/src/Linear/System.hs
@@ -31,6 +31,11 @@ import qualified Algebra.Field as Field
 --   >>> forward_substitute m b
 --   ((1.0),(0.0))
 --
+--   >>> let m = fromList [[4,0],[0,2]] :: Mat2 Double
+--   >>> let b = vec2d (2, 1.5 :: Double)
+--   >>> forward_substitute m b
+--   ((0.5),(0.75))
+--
 forward_substitute :: forall a m. (Field.C a, Arity m)
                    => Mat m m a
                    -> Mat m N1 a
-- 
2.43.2