From f38b4a3076cfae023559ce61cb2a443c809b7a6f Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 21 Feb 2010 18:26:23 +0000 Subject: simple glpk interface --- packages/glpk/examples/simplex2.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 packages/glpk/examples/simplex2.hs (limited to 'packages/glpk/examples/simplex2.hs') 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 [] + -- cgit v1.2.3