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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

137
Вводятся исходные данные – температура, давление, требуемое мольное
соотношение H
2
/CO на выходе из реактора.
Проводится расчет констант равновесия.
При определенном соотношении СН
4
/Н
2
О в исходной смеси проводится
решение системы нелинейных уравнений (процедура noLineUraw
приведена Приложении А).
Рассчитывается мольное соотношение H
2
/CO.
Определение мольного соотношении СН
4
/Н
2
О в исходной смеси
проводится методом «золотого сечения» (процедура GoldMin) путем
минимизации функции [мольное соотношение H
2
/CO (треб.) - мольное
соотношение H
2
/CO (расч.)]
2
.
program OptRatio;
type massiv=array[1..20] of real;
massiv2=array[1..20,1..2] of real;
var n : integer;
f,x : massiv;
intX : massiv2;
KP1,KP2,KP3,p,beta,alfamax,e,RatioOpt,Ratio : real;
xco,xh2,xch4,xco2,xh2o,sx,T,t0,alfa,Fgold : real;
{*****************************************************}
procedure systemUraw;
begin
xco:=x[1]+2*x[3];
xh2:=x[1]-2*x[2];
xch4:=x[2]+alfa;
xco2:=beta-x[3];
xh2o:=1-x[1];
sx:=1+beta+alfa+x[1]-x[2]+x[3];
f[1]:=xco*xh2*p-KP1*(xh2o*sx);
f[2]:=xch4*sx-KP2*(xh2*xh2*p);
f[3]:=xco*xco*p-KP3*(xco2*sx);
end;
{*****************************************************}
{$I C:\dos\pascal\Procedur\noLineUr.pas}
{*****************************************************}
Procedure GoldMin (A, B, E:real; var xGold,FGold:real);
{"Метод золотого сечения"
Процедура GoldMin производит поиск интервала [A,B],
в котором лежит решение уравнения F(x)=0}
var interval,t1,t2,x0,x1,x2,x3,F0,F1,F2,F3 : real;
{*****************************************************}
Procedure Fx (var FGold:real; var xGold:real);
begin
alfa:=xGold;
noLineUraw(n,e,intX,f,x);
Ratio:=xh2/xco;
Created with novaPDF Printer (www.novaPDF.com)

Страницы