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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

55
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
'целевая функция
200 R#(9) = RO * gg * 3.14 * ((R1 – X#(1)) ^ 2 * LL0 + (R1 – X#(1)) ^ 2 *
LL + 2 * (R1 – X#(1) / 2) / COS(BE) * X#(1) * X#(2) * nk – X#(3) ^ 2 *
(LL0 + LL))
300 END SUB

Страницы