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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

39
Writeln(Dev,'Мoщнocть peaктopa пo мeтaнолу, т/год =',U*(Met+Xt)*Ro/F*7.2:10:2);
Close(Dev);
end.
Вариант программы с оптимизацией шага по y методом золотого сечения
Program Metanol;
Uses CRT;
Label quit, pos2, pos1;
Type PMassiv= ^massiv;
massiv = array[1..400, 1..5] of real;
Const Tp=332; Tn=483; Tk=543; Ro=1.4285; P=78; Gm=30000;
CO0=0.048; CO20=0.03; H20=0.82; Inr0=0.102; Met0=0.0; H2O0=0.0;
Var CO, CO2, H2, met, H2O, Inr, xG, Fg : real;
i, t1, t2, x0, x1, x2, x3, F0, F1, F2, F3 :real;
R1in, R2in, R1out, R2out, tau0, tau1, tau2, Tx : real;
F, U, U1, P1, Xt, Yt, Y0, dX, epsilon, Tin, Tout : real;
i, n, cicle : 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;
Procedure Fx (var FGold:real; var xGold:real);
begin
Yt:=XGold;
{Вычисление текущей температуры в слоеdx}
Tx:=Tin+2835*Xt+1296*Yt;
Nitro PDF Trial
www.nitropdf.com

Страницы