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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

63
'целевая функция
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
SUB STAR
VN = NX
STEP1# = STEP0# / (VN * SQR(2#)) * (SQR(VN + 1#) + VN - 1#)
STEP2# = STEP0# / (VN * SQR(2#)) * (SQR(VN + 1#) - 1#)
FOR J = 1 TO NX
a#(1, J) = 0#
NEXT J
FOR I = 2 TO k1
FOR J = 1 TO NX
a#(I, J) = STEP2#
NEXT J
L = I - 1
a#(I, L) = STEP1#
NEXT I
FOR I = 1 TO k1
FOR J = 1 TO NX
X1#(I, J) = X#(J) + a#(I, J)
NEXT J
NEXT I
END SUB
SUB SUMR
SUM#(IN) = 0#
CALL prob(2)
SEQL# = 0#
IF NIC = 0 THEN GOTO 444
FOR J = K7 TO K8
IF R#(J) >= 0# THEN GOTO 111
SEQL# = SEQL# + R#(J) * R#(J)
111 NEXT J
444 IF NC = 0 THEN GOTO 313
CALL prob(1)
FOR J = 1 TO NC

Страницы