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

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