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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

57
K1# = SigmaE1# / 556# Q1# = 150# * 2# * 22.5# / X1#
Q2# = 150# * 2# * 22.5# / X2K2#
Bt# = 42# / X2K2#
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#)
K2# = SigmaE2# / 434# IF ABS(K1# – 1#) <= Eps# AND ABS(K2# – 1#)
<= Eps# THEN EXIT DO
X2K1# = X2K1# + X2K1# * (K1# – 1#) / R#
X2K2# = X2K2# + X2K2# * (K2# – 1#) / R#
Ip% = Ip% + 1
IF Ip% > 49 THEN EXIT DO
LOOP
PRINT #1, USING "#########.## "; X1#; X2K1#; X2K2#; Ip%
PRINT USING "#########.## "; X1#; X2K1#; X2K2#; Ip%
m% = m% + 1
LOOP
PRINT #1, "---------------------------------------------------------------------------"
PRINT "----------------------------------------------------------------------------"
V# = 2# * Pi# * (25.63# ^ 2 – 22.5# ^ 2) + Pi# * (31.62# ^ 2 – 25.63# ^ 2) +
2# * Pi# * (42# ^ 2 – 31.62# ^ 2)
PRINT #1, " V = "; V#
PRINT " V = "; V# CLOSE

Страницы