Оптимизация технологических процессов. Часть 1. Метод Лагранжа и численные методы безусловной оптимизации функции одной переменной. Асламова В.С - 77 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

While (N=1) and ((x1-h)>=a) Do
begin
x1:=x1-h; f1:=f(x1);
if f1>f2 then N:=0;
end;
if N=1 then
begin
Writeln('x1 не найдена, уменьшить а');
readln;
exit {выход из программы}
end;
N:=1; x3:=x2;
{поиск x3>x2 такого, что f (x3)>f (x2)}
While (N=1) anD ((x3+h)<=b) Do
begin
x3:=x3+h; f3:=f(x3);
if f3>f2 then N:=0;
end;
if N=1 then
begin
Writeln('x3 не найдена, увеличить b');
readln;
exit {выход из программы}
end;
repeat
N:=N+1;
x5:=(sqr(x3)-sqr(x2))*f1+(sqr(x1)-
sqr(x3))*f2+(sqr(x2)-sqr(x1))*f3;
x6:=2*((x3-x2)*f1+(x1-x3)*f2+(x2-x1)*f3);
if abs(x6)<eps then
r:=0 {знаменатель равен нулю}
else begin
{вычисление точки минимума параболы x4}
x4:=x5/x6; f4:=f(x4);
r:=PR(x4);
if abs(R)<eps then
x2:=x4 {точки минимума
параболы и функции совпали}
77 
While (N=1) and ((x1-h)>=a) Do
 begin
  x1:=x1-h; f1:=f(x1);
  if f1>f2 then N:=0;
 end;
if N=1 then
 begin
  Writeln('x1 не найдена, уменьшить а');
  readln;
  exit {выход из программы}
 end;
N:=1; x3:=x2;
{поиск x3>x2 такого, что f (x3)>f (x2)}
While (N=1) anD ((x3+h)<=b) Do
 begin
  x3:=x3+h; f3:=f(x3);
  if f3>f2 then N:=0;
 end;
if N=1 then
 begin
  Writeln('x3 не найдена, увеличить b');
  readln;
  exit {выход из программы}
 end;
repeat
  N:=N+1;
  x5:=(sqr(x3)-sqr(x2))*f1+(sqr(x1)-
       sqr(x3))*f2+(sqr(x2)-sqr(x1))*f3;
  x6:=2*((x3-x2)*f1+(x1-x3)*f2+(x2-x1)*f3);
  if abs(x6)

Страницы