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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

56
ПРОГРАММА 2
Программа расчёта консольного шнека на прочность,
жёсткость и устойчивость с учётом гидродинамического нагружения.
Язык Бейсик
5 REM INPUT "РАСЧЕТ ШНЕКА НА ПРОЧНОСТЬ,ЖЕСТКОСТЬ "
6 REM INPUT " И УСТОЙЧИВОСТЬ. "
10 REM INPUT "Максимальное давление смеси, [МПа] Pmax = ";PMAX
20 REM INPUT "Ди аметp сеpдечника, [м] D2 = ";D2
25 REM INPUT "Наpужний диаметp, [м] D = "D
27 REM INPUT "Диаметp сеpдечника, [м] D1 = ";D1
30 REM INPUT "Рабочая длина, [м] L = ";L
40 REM INPUT "Модуль упpугости, [МПа] E = ";E
50 REM INPUT "Шаг наpезки, [м] T = ";T
60 REM INPUT "Коэффициент n = ";ETA
70 REM INPUT "Допускаемое напpяжение, [МПа] [G] = ";G
80 REM INPUT "Допускаемый коэф-т запаса устойчивости для шнека [Ny]
= ;NY
105 DATA 30,0.08,0.056,0.064,0.72,2.1E5,0.08,.6,68,0.35
106 READ PMAX, D, D1, D2, L, E, T, ETA, G, X
100 REM
120 P1 = 3.141592
130 A = 2 * P1 / T: PRINT A
140 A1 = ((D2 – D1) / 4 / L) ^ 2
150 DSPX = ((D + D1) / 2) + (((D2 – D1) / 2) * (X / L))
160 DX = (D1 + ((D2 – D1) / L) * X)
170 A2 = (P1 * (DSPX / T)) ^ 2
180 DEL = SQR(A1 + A2 + 1)
190 F1 = T / P1 / D
200 B = (D2 – D1) / D1 / L: PRINT "B"; B
210 J0 = P1 * (D1 ^ 4) / 64: PRINT "J0"; J0
220 J1 = P1 * (D1 ^ 4) / 64
230 J2 = P1 * (D2 ^ 4) / 64
240 S = (PMAX * P1 * (D ^ 2)) / 4: PRINT "S1"; S
250 A1 = (((D – D1) / 4) * ((X ^ 2) / (L ^ 2) – 1)) – (((D2 – D1) / 6) * ((X ^ 3) /
(L ^ 3) – 1))
260 NX = DEL * PMAX * COS(F1) * L: PRINT "A1"; NX
265 NX = NX * A1

Страницы