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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

65
ПРОГРАММА 4
Программа расчёта на прочность двухслойных цилиндров
с винтовой канавкой в месте сопряжения.
Язык Бейсик
‘ CalcT-LC.bas
' ПРОГРАММА РАСЧЕТА НА ПРОЧНОСТЬ ДВУХСЛОЙНЫХ ЦИЛИН-
ДРОВ
' С ВИНТОВОЙ КАНАВКОЙ В МЕСТЕ СОПРЯЖЕНИЯ
' ввод исходных данных в системе измерения [СИ]
DATA .0225, .00005, .00045, .00055, .3, .0225, .0325, 566E6, 434E6, .6, 2E11,
150E6, .3
READ A, D, C, H0, HK, L, R0, RK, SIGMAT1, SIGMAT2, NT, E, PMAX, MU
' определение контактных давлений
Q1 = PMAX * 2 * A / D: Q2 = PMAX * 2 * A / C
' определение толстостенности наружного цилиндра
A1 = (SIGMAT2 * C / NT / A / PMAX) ^ 2 – .75
A2 = SQR(A1) + .1: A3 = SQR(A1) – 1.9: BETA = SQR(A2 / A3)
REM “определение наружного радиуса цилиндра”: B = C * BETA
' определение величины натяга
DELT = Q2 * C * RK * R0 / (R0 * HK + RK * 2 * H0) + Q2 * C * (1 – MU +
BETA ^ 2 + BETA ^ 2 * MU) / 2 / (BETA ^ 2 – 1) – PMAX * A * 2 * RK * R0 /
(R0 * HK + RK * 2 * H0): DELT = DELT / E
' определение допускаемого контактного давления
QDOP = PMAX * (A / HO – (.5 – MU) * L ^ 2 / 2 / HO ^ 2)
A1 = (A / H0 – (.5 – MU) * L ^ 2 / 2 / H0 ^ 2 + .5) ^ 2 – (A / H0 + MU / 2 * L ^
2 / H0 ^ 2) ^ 2 + (A / H0 + MU / 2 * L ^ 2 / H0 ^ 2) * (1 – L ^ 2 / 2 / HO ^ 2) + L
^ 2 / 2 / HO ^ 2 * (1 + L ^ 2 / 2 / HO ^ 2) + 1
A1 = A1 * PMAX ^ 2 + (SIGMAT1 / NT) ^ 2: A1 = SQR(A1)
QDOP = QDOP + A1: QDOP = QDOP * 2 * HO / D
' проверка выполнения условия по контактным давлениям
IF Q1 > QDOP THEN
PRINT "НЕ ВЫПОЛНЕНО УСЛОВИЕ ПО КОНТАКТНЫМ ДАВЛЕНИ-
ЯМ"
PRINT "НЕОБХОДИМО УВЕЛИЧИТЬ ПАРАМЕТРЫ:"
PRINT "d, c, H0, Hk, R0, Rk": ELSE
PRINT "ИСХОДНЫЕ ДАННЫЕ: "
PRINT "РЕЗУЛЬТАТЫ РАСЧЕТА: "
'D,C,HO.HK,RO,RK')(X(5),A);
END IF: END

Страницы