#
# Numerical Mathematics and Computing, Fifth Edition
# Ward Cheney & David Kincaid
# Brooks/Cole Publ. Co.
# (c) 2003
#
# file:  lin_prog2
#
# Minimize the objective function subject to the given constraints:

 obj := 15*x + 18*y;
 consts := {5*x + 3*y >= 2, 3*x +6*y >= 3};
 simplex[minimize](obj, consts, NONNEGATIVE);