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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

67
IF FDIFER# < CONVER# THEN GOTO 9999
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
Далее с помощью кнопки “F2” войти в подпрограмму SUB PROB
(INQ) и ввести с клавиатуры в тексте программы соответствующие пара-
метры.
Затем запустить программу на счёт (F5)
SUB PROB (INQ)
'Внутренний радиус внутреннего цилиндра, м
aa = .0225
'Плотность материала цилиндра, кг/м^3
RO = 7800
'Коэффициент Пуассона для стали
mu1 = .3
'Давление внутри цилиндра, Па
PP = 150000000
dd = X#(1): bb = X#(3): cc1 = X#(2): LL = X#(4)
PRINT cc1
bet = bb / cc1
PP1 = ((aa / (dd - aa) + mu1 * LL ^ 2 / 2 / (dd - aa) ^ 2) - 2 * aa / dd * dd / 2
/ (dd - aa) - LL ^ 2 / 2 / (dd - aa) ^ 2) ^ 2
PP2 = ((LL ^ 2 / 2 / (dd - aa) ^ 2 + 1)) ^ 2
PP3 = ((aa / (dd - aa) + mu1 * LL ^ 2 / 2 / (dd - aa) ^ 2) - 2 * aa / dd * dd / 2
/ (dd - aa) + 1) ^ 2
Sig1 = PP * SQR(.5 * (PP1 + PP2 + PP3))
PRINT Sig1
Sig2 = PP * SQR(aa ^ 2 / cc1 ^ 2 * (((bet ^ 2 + 1) / (bet ^ 2 - 1)) ^ 2 + 1.8 *
((bet ^ 2 + 1) / (bet ^ 2 - 1)) + 1.56))
'Допускаемые напряжения для материала двухслойного цилиндра, Па
Sigd1 = 566000000: Sigd2 = 434000000
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
'ограничений в виде равенств нет
GOTO 300
'ограничения в виде неравенств
100
R#(1) = 1# - Sig1 / Sigd1
R#(2) = 1# - Sig2 / Sigd2
R#(3) = X#(1) / .025 - 1#

Страницы