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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

91
S(N + 1) = A(K1, i)
A(K1, i) = A(K2, i)
A(K2, i) = S(N + 1)
NEXT i
L5: S(N + 1) = A(K1, K1)
FOR i = 1 TO N
S(i) = A(i, K1)
X(i) = A(K1, i)
NEXT i
FOR i = 1 TO N: FOR j = 1 TO N
IF i = K1 GOTO L6
GOTO L7
L6: IF j = K1 THEN A(i, j) = 1 / S(N + 1): GOTO L8
A(i, j) = -A(i, j) / S(N + 1): GOTO L8
L7: IF j = K1 THEN A(i, j) = A(i, j) / S(N + 1): GOTO L8
A(i, j) = A(i, j) - S(i) * X(j) / S(N + 1)
L8: NEXT j
NEXT i
RETURN
L9: END SUB
SUB SystemUrawnenie (N, F() AS DOUBLE, X() AS DOUBLE)
SHARED T, P
K1 = EXP(1.185 - 1071 / T)
K2 = EXP(1.373 - 1457 / T)
K3 = EXP(1.278 - 1955 / T)
K4 = EXP(7.219 - 3787 / T)
F(1) = X(3) - K1 * X(1)
F(2) = X(3) - K2 * X(2)
F(3) = X(3) - K3 * (1 - X(1) - X(2) - X(3) - X(4))
F(4) = X(4) * (P * .6 * X(4) / (1 + .6 * X(4))) ^ .6 - K4 * X(3)
END SUB
2. Процедура решения системы нелинейных уравнений (Turbo Pascal)
procedure noLineUraw(n: integer; e: real; intX: massiv2; var f,x: massiv);
{ *************************************************************** }
Nitro PDF Trial
www.nitropdf.com

Страницы