a:=0;
b:=pi/3;
h:=pi/20;
x:=a;
while h<eps do
begin
maxy:=f(a);
maxx:=a;
x:=a+h;
while x<=b do
begin
y:=f(x);
if y>maxy then{максимум}
begin
maxx:=x;
maxy:=y;
end;
x:=x+h;
end;
a:=xmax-h;
b:=ymax+h;
h:=h/10;
end;
Экстремум функции (Pascal)
Вычислить экстремум функции 2tgx-tgx*tgx с заданной точностью ε(ввести с клавиатуры). Начальное значение шага Pi/20. Интервал {0 ; Pi/3}. Метод порязрядного приближения.
Пожалуйста помогите найти экстремум.
Или объясните на примере метод порязрядного приближения.
Пожалуйста помогите найти экстремум.
Или объясните на примере метод порязрядного приближения.
Значение переменной величины изменяется с некоторым достаточно большим шагом. Ищем точку с макс. значением функции. Найдя, берем два интервали вокруг нее. и уменьшаем шаг. Процесс повторяется до достижения требуемой точности.
Яндекс рулит!!!
Примерно так:
Яндекс рулит!!!
Примерно так:
Код:
wanja, Спасибо за помощь.