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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

52
ПРИЛОЖЕНИЕ
ПРОГРАММА 1
Программа расчёта шнека на прочность, жёсткость и устойчивость.
Язык Бейсик
CLS
'"РАСЧЕТ НА ПРОЧНОСТЬ КОНСОЛЬНО ЗАКРЕПЛЕННОГО ШНЕКА"
A = 400: DIM MIZ(A), X(A), MK(A), Fmax1(A), Fmax2(A), Fmax01(A),
Fmax02(A), Fmax03(A)
AF = 0: dX = .0045: hx1 = .0045
IF AF = 0 THEN 91
5 PRINT "ВВОД ИСХОДНЫХ ДАННЫХ"
PRINT "ДОПУСКАЕМОЕ НАПРЯЖЕНИЕ (SIG), [Па]"
INPUT "SIG = "; SIG
PRINT "ПЛОТНОСТЬ МАТЕРИАЛА ШНЕКА, [кг/м^3]"
INPUT "R0 = "; RO
PRINT "ДАВЛЕНИЕ РАЗВИВАЕМОE ШНЕКОМ, [Па]"
10 INPUT "P = "; P
PRINT "ДИАМЕТР ОСЕВОГО ОТВЕРСТИЯ ШНЕКА, [м]"
15 INPUT "d1 = "; d1
PRINT "НАРУЖНЫЙ ДИАМЕТР ШНЕКА, [м]"
20 INPUT "D = "; d
PRINT "ДЛИНА НАРЕЗНОЙ ЧАСТИ ШНЕКА, [м]"
30 INPUT "L = "; L
PRINT "ГЛУБИНА ВИНТОВОГО КАНАЛА ШНЕКА, [м]"
40 INPUT "H = "; H
PRINT "УГОЛ НАКЛОНА ВИНТОВОЙ ЛИНИИИ ШНЕКА, [град.]"
50 INPUT "FI = "; FI
PRINT "ШАГ ВИНТОВОЙ НАРЕЗКИ ШНЕКА, [м]"
60 INPUT "t = "; T
PRINT "ширина гребня винтового канала шнека, [м]"
70 INPUT "e1 = "; E1
PRINT "ТЕХНОЛОГИЧЕСКАЯ МОЩНОСТЬ, [кВт]"
75 INPUT "N = "; N
PRINT "ЧАСТОТА ВРАЩЕНИЯ ШНЕКА, [об/мин]"
80 INPUT "W = "; W: GOTO 93

Страницы