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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

268
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#
R#(4) = 1# – X#(1) / .032
R#(5) = X#(2) / .03 – 1#
R#(6) = 1# – X#(2) / .037
R#(7) = X#(3) / .042 – 1#
R#(8) = 1# – X#(3) / .052
R#(9) = X#(4) / .008 – 1#
R#(10) = 1# – X#(4) / .015
GOTO 300
'целевая функция
200 R#(11) = 3.14 * RO * (2 * (dd ^ 2 – aa ^ 2) + (cc1 ^ 2 – dd ^ 2) + 2 *
(bb ^ 2 – cc1 ^ 2)) / 1000

Страницы