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

UptoLike

290
' "Расчет коэффициента сдвига методом последовательных приближе-
ний, об"
tauv1 = 10'tauv2 / 2'- начальное приближение по времени, с
15 GAM = tauv1 * X#(4)
' "Коэффициент изменения качества смеси за один оборот шнеков"
Nuu1 = -(-.06 * EXP(-.16 – .06 / 1 * GAM))
' "Расчет среднего времени нахождения смеси в полости смешения"
IF Nuu1 <= 0 THEN Nuu1 = .0001
tauv = -LOG(1 – Jk1) / (Nuu1 * X#(4))
IF tauv < 0 THEN tauv = -1 * tauv
IF tauv > 1000 THEN tauv = 1000
'PRINT "tauv1="; tauv1 / 60; "[мин] "; "tauv="; tauv / 60; "[мин] ";
"tauv2="; tauv2 / 60; "[мин] "
IF ABS((tauv – tauv1) / tauv) * 100 < 2 THEN 21 ELSE 19
19 tauv1 = tauv: GOTO 15
' "Расчет объемной производительности двухшнекового смесителя"
21 Q = 3600 * KK1 * VC * RO / tauv / 2
' "Расчет потребляемой мощности"
' "между корпусом и шнеками"
det1 = .01 * DG
gradV1 = 3.14 * DG * X#(4) / det1
IF gradV1 < 0 THEN gradV1 = -1 * gradV1
Mu1 = ETA1 * (gradV1) ^ (pm1 – 1)
tau1 = Mu1 * gradV1
NT1 = (.002 * (1 + ALF / (2 * 3.14)) * X#(3) * 3.14 ^ 2 * DG ^ 2 * X#(4)
* tau1) / COS(X#(1) * 3.14 / 180)
' "в зазорах между боковыми поверхностями шнеков"
det2s = (det1 + t1 – 2 * X#(3)) / 2
gradV2 = 2 * 3.14 * DG * X#(4) / det2s
IF gradV2 < 0 THEN gradV2 = -1 * gradV2
Mu2 = ETA2 * (gradV2) ^ (pm2 – 1)
tau2 = Mu2 * gradV2
NT2 = .000033 * (3.14 * DG ^ 3 * SIN(ALF / 2) * (1 – COS(ALF / 2)) *
X#(4) * tau2) / COS(X#(1) * 3.14 / 180)
' "в зазоре между вершиной и впадиной витков"
det2 = (DG – dGv) / (2 * COS(ALF / 2))
det3s = (det1 + det2) / 2
gradV3 = 3.14 * DG * X#(4) / det3s
IF gradV3 < 0 THEN gradV3 = -1 * gradV3
Mu3 = ETA3 * (gradV3) ^ (pm3 – 1)
tau3 = Mu3 * gradV3
NT3 = 5.4E-07 * (3.14 ^ 2 * X#(4) * X#(3) * DGs * (ALF * 180 / 3.14) *
(DG – dGv) * tau3) / COS(X#(1) * 3.14 / 180)