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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

48
ПРИЛОЖЕНИЯ
ПРОГРАММА 1
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
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 "Допускаемое напряжение [G]=";G
80 REM INPUT "Допускаемый коэффициент запаса устойчивости для
червяка" [Ny]=;NY
105 DATA 50,45,31,37,495,2E5,45,6.78,500,490
106 READ PMAX, D, D1, D2, L, E, T, ETA, G, X
100 REM
NY = 2
120 P1 = 3.141592
130 A = 2 * P1 / T: PRINT "A="; 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 * A1: PRINT "A1"; NX
270 NX = NX – PMAX * P1 * D ^ 2 / 4
275 REM

Страницы