Используя систему Mathematica, нетрудно решить задачи линейного программирования небольшой размерности. Рассмотрим пример.
Правда, если экстремум достигается на границе (а в задачах линейного программирования это случается почти всегда), при использовании функции Maximize выдается предупреждение об этом.
Можно, конечно, пользоваться и функцией ConstrainedMax, но она становится все менее популярной, и система Mathematica предупреждает, что в последующих версиях она может быть удалена.
Впрочем, для решения задачи можно воспользоваться и функцией Nmaximize.
NMaximize[{19x-47y+28z,{x+y+z>0,x+y+z<l,x>0,y>0,z>0}},{x,y,z}]
{28.,{x>0.,y>0.,z>l.}}