Я не совсем понимаю принципа вашего решения. Все значительно проще:
Код:
[> with(Optimization):
[> LPSolve( 4*x1+3*x2-x3-x4 , {x1+2*x2+x3=8, x2+2*x3+x4=6, x1>=0, x2>=0, x3>=0, x4>=0} );
Ответ на минимум
Код:
[8.66666666666667, [x1 = .222044604925031e-15, x2 = 3.33333333333333, x3 = 1.33333333333333, x4 = 0.]]
То есть

На максимум же будет
Код:
[26.0000000000000, [x1 = 8.00000000000000, x2 = 0., x3 = 0., x4 = 6.00000000000000]]
-- Пн сен 19, 2011 19:29:14 --Да, забыл написать, у меня Maple 14.