Инженерная оптимизация оборудования для переработки полимерных материалов. Клинков А.С - 313 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

313
51 T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#)
TD1# = T# – (MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#) – T0 + Tz) * EXP(-A * X#(5))
TD1 = EXP(-b2 * TD1#)
GOTO 33
52 T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#)
TD1# = T# – (MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#) – T0 + Tz) * EXP(-A * X#(5))
TD1 = EXP(-b2 * TD1#)
GOTO 34
53 T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#)
TD1# = T# – (MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#) – T0 + Tz) * EXP(-A * X#(5))
TD1 = EXP(-b2 * TD1#)
GOTO 36
57 Q1 = W1 * X#(2) * 3.14 * X#(3) * X#(4) * CS * Fg / 2
Q2 = W1 * X#(2) ^ (2 + pm) * Fp * dP * SN / (12 * MU * (3.14 * X#(3) *
X#(4)) ^ (pm – 1) * X#(5) * EE)
Q1# = Q1 – Q2
IF ABS(Q1# – Q#) / Q# * 100 <= 1 THEN 59 ELSE 58
58 Q# = Q1#: GOTO 5
59 REM "расчет интеграла Бейли JB"
TAU = (W1 * X#(2) / SN * X#(5)) / Q# / 60
dTAU = 1 / 60
TAUS1 = -16.17806: TAUS2 = 3131360
61 JB0 = 0: XT5 = X#(5) * dTAU / TAU
FOR X5 = 0 TO X#(5) STEP XT5
T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#)
TDZ# = T# – (MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#) – T0 + Tz) * EXP(-A * X5)
TDZK# = TDZ# + 273.15
TAUS = (TAUS1 + TAUS2 / TDZK# ^ 2) ^ 2
JB = JB0 + dTAU / TAUS: JB0 = JB
NEXT X5
EPS = ABS((JB – JB1) / JB) * 100
'PRINT JB1; JB; dTAU; EPS
IF EPS < 1 THEN 63 ELSE 62
62 JB1 = JB: dTAU = dTAU / 1.5: GOTO 61
63 'PRINT "TAU="; TAU; "JB="; JB; XT5

Страницы