4 files changed, 11 insertions, 8 deletions

diff --git a/packages/glpk/examples/simplex1.hs b/packages/glpk/examples/simplex1.hs
index 4609524..9639f37 100644
--- a/packages/glpk/examples/simplex1.hs
+++ b/packages/glpk/examples/simplex1.hs
@@ -5,8 +5,8 @@ import Numeric.LinearProgramming
 objFun = Maximize [10, 6, 4]
 
 constr = Dense [ [1,1,1]  :<: 100
-              , [10,4,5] :<: 600 
-              , [2,2,6]  :<: 300 ]
+               , [10,4,5] :<: 600 
+               , [2,2,6]  :<: 300 ]
 
 -- default bounds
 bnds = [ 1 :>: 0
diff --git a/packages/glpk/examples/simplex2.hs b/packages/glpk/examples/simplex2.hs
index 76a53df..40e4bbd 100644
--- a/packages/glpk/examples/simplex2.hs
+++ b/packages/glpk/examples/simplex2.hs
@@ -1,6 +1,6 @@
 import Numeric.LinearProgramming
 
-prob = Maximize [1,2,3,4]
+prob = Maximize [4, 3, -2, 7]
 
 constr1 = Sparse [ [1#1, 1#2] :<: 10
                  , [1#3, 1#4] :<: 10 
@@ -12,5 +12,6 @@ constr2 = Dense [ [1,1,0,0] :<: 10
 
 main = do
     print $ simplex prob constr1 []
-    print $ simplex prob constr2 []
+    print $ simplex prob constr2 [ 2 :>: 1, 4 :&: (2,7)]
+    print $ simplex prob constr2 [ Free 3 ]
 
diff --git a/packages/glpk/examples/simplex3.hs b/packages/glpk/examples/simplex3.hs
index 0f787cb..3a7e8e8 100644
--- a/packages/glpk/examples/simplex3.hs
+++ b/packages/glpk/examples/simplex3.hs
@@ -1,7 +1,8 @@
-import Numeric.LinearProgramming
-
+-- compare with
 -- $ glpsol --cpxlp  /usr/share/doc/glpk-utils/examples/plan.lp  -o result.txt
 
+import Numeric.LinearProgramming
+
 prob = Minimize [0.03, 0.08, 0.17, 0.12, 0.15, 0.21, 0.38]
 
 constr = Dense
diff --git a/packages/glpk/examples/simplex4.hs b/packages/glpk/examples/simplex4.hs
index 3b9c060..8496f6d 100644
--- a/packages/glpk/examples/simplex4.hs
+++ b/packages/glpk/examples/simplex4.hs
@@ -1,7 +1,8 @@
-import Numeric.LinearProgramming
-
+-- compare with
 -- $ glpsol --cpxlp  /usr/share/doc/glpk-utils/examples/plan.lp  -o result.txt
 
+import Numeric.LinearProgramming
+
 prob = Minimize [0.03, 0.08, 0.17, 0.12, 0.15, 0.21, 0.38]
 
 constr = Sparse