> readlib(extrema):
_EnvExplicit := true:
В следующем примере находятся
экстремумы функции f при дополнительных
ограничениях g1 и g2:
> f := (x^2+y^2)^(1/2)-z; g1 :=
x^2+y^2-16=0; g2 := x+y+z = 10;
В команде extrema четвертым аргументом
является имя, которому мы хотим присвоить
значение переменных в точках экстремума.
> extrema(f,{g1,g2},{x,y,z},'s');
> s;
Для применения симплекс-метода
необходимо загрузить пакет simplex
> restart;with(simplex):
Warning, new definition for maximize
Warning, new definition for minimize
В следующем примере максимизируется
функция obj при дополнительных ограничениях cnsts:
> cnsts := {3*x+4*y-3*z <= 23,
5*x-4*y-3*z <= 10,
7*x+4*y+11*z <= 30}:
obj := -x + y + 2*z:
maximize(obj,cnsts union {x>=0,y>=0,z>=0});
|