error checking for simplex

1 files changed, 8 insertions, 7 deletions

diff --git a/packages/glpk/examples/simplex2.hs b/packages/glpk/examples/simplex2.hs
index 40e4bbd..0b865a6 100644
--- a/packages/glpk/examples/simplex2.hs
+++ b/packages/glpk/examples/simplex2.hs
@@ -1,17 +1,18 @@
 import Numeric.LinearProgramming
 
-prob = Maximize [4, 3, -2, 7]
+prob = Maximize [4, -3, 2]
 
-constr1 = Sparse [ [1#1, 1#2] :<: 10
-                 , [1#3, 1#4] :<: 10 
+constr1 = Sparse [ [2#1, 1#2] :<: 10
+                 , [1#2, 5#3] :<: 20
                  ]
 
-constr2 = Dense [ [1,1,0,0] :<: 10
-                , [0,0,1,1] :<: 10 
+constr2 = Dense [ [2,1,0] :<: 10
+                , [0,1,5] :<: 20
                 ]
 
 main = do
     print $ simplex prob constr1 []
-    print $ simplex prob constr2 [ 2 :>: 1, 4 :&: (2,7)]
-    print $ simplex prob constr2 [ Free 3 ]
+    print $ simplex prob constr2 []
+    print $ simplex prob constr2 [ 2 :>: 1, 3 :&: (2,7)]
+    print $ simplex prob constr2 [ Free 2 ]