Найти экстремум функции (Delphi)

[Serhiy_Romanov]

окей, может кто-то написать пример нахождение экстремумов для функции
(x*x*x)/(1-x*x) на отрезке [-2; 2] к примеру)

[Stilet]

0,001 к примеру

Этим современные процессоры не напугать.

(x*x*x)/(1-x*x) на отрезке [-2; 2] к примеру)

var x,y:Extended;
...
x:=-2;
while x<=2 do begin
 y:=(x*x*x)/(1-x*x);
 if y<min then min:=y else
  if y>max then max:=y;
 x:=x+0.001;
end;

[Utkin]

0,001 к примеру

Ну да, здесь достаточно тупого перебора в лоб. Однако следует учитывать, что существует очень маленька вероятность того, что функция именно за данной погрешностью может иметь точку экстремума и тогда Вы ее не найдете. Но это уже на совести программиста, сам алгоритм вполне юзабелен из серии дешево и сердито.

[Аватар]

А как же точки разрыва в -1 и 1? Не посчитает этот код экстремальные значения этой функции

[Serhiy_Romanov]

Сообщение от Аватар

А как же точки разрыва в -1 и 1? Не посчитает этот код экстремальные значения этой функции

вот именно)

[Sciv]

Придираетесь, господа...

while x<=2 do begin
  if (1-x*x)<>0 then begin
    y:=(x*x*x)/(1-x*x);
    if y<min then min:=y else
    if y>max then max:=y;
  end;
  x:=x+0.001;
end;

[Аватар]

Придираетесь, господа...

Ничего подобного. Просто на заданном отрезке не существует экстремальных значений функции. Желающие могут + и - безконечность считать за них

[Sciv]

Просто на заданном отрезке не существует экстремальных значений функции.

и то ж верно, я и не считал даже

[Serhiy_Romanov]

Сообщение от Utkin

Ну да, здесь достаточно тупого перебора в лоб. Однако следует учитывать, что существует очень маленька вероятность того, что функция именно за данной погрешностью может иметь точку экстремума и тогда Вы ее не найдете. Но это уже на совести программиста, сам алгоритм вполне юзабелен из серии дешево и сердито.

да, так и есть...)

но как все-таки быть с точками разрыва??? подскажите пожалуйста, какие есть методы???

[Sciv]

какие есть методы???

имхо, просто проверять перед расчетом, является ли текущая точка точкой разрыва.