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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

138
writeln(alfa:5:3,xco:7:3,xh2:7:3,xch4:7:3,xco2:7:3,xh2o:7:3,
Ratio:7:3);
FGold:=sqr(Ratio-RatioOpt);
end;
{*****************************************************}
begin
t1:=0.3819660113; t2:=1 - t1;
x0:=A; x1:=A + t1*(B - A);
x2:=A + t2*(B - A); x3:=B;
Fx(F1, x1); Fx(F2, x2);
interval:=x3 - x1;
While interval>E do begin
If F2 < F1 then
begin
interval:=x3-x1; x0:=x1;
x1:=x2; x2:=x0+t2*interval;
F1:=F2; Fx(F2,x2);
end {end then}
else
begin
interval:=x2-x0; x3:=x2;
x2:=x1; x1:=x0+t1*interval;
F2:=F1; Fx(F1,x1);
end; {end if}
end; {end while}
xGold:=x1; FGold:=F1;
END;
{*****************************************************}
begin
n:=3;
e:=0.00001;
intx[1,1]:=-1;intx[1,2]:=1;
intx[2,1]:=-1;intx[2,2]:=1;
intx[3,1]:=-1;intx[3,2]:=1;
x[1]:=0.95; x[2]:=0.3; x[3]:=0.01;
t0:=850; {температура реакции‚ град. С}
p:=1; {давление в реакторе‚ атм.}
RatioOpt:=1.1; {необходимое соотношение Н2/СО в
равновесной смеси}
beta:=0.1; {соотношение СО2/Н2O в исходной смеси}
T:=t0+273;
Kp1:=exp(ln(10)*(7.54-7120/T));
Kp2:=exp(ln(10)*(-5.6+4600/T));
Kp3:=exp(ln(10)*(9.28-9000/T));
writeln(' alfa xco xh2 xch4 xco2 xh2o
h2/co');
GoldMin(0,1.0,0.001,alfamax,FGold);
writeln('Необходимое соотношение Н2/СО
=',RatioOpt:4:2);
Created with novaPDF Printer (www.novaPDF.com)

Страницы