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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

75
47 N11 = N11 * 2
I22 = S
'PRINT "I11="; I11; "I2="; I22; N11
IF ABS(I11 - I22) <= E3 * KP THEN 49 ELSE 48
48 I11 = I22: GOTO 31
49 EE = I22 / ak
'PRINT X#(1); X#(2); X#(3); X#(4); X#(5)
GOTO 57
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#)

Страницы