simple glpk interface

1 files changed, 16 insertions, 0 deletions

diff --git a/packages/glpk/examples/simplex2.hs b/packages/glpk/examples/simplex2.hs
new file mode 100644
index 0000000..76a53df
--- /dev/null
+++ b/packages/glpk/examples/simplex2.hs
@@ -0,0 +1,16 @@
+import Numeric.LinearProgramming
+
+prob = Maximize [1,2,3,4]
+
+constr1 = Sparse [ [1#1, 1#2] :<: 10
+                 , [1#3, 1#4] :<: 10 
+                 ]
+
+constr2 = Dense [ [1,1,0,0] :<: 10
+                , [0,0,1,1] :<: 10 
+                ]
+
+main = do
+    print $ simplex prob constr1 []
+    print $ simplex prob constr2 []
+