diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-04-10 09:53:23 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-04-10 09:53:23 +0200 |
commit | e499467d2c67f214b0871376b068c5b6fc7896a1 (patch) | |
tree | 166021773cbb2c066811ee27830dd5618114ab10 /packages/glpk/examples/simplex2.hs | |
parent | dcc03a4a764cb8683b80758af97fcbcc9aadba73 (diff) |
merge recent
Diffstat (limited to 'packages/glpk/examples/simplex2.hs')
-rw-r--r-- | packages/glpk/examples/simplex2.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/packages/glpk/examples/simplex2.hs b/packages/glpk/examples/simplex2.hs index f4e27fd..0d83ca9 100644 --- a/packages/glpk/examples/simplex2.hs +++ b/packages/glpk/examples/simplex2.hs | |||
@@ -10,9 +10,14 @@ constr2 = Dense [ [2,1,0] :<=: 10 | |||
10 | , [0,1,5] :<=: 20 | 10 | , [0,1,5] :<=: 20 |
11 | ] | 11 | ] |
12 | 12 | ||
13 | constr3 = General [ [1#1, 1#1, 1#2] :<=: 10 | ||
14 | , [1#2, 5#3] :<=: 20 | ||
15 | ] | ||
16 | |||
13 | main = do | 17 | main = do |
14 | print $ simplex prob constr1 [] | 18 | print $ simplex prob constr1 [] |
15 | print $ simplex prob constr2 [] | 19 | print $ simplex prob constr2 [] |
16 | print $ simplex prob constr2 [ 2 :=>: 1, 3 :&: (2,7)] | 20 | print $ simplex prob constr3 [] |
21 | print $ simplex prob constr2 [ 2 :>=: 1, 3 :&: (2,7)] | ||
17 | print $ simplex prob constr2 [ Free 2 ] | 22 | print $ simplex prob constr2 [ Free 2 ] |
18 | 23 | ||