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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

32
DECLARE SUB urawnenie (x!, x1!, NF)
CLS
K1 = .001: K2 = .0014
K3 = .002: K4 = .0016: REM [все константы 1/с]
W0 = .0041: REM [куб. м/с]
FR = 1: FS = 0
interval = .05: maxCS = 0
PRINT " XA CA CR CS СуммаСМиСD"
FOR XA = .001 TO .8 STEP .001
CALL urawnenie(FR, FFR, 1)
CALL urawnenie(FS, FFS, 2)
V = W0 * XA / (K1 * (1 - XA))
FS = FFS
FR = FFR
CA = 1 - XA
CS = XA * FFS
CR = XA * FFR
SummaCMD = XA * (1 - FFR - FFS)
IF XA < interval GOTO 1
PRINT USING " #.##"; XA;
PRINT USING " #.###"; CA;
PRINT USING " #.###"; CR;
PRINT USING " #.###"; CS;
PRINT USING " #.###"; SummaCMD
interval = interval + .05
1 :
IF CS > maxCS THEN
maxCS = CS: Xopt = XA: CAo = CA: CRo = CR
Vo = V: SummaMD = SummaCMD
END IF
NEXT XA
PRINT "Максимальная отн. концентрация продуктаS CS="; maxCS
PRINT "наблюдается при степени конверсии XA="; Xopt
PRINT "Объем реактора при этих условиях V="; Vo
PRINT "Концентрации остальных продуктов CR="; CRo
PRINT " СуммаМиD ="; SummaMD
PRINT " CA="; CAo
STOP
END
FUNCTION F (x, NF)
Nitro PDF Trial
www.nitropdf.com

Страницы