Найден 1 результат

Digkill
Вт янв 25, 2011 9:36 pm
Форум: Mathematica
Тема: Функция для нахождения точек экстремума
Ответы: 0
Просмотры: 2247

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

Нужно создать функцию для нахождения точек экстремума У меня получилось вот что: 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]...