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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

36
i, n : integer;
tau, W, T, X, Y : massiv;
FileName : String;
Dev : text;
Function K1(Temp : real) : real;
begin
K1:=7.533E+08*EXP(-8503/Temp);
end;
Function K2(Temp : real) : real;
begin
K2:=5.822E+11*EXP(-16403/Temp);
end;
Function Kp1(Temp : real) : real;
begin
Kp1:=EXP(4.003+1724.6/Temp-1.4131*Ln(Temp)+0.0007687*Temp-1.35E-08*Sqr(Temp));
end;
Function Kp2(Temp : real) : real;
begin
Kp2:=EXP(0.5529+941.1/Temp+0.098*Ln(Temp)-0.0004504*Temp+1.012E-07*Sqr(Temp));
end;
begin
ClrScr;
{Подготовка файла вывода}
Writeln('Введите имя файла вывода');
Readln(FileName);
Assign(Dev, FileName);
ReWrite(Dev);
{Задание исходных значений}
Xt:=0.0;
Yt:=0.0;
Y0:=0.0;
dX:=0.0001;
n:=0;
epsilon:=0.00001;
CO:=CO0;
CO2:=CO20;
H2:=H20;
Inr:=Inr0;
U:=282000;
Tx:=Tin;
{Вычисление параметров реакции на входе в полку n}
Nitro PDF Trial
www.nitropdf.com

Страницы