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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

43
{Вычисление параметров реакции на входе в полку n}
repeat
n:=n+1;
{if n=1 then Tin:=Tin0 else Tin:=Tin0+exp(1/(n-1)*ln(5*n));
if n=1 then Tout:=Tout0 else Tout:=Tout0-exp(1/(n-1)*ln(2*n));}
Tin:=Tn+(n-1)*5;
Tout:=Tk-(n-1)*10;
i:=0;
F:=1-2*Xt;
U:=U*F;
U1:=U*(Tx-Tin)/(Tin-Tp);
P1:=U1/U;
CO2:=((CO2-Yt)/F+P1*CO20)/(1+P1);
CO:=((CO-Xt+Yt)/F+P1*CO0)/(1+P1);
H2:=((H2-2*Xt-Yt)/F+P1*H20)/(1+P1);
Inr:=(Inr/F+P1*Inr0)/(1+P1);
H2O:=((H2O+Yt)/F+P1*H2O0)/(1+P1);
Met:=((Met+Xt)/F+P1*Met0)/(1+P1);
U:=U+U1;
If n<>1 Then
begin
R1in:=K1(Tin)*(P*H2*exp(0.25*Ln(CO/Met))-exp(0.25*Ln(Met/CO))/exp(0.5*Ln(Kp1(Tin))));
R2in:=K2(Tin)*P*(CO2*H2-CO*H2O/Kp2(Tin))/(0.8*H2O+CO2);
end;
Xt:=0.0;
Yt:=0.0;
Y0:=0.0;
tau0:=0.0;
Evaluate;
Writeln(Dev);
Writeln(Dev,'Номер ступени ',n);
Writeln(Dev,'Кoличество шaгoв ',i);
Writeln(Dev);
Writeln(Dev,'кoличество потока нa вxoдe, нм.куб/ч =',U:10:2);
Writeln(Dev,'кoличество поддува, нм.куб/ч =',U1:10:2);
Writeln(Dev,'время контакта, c = ',tau[i]:5:3);
Writeln(Dev);
Writeln(Dev,'Рaсчетные значения:');
Writeln(Dev,'x =',Xt:10:9,' y =',Yt:10:9,' T =',Tx:5:2,' V, нм.куб =',U*tau[i]/3600:6:2);
Writeln(Dev);
Writeln(Dev,' ВХОД ВЫХОД');
Writeln(Dev,'темпеpатуpа ',Tin:5:2,' ',Tx:5:2);
Writeln(Dev,'Cocтав пoтoкa (m.д.)');
Writeln(Dev,' CO ',CO:7:6,' ',(CO-Xt+Yt)/F:7:6);
Writeln(Dev,' CO2 ',CO2:7:6,' ',(CO2-Yt)/F:7:6);
Writeln(Dev,' H2 ',H2:7:6,' ',(H2-2*Xt-Yt)/F:7:6);
Writeln(Dev,' H2O ',H2O:7:6,' ',(H2O+Yt)/F:7:6);
Writeln(Dev,' метанол ',Met:7:6,' ',(Met+Xt)/F:7:6);
Writeln(Dev,' инерты ',Inr:7:6,' ',Inr/F:7:6);
Nitro PDF Trial
www.nitropdf.com

Страницы