ВУЗ:
Составители:
184
MinimumGold(0.1, 1.618, 0.1, xmin, ssF, 1);
end;
for i:=1 to n do b[i]:= -f[i]; sb:=SummaSqr;
for j:=1 to n do
begin
xps:=x[j]; h:=eps*abs(xps);
x[j]:=xps+h;
systemUraw;
for i:=1 to n do a[i,j]:=(f[i]+b[i])/h;
x[j]:=xps;
end; { end for j }
(* подсчет количества итерации *)
iteration:= iteration+1;
case iteration of
7,13,17,23,
27,31,37,47 : begin
for i:=1 to n do x[i]:=Xopt[i];
eps:=eps*0.6180339887; goto nachalo; end;
end;
if iteration = m+1 then begin
writeln('Сделано максимальное число иттераций ', iteration-1);
goto fin; end;
(* обращение матрицы *)
rmatr(n,a);
(* определение приращений dx[i] и новых значений x[i] *)
for i:=1 to n do
begin
dx[i]:=0;
for j:=1 to n do
dx[i]:=dx[i]+a[i,j]*b[j];
Xold[i]:=x[i];
x[i]:=x[i]+dx[i];
end;
(*проверка условии сходимости*);
r:=0;
for i:=1 to n do
if abs(dx[i]/x[i])>e then r:=r+1;
if r=0 then exit;
BoundaryConditions;
goto nachalo;
fin: for i:=1 to n do x[i]:=Xopt[i];
end;
{************ Конец процедуры noLineUraw *************************}
{*****************************************************************}
Created with novaPDF Printer (www.novaPDF.com)
