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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

288
' "ДЛЯ ВВОДА ИСХОДНЫХ ДАННЫХ НАЖМИТЕ КНОПКУ F2"
IF FDIFER# < CONVER# THEN GOTO 9999
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT "-----------------------------------------------------------"
Далее с помощью кнопки “F2” войти в подпрограмму SUB PROB
(INQ) и ввести с клавиатуры в тексте программы значения параметров.
Затем запустить программу на счёт (F5)
SUB prob (INQ)
' "Заданная производительность, кг/ч"
QZ = 2
' "Плотность набухшей массы клеевой композиции, кг/м^3"
RO = 850
' "Диаметр рабочих органов (шнеков), м"
'DG = .1
DG = X#(6)
'FI = X#(1): HG = X#(2): e1 = X#(3): nw1 = X#(4): ek1 = X#(5): DG =
X#(6)
FOR nno = 1 TO 6
IF X#(nno) < 0 THEN X#(nno) = -1 * X#(nno)
NEXT nno
' "Вязкость перерабатываемого материала, Па*с"
ETA1 = 27500: pm1 = .5
ETA2 = 27500: pm2 = .5
ETA3 = 27500: pm3 = .5
ETA4 = 27500: pm4 = .5
' "Заданный перепад давления, [Па] по длине рабочих органов и коли-
чество пар смесительных дисков"
PG1 = 5000000: nk1 = 45
' "Cредний коэффициент заполнения дисков на всей длине дисковой
зоны"
KKD = .8
' "Cредний коэффициент заполнения нарезной части сборного шнека"
KKN = .866
' "число витков в прямых насадках"
ZV = 10
'21 "Расчет среднего диаметра и межосевого расстояния"
DGs = DG – X#(2): AA = DGs
' "Расчет внутреннего диаметра шнеков (диаметра сердечника)"
dGv = DG – 2 * X#(2)
' "Расчет угла захвата"
ALF = 2 * (3.14 / 2 – ATN(AA / SQR(ABS(DG ^ 2 – AA ^ 2))))

Страницы