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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

62
15 My = (-1) ^ (I + 1) * (dP * (TAN(BE) * (2 * R1 * X#(1) - X#(1) ^ 2) * 3.14
+ (R1 - X#(1)) * tt) + 2 * dP * I * FF * (2 * R1 * X#(1) - X#(1) ^ 2) * 3.14) * tt
/ 3.14
Mys0 = Mys0 +My: Mys1 = Mys1 + My * XI: Mys2=Mys2 + My * (XI) ^ 2
NEXT I
Ne = 3.14 ^ 2 * EE * J2 / ((2 * LL) ^ 2)
Np = PP * (3.14 * R1 ^ 2 + 2 * FF * (2 * R1 * X#(1) - X#(1) ^ 2) * 3.14)
IF (Ne) <= 0 THEN Ne = .0001: NpNe = (1 - Np / Ne)
IF (NpNe) <= 0 THEN NpNe = .5
ETA = 1 / (NpNe)
Wmax1 = q * LL ^ 4 * (3 / 4 + LL0 / LL - 1 / 4 * (LL0 / LL) ^ 4)
Wmax2a = (2 * LL0 * LL * Qysx1 + 3 * LL * Qysx2 - Qysx3) ^ 2
Wmax2b = (2 * LL0 * LL * Mys0 + 6 * LL * Mys1 - 3 * Mys2) ^ 2
Wmax2 = (Wmax2a + Wmaxb) ^ .5
Wmax = 1 / (6 * EE * J2) * (Wmax1 + Wmax2): Wpr = Wmax * ETA
Mmax = q * LL ^ 2 / 2 + ((Mys0) ^ 2 + Qysx1 ^ 2) ^ .5
Mkr = PP * 2 * 3.14 * (R1 ^ 3 - (R1 - X#(1)) ^ 3) / 3 * (TAN(BE) + FF *
LL / tt)
SIG = ((Mmax / WW0 + Np / FFP + Np * Wpr / WW0) ^ 2 + (Mkr / WW0)
^ 2) ^ .5
PRINT "I="; I;"SIG="; SIG; "Wpr="; Wpr; "Wmax=";Wmax;"ETA="; ETA
PRINT "Mkr1="; Mkr1; "Mkr="; Mkr; "Mmax="; Mmax; "q="; q;
"R#(9)="; R#(9)
PRINT #1, "I="; I; "SIG="; SIG; "Wpr="; Wpr; "Wmax="; Wmax;
"ETA="; ETA
PRINT #1, "Mkr="; Mkr; "Mmax="; Mmax; "q="; q; "R#(9)="; R#(9)
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
'ограничений в виде равенств нет
GOTO 300
'ограничения в виде неравенств
100 R#(1) = 1 - SIG / SIGD
R#(2) = 1 - Wpr / WD
R#(3) = X#(1) / .001 - 1
R#(4) = 1 - X#(1) / .005
R#(5) = X#(2) / .001 - 1
R#(6) = 1 - X#(2) / .005
R#(7) = X#(3) / .001 - 1
R#(8) = 1 - X#(3) / .007
GOTO 300

Страницы