diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-02-21 18:26:23 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-02-21 18:26:23 +0000 |
commit | f38b4a3076cfae023559ce61cb2a443c809b7a6f (patch) | |
tree | 022c127181fb65c34705cdcf44221b4ac89ba50b /packages/glpk/examples/simplex4.hs | |
parent | a3d1bb34ae7b1f97b7e9900fc38f145094fe4777 (diff) |
simple glpk interface
Diffstat (limited to 'packages/glpk/examples/simplex4.hs')
-rw-r--r-- | packages/glpk/examples/simplex4.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/packages/glpk/examples/simplex4.hs b/packages/glpk/examples/simplex4.hs new file mode 100644 index 0000000..3b9c060 --- /dev/null +++ b/packages/glpk/examples/simplex4.hs | |||
@@ -0,0 +1,24 @@ | |||
1 | import Numeric.LinearProgramming | ||
2 | |||
3 | -- $ glpsol --cpxlp /usr/share/doc/glpk-utils/examples/plan.lp -o result.txt | ||
4 | |||
5 | prob = Minimize [0.03, 0.08, 0.17, 0.12, 0.15, 0.21, 0.38] | ||
6 | |||
7 | constr = Sparse | ||
8 | [ [1#1,1#2,1#3,1#4,1#5,1#6,1#7] :==: 2000 | ||
9 | , [0.15#1, 0.04#2, 0.02#3, 0.04#4, 0.2#5,0.01#6, 0.03#7] :<: 60 | ||
10 | , [0.03#1, 0.05#2, 0.08#3, 0.02#4, 0.06#5, 0.01#6] :<: 100 | ||
11 | , [0.02#1, 0.04#2, 0.01#3, 0.02#4, 0.02#5] :<: 40 | ||
12 | , [0.02#1, 0.03#2, 0.01#5] :<: 30 | ||
13 | , [0.7#1, 0.75#2, 0.8#3, 0.75#4, 0.8#5, 0.97#6] :>: 1500 | ||
14 | , [0.02#1, 0.06#2, 0.08#3, 0.12#4, 0.02#5, 0.01#6, 0.97#7] :&: (250,300) | ||
15 | ] | ||
16 | |||
17 | bounds = [ 1 :&: (0,200) | ||
18 | , 2 :&: (0,2500) | ||
19 | , 3 :&: (400,800) | ||
20 | , 4 :&: (100,700) | ||
21 | , 5 :&: (0,1500) ] | ||
22 | |||
23 | main = print $ simplex prob constr bounds | ||
24 | |||