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
R#(11) = 1 - X#(5) / (.015)
R#(12) = DG / (.04) - 1
R#(13) = 1 - DG / (.1)
GOTO 300
'целевая функция (технологическая мощность)
200
R#(14) = NT1 + NT2 + NT3 + NT4 + NT5