Система Mathematica позволяет найти экстремумы функций одной и нескольких переменных. Вот как, например, можно найти локальный минимум функции excosx.
FindMinimum[Exp[x]*Cos[x],(х,0}]
{-0.0670197,{х>-2.35619}}
FindMinimum[Sin[x]*Cos[у],{х,0},{у,0}]
{-1.,{x>-1.5708,y>0.}}