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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

56
ПРОГРАММА 3
**************************** ITERA *************************
Решение системы уравнений итерационным методом
Расчёт составного цилиндра с водяной рубашкой (вариант 1)
*************************************************************
DeltaX# = .05#
R# = 2#
Eps# = .001#
m% = 1
Pi# = 3.1415926536#
OPEN "iterase.res" FOR OUTPUT AS #1
PRINT #1, " * * * P R O G R A M I T E R A * * * ";
PRINT #1, MID$(DATE$, 4, 2); : PRINT #1, ".";
PRINT #1, MID$(DATE$, 1, 2); : PRINT #1, ".";
PRINT #1, MID$(DATE$, 9, 2)
PRINT #1, " Расчёт составного цилиндра с водяной рубашкой (вариант
1)"
PRINT #1, "----------------------------------------------------------------------------
"
PRINT #1, " X1 X2(K1) X2(K2) Число итераций"
PRINT #1, "----------------------------------------------------------------------------
"
DO WHILE m% <= 31
X1# = 25# + (m% – 1) * DeltaX#
X2K1# = 32#: X2K2# = 32#: Ip% = 0
DO
Q1# = 150# * 2# * 22.5# / X1#
Q2# = 150# * 2# * 22.5# / X2K1#
Bt# = 42# / X2K1#
Dm1# = 150# * (22.5# / (X1# – 22.5#) + .3# * 8# ^ 2 / 2# / (X1# – 22.5#) ^
2) – Q1# * X1# / 2# / (X1# – 22.5#) – 150# * 8# ^ 2 / 2# / (X1# – 22.5#) ^ 2
Dm2# = 150# * 8# ^ 2 / 2# / (X1# – 22.5#) ^ 2 + 150#
Dm3# = 150# * (22.5# / (X1# – 22.5#) + .3# * 8# ^ 2 / 2# / (X1# – 22.5#) ^
2) – Q1# * X1# / 2# / (X1# – 22.5#) + 150#
Dm4# = (Bt# ^ 2 + 1# / (Bt# ^ 2 – 1#)) ^ 2 + 1.8# * (Bt# ^ 2 + 1# / (Bt# ^ 2
– 1#)) + 1.56#
SigmaE1# = SQR(.5# * (Dm1# ^ 2 + Dm2# ^ 2 + Dm3# ^ 2))
SigmaE2# = SQR(Q2# ^ 2 * Dm4# / 4#)

Страницы