Функция для нахождения точек экстремума

Форум пользователей пакета Mathematica

Модератор: Admin

Digkill
Сообщения: 1
Зарегистрирован: Вт янв 25, 2011 9:29 pm

Функция для нахождения точек экстремума

Сообщение Digkill » Вт янв 25, 2011 9:36 pm

Нужно создать функцию для нахождения точек экстремума
У меня получилось вот что:

Код: Выделить всё

OoO[t_] := Block[{},
  pr = D[t, x];
  f = Factor[pr];
  o = NSolve[f == 0, x];
  n = Length[o];
  L1 = Table[o[[i]][[1]][[2]], {i, n}];
  Print["Точки экстремума:", o];
 
  ]

OoO[x^3 - 30*x^2 + 225*x + 1]



Но здесь, я только нашел производную, прировнял функцию к нулю и нашел корни, а как реализовать проверку на нахождения точек? на координатной прямой