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

UptoLike

292
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
300 X#(6) = DG':X#(1) = lam: X#(2) = HG: X#(3) = e1: X#(4) = nw1:
X#(5) = ek1
'PRINT #1, "tauv="; tauv; "c"
'PRINT #1, "Q="; Q; "[м^3/ч]"
'PRINT #1, "LL="; LL; "[м]"
END SUB