Расчеты реакционной аппаратуры химических производств. Иванов Г.Н - 42 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

41
writeln('Останавливаю бесполезную работу машины');
writeln('Нажмите клавишу "Enter"');
exit;
end;
writeln('на интервале ', x0,' - ', x3);
writeln('уравнение F(x) = 0 имеет несколько решений');
goto pos2;
end;{end if}
if F0 < 0 then
if F2 < 0 then goto pos1 else goto pos2
else if F2 > 0 then goto pos1;
pos2:
i:= x2 - x0;
x3:= x2;
x2:= x1;
x1:= x0 + t1 * i;
F3:= F2;
F2:= F1;
Fx(F1,x1);
goto quit;
pos1:
i:= x3 - x1;
x0:= x1;
x1:= x2;
x2:= x0 + t2 * i;
F0:= F1;
F1:= F2;
Fx(F2,x2);
quit:
end; {end while}
x:=x1;
F:=F1;
end; {end GoldZero}
Procedure Evaluate;
Label Label1;
begin
repeat
i:=i+1;
Xt:=Xt+dX;
Yt:=Yt+dX;
F:=1-2*Xt;
Label1:
{Вычисление текущей температуры в слое dx}
Tx:=Tin+2835*Xt+1296*Yt;
{Вычисление скорости реакции на выходе из слояdx}
Nitro PDF Trial
www.nitropdf.com

Страницы