From 5587a094afa3e24698cd38301c805e6ee5876c73 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Tue, 23 Feb 2010 09:23:06 +0000
Subject: documentation for simplex

---
 packages/glpk/examples/simplex2.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'packages/glpk/examples/simplex2.hs')

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 ]
 
-- 
cgit v1.2.3