ВУЗ:
Составители:
Рубрика:
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)
' "между кулачками одной пары и корпусом"
det4 = .01 * DG
gradV4 = 3.14 * DG * X#(4) / det4
IF gradV4 < 0 THEN gradV4 = -1 * gradV4
Mu4 = ETA4 * (gradV4) ^ (pm4 - 1)
tau4 = Mu4 * gradV4
NT4 = 2.75E-07 * 3.14 ^ 2 * DGs * AA * X#(4) * X#(5) * (ALF * 180 / 3.14) * tau4 * nk1
' "на выдавливание материала в зонах обратных витков и формующей головки"
NT5 = 2.75E-07 * PG1 * (DG ^ 2 - dGv ^ 2) * 3.14 * DGs * X#(4) * t1 * (ALF * 180 / 3.14)
' "Сумма мощностей, затрачиваемых на отдельных участках шнеков"
R#(14) = (NT1 + NT2 + NT3) * ZV + NT4 + NT5
NTS = R#(14)
'PRINT NT1; NT2; NT3; NT4; NT5
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
'ограничениe в виде равенств
R#(1) = (1 - Q / QZ)
CLS
LOCATE 2, 1: PRINT "Ждите! Идет процесс оптимизации"
LOCATE 4, 1: PRINT "Q="; Q; " [кг/ч]"; " P="; PG1; " [Па]"
LOCATE 5, 1: PRINT "tauv="; tauv; " [с]"; " LL="; LL; "[м]"
LOCATE 6, 1: PRINT "NTS="; NTS; " [кВт] "; "Nuu1="; Nuu1; "[дол. ед]"
LOCATE 7, 1: PRINT "FI - угол наклона винтовой нарезки шнека "; X#(1); "[град]"
LOCATE 8, 1: PRINT "h1- глубина винтовой нарезки шнека "; X#(2); "[м]"
LOCATE 9, 1: PRINT "DG - наружный диаметр шнека "; DG; "[м]"
LOCATE 10, 1: PRINT "nw1 - частота вращения шнека "; X#(4) * 6.28; "[рад/с]"
LOCATE 11, 1: PRINT "e1 - ширина гребня витка шнека "; X#(3); "[м]"
LOCATE 12, 1: PRINT "ek1 - ширина смесительного диска (кулачка)"; X#(5); "[м]"
LOCATE 2, 1: PRINT #1, "Ждите! Идет процесс оптимизации"
LOCATE 4, 1: PRINT #1, "Q="; Q; " [кг/ч]"; " P="; PG1; " [Па]"
LOCATE 5, 1: PRINT #1, "tauv="; tauv; " [с]"; " LL="; LL; "[м]"
LOCATE 6, 1: PRINT #1, "NTS="; NTS; " [кВт] "; "Nuu1="; Nuu1; "[дол. ед]"
LOCATE 7, 1: PRINT #1, "FI - угол наклона винтовой нарезки шнека "; X#(1); "[град]"
LOCATE 8, 1: PRINT #1, "h1- глубина винтовой нарезки шнека "; X#(2); "[м]"
LOCATE 9, 1: PRINT #1, "DG - наружный диаметр шнека "; DG; "[м]"
LOCATE 10, 1: PRINT #1, "nw1 - частота вращения шнека "; X#(4) * 6.28; "[рад/с]"
LOCATE 11, 1: PRINT #1, "e1 - ширина гребня витка шнека "; X#(3); "[м]"
LOCATE 12, 1: PRINT #1, "ek1 - ширина смесительного диска (кулачка)"; X#(5); "[м]"
GOTO 300
'ограничения в виде неравенств
100 R#(2) = X#(1) / 4 - 1
R#(3) = 1 - X#(1) / 8
R#(4) = X#(2) / (.003) - 1
R#(5) = 1 - X#(2) / (.015)
R#(6) = X#(3) / (.001) - 1
R#(7) = 1 - X#(3) / (.01)
R#(8) = X#(4) / (10 / 60) - 1
R#(9) = 1 - X#(4) / (100 / 60)
R#(10) = X#(5) / (.002) - 1
Страницы
- « первая
- ‹ предыдущая
- …
- 45
- 46
- 47
- 48
- 49
- …
- следующая ›
- последняя »