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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

61
ПРОГРАММА 5
ITERAPRESS
Решение системы уравнений итерационным методом
Расчёт литьевого пресса с усилием 2500 кН
*************************************************************
r = 2#
Eps = .05#
OPEN "itera_p.res" FOR OUTPUT AS #1
CLS
PRINT #1, "-----------------------------------------------------------"
PRINT #1, " X1,X3 X2(K1) X2(K2) X2(K3) Число итераций"
PRINT " X1,X3 X2(K1) X2(K2) X2(K3) Число итераций"
PRINT #1, "-----------------------------------------------------------"
PRINT "-----------------------------------------------------------"
FOR m% = 1 TO 21
X1 = 50# + (m% – 1) * DeltaX
X3 = 50# + (m% – 1) * DeltaX
X2K1 = 50#: X2K2 = 50#: X2K3 = 50#: Ip% = 0
DO
A1 = 7.65# / X1 ^ 4 + 970# / X2K1 ^ 4 + 13.7# / X3 ^ 4
B1 = .48# / X1 ^ 4 + 22.6# / X2K1 ^ 4 + .535# / X3 ^ 4
K1 = 4750# * A1 / B1 / X1 ^ 3
A2 = 7.65# / X1 ^ 4 + 970# / X2K2 ^ 4 + 13.7# / X3 ^ 4
B2 = .48# / X1 ^ 4 + 22.6# / X2K2 ^ 4 + .535# / X3 ^ 4
K2 = 1385# / X2K2 ^ 2 + 2000000# / X2K2 ^ 3 – 46500# * A2 / B2 /
X2K2 ^ 3
A3 = 7.65# / X1 ^ 4 + 970# / X2K3 ^ 4 + 13.7# / X3 ^ 4
B3 = .48# / X1 ^ 4 + 22.6# / X2K3 ^ 4 + .535# / X3 ^ 4
K3 = 8200# * A3 / B3 / X3 ^ 3 – 17600# / X3 ^ 3 IF ABS(K1 – 1#) <= Eps
AND ABS(K2 – 1#) <= Eps AND ABS(K3 – 1#) <= Eps THEN EXIT DO
X2K1 = X2K1 + X2K1 * (K1 – 1#) / r
X2K2 = X2K2 + X2K2 * (K2 – 1#) / r
X2K3 = X2K3 + X2K3 * (K3 – 1#) / r
Ip% = Ip% + 1
IF Ip% > 49 THEN EXIT DO
LOOP
PRINT #1, USING "#########.## "; X1; X2K1; X2K2; X2K3; Ip%
PRINT USING "#########.## "; X1; X2K1; X2K2; X2K3; Ip%
NEXT m%
END

Страницы