ВУЗ:
Составители:
74
‘Расчёт отношения глубины винтового канала к его ширине
'hb = X#(2) / W1
‘Расчёт коэффициентов прямотока и обратного потока
'Fg = .19191 + .81888 * EXP(-hb)
'Fp = .0614 + .9504 * EXP(-hb)
‘Расчёт производительности шнековой машины
Q# = W1 * X#(2) * 3.14 * X#(3) * X#(4) * CS * Fg / 2
4 REM "расчет температуры резиновой смеси T"
Tz = 75: T0 = 50: RO = 1200: C = 2100: LA = .22
Ts# = Tz
5 'AL = 175 - .833333 * Ts#
KA = AL * X#(2) / LA: b2 = .005
'PRINT AL
A = 2 * AL * W1 / (RO * C * Q#)
T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) / X#(2)) ^
(pm + 1) * EXP(-b2 * Ts#) * (1 + (EXP(-A * X#(5)) - 1) / (A * X#(5)))
Ts1# = T# + (Tz - T0) * (EXP(-A * X#(5)) - 1) / (A * X#(5))
IF ABS((Ts1# - Ts#) / Ts1#) * 100 <= 1 THEN 23 ELSE 19
19 'PRINT "Ts1#="; Ts1#; Ts#
Ts# = Ts1#: GOTO 5
23 T# = Tz + MU * X#(2) ^ 2 / (2 * KA * LA) * (3.14 * X#(3) * X#(4) /
X#(2)) ^ (pm + 1) * EXP(-b2 * Ts1#)
TD# = 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))
'PRINT "TD#="; TD#; KA
REM "расчет коэффициента EE"
AN = 0: ak = X#(5) / SN: KP = 16: E3 = .01: N11 = 2
31 H = (ak - AN) / N11: X1 = AN: S = 0
32 X2 = X1 + H: X3 = (X1 + X2) / 2
IF X2 > ak THEN 47
X5 = X1: GOTO 51
33 F1 = TD1
X5 = X3: GOTO 52
34 F2 = TD1
X5 = X2: GOTO 53
36 F3 = TD1
I0 = (H / 6) * (F1 + F2 + 4 * F3)
S = S + I0: X1 = X2
GOTO 32
Страницы
- « первая
- ‹ предыдущая
- …
- 72
- 73
- 74
- 75
- 76
- …
- следующая ›
- последняя »