ВУЗ:
Составители:
73
8 CALL PROB(3)
F#(I) = R#(K9)
NEXT I
1000 STEP0# = .05# * FDIFER#
ICONT = ICONT + 1
FH# = F#(1)
LHIGH = 1
FOR I = 2 TO N1
IF F#(I) < FH# THEN GOTO 166
FH# = F#(I)
LHIGH = I
166 NEXT I
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
Страницы
- « первая
- ‹ предыдущая
- …
- 71
- 72
- 73
- 74
- 75
- …
- следующая ›
- последняя »
