Оптимизация химико-технологических процессов органического синтеза. Бочкарев В.В - 87 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

87
x0:=Fm1;
F0:=F(x0,NF);
if x0=F0 then
begin
x1:=x0;
exit;
end;
kcicle:=0; Sign:=1;
repeat
a:=(Fm1-xm1)/(F0-x0);
if a=1 then
begin
kcicle:=kcicle+1; Sign:=-Sign;
a:=1+Sign*Random;
if kcicle>20 then
begin
writeln('Уравнение x = F(x) не имеет решения'); exit;
end;
end;
x1:=(a*x0-xm1)/(a-1);
F1:=F(x1,NF);
if (ABs(x0-F0)<ABs(xm1-Fm1)) then
begin
xm1:=x0;
Fm1:=F0;
x0:=x1;
F0:=F1;
end
else
begin
x0:=x1;
F0:=F1;
end;
until(ABs(x1-F1)<0.00001)
END; { КонецпроцедурыUrawnenie }
FUNCTION F(x:real; NF:integer):real;
{ NF - номер функции }
begin
Randomize;
case NF of
1:begin
Nitro PDF Trial
www.nitropdf.com

Страницы