ВУЗ:
Составители:
311
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT "-----------------------------------------------------------"
‘Далее с помощью кнопки “F2” войти в подпрограмму SUB PROB
(INQ) и ввести с клавиатуры в тексте программы соответствующие
параметры.
Затем запустить программу на счёт (F5)
SUB PROB (INQ)
‘Реологические константы MU [Па с^pm]
MU = 100000: pm = .32
‘Перепад давления dP [Па]
dP = 10000000
‘Производительность шнековой машины Q [м^3/c]
Q = .00005
‘Плотность материала шнека RO1 [кг/м^3]
RO1 = 7850
‘Допускаемое напряжение материала шнека SIG [Па]
SIG = 3E+08
‘Модуль Юнга E [Па]
E = 2E+11
IF X#(2) < 0 THEN X#(2) = .00000001#
IF X#(3) < 0 THEN X#(3) = .00000001#
IF X#(4) < 0 THEN X#(4) = .00000001#
‘Диаметр осевого отверстия шнека d1 [м]
d1 = .001
‘Ширина витка шнека E1 [м]
E1 = .003
‘Шаг нарезки шнека
t1 = 3.14 * X#(3) * TAN(X#(1) * 3.14 / 180)
CS = COS(X#(1) * 3.1416 / 180)
SN = SIN(X#(1) * 3.1416 / 180)
‘Ширина канала нарезки шнека
W1 = (t1 – E1) * CS
PRINT "t1="; t1; "CS="; CS; "X#(2)="; X#(2); "W1="; W1
Fg = 1: Fp = 1
‘Расчёт отношения глубины винтового канала к его ширине
'hb = X#(2) / W1
‘Расчёт коэффициентов прямотока и обратного потока
'Fg = .19191 + .81888 * EXP(-hb)
'Fp = .0614 + .9504 * EXP(-hb)
‘Расчёт производительности шнековой машины
Q# = W1 * X#(2) * 3.14 * X#(3) * X#(4) * CS * Fg / 2
Страницы
- « первая
- ‹ предыдущая
- …
- 309
- 310
- 311
- 312
- 313
- …
- следующая ›
- последняя »
