From 261db58d71fbc378a5bb39f35a64d1c9fd4691e3 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 31 Mar 2010 19:52:46 +0000 Subject: corrected Bound constructors (thx Ozgur Akgun) --- packages/glpk/examples/simplex4.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'packages/glpk/examples/simplex4.hs') diff --git a/packages/glpk/examples/simplex4.hs b/packages/glpk/examples/simplex4.hs index dd65002..9a205ad 100644 --- a/packages/glpk/examples/simplex4.hs +++ b/packages/glpk/examples/simplex4.hs @@ -7,11 +7,11 @@ prob = Minimize [0.03, 0.08, 0.17, 0.12, 0.15, 0.21, 0.38] constr = Sparse [ [1#1,1#2,1#3,1#4,1#5,1#6,1#7] :==: 2000 - , [0.15#1, 0.04#2, 0.02#3, 0.04#4, 0.2#5,0.01#6, 0.03#7] :<: 60 - , [0.03#1, 0.05#2, 0.08#3, 0.02#4, 0.06#5, 0.01#6] :<: 100 - , [0.02#1, 0.04#2, 0.01#3, 0.02#4, 0.02#5] :<: 40 - , [0.02#1, 0.03#2, 0.01#5] :<: 30 - , [0.7#1, 0.75#2, 0.8#3, 0.75#4, 0.8#5, 0.97#6] :>: 1500 + , [0.15#1, 0.04#2, 0.02#3, 0.04#4, 0.2#5,0.01#6, 0.03#7] :<=: 60 + , [0.03#1, 0.05#2, 0.08#3, 0.02#4, 0.06#5, 0.01#6] :<=: 100 + , [0.02#1, 0.04#2, 0.01#3, 0.02#4, 0.02#5] :<=: 40 + , [0.02#1, 0.03#2, 0.01#5] :<=: 30 + , [0.7#1, 0.75#2, 0.8#3, 0.75#4, 0.8#5, 0.97#6] :=>: 1500 , [0.02#1, 0.06#2, 0.08#3, 0.12#4, 0.02#5, 0.01#6, 0.97#7] :&: (250,300) ] -- cgit v1.2.3