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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

74
X#(J) = X1#(K1, J) + FACTOR# * STEP0#
IN = L9
CALL SUMR
GOTO 56
55 X1#(L9, J) = X1#(K1, J)
SUM#(L9) = SUM#(K1)
X1#(K1, J) = X1#(L5, J)
SUM#(K1) = SUM#(L5)
FACTOR# = FACTOR# + 1#
X#(J) = X1#(K1, J) – FACTOR# * STEP0#
IN = L5
CALL SUMR
GOTO 56
97 H#(J) = X1#(L9, J) – X1#(L5, J)
X1#(L6, J) = X1#(L5, J) + H#(J) * R1A#
X#(J) = X1#(L6, J)
IN = L6
CALL SUMR
X1#(L7, J) = X1#(L5, J) + H#(J) * R2A#
X#(J) = X1#(L7, J)
IN = L7
CALL SUMR
IF SUM#(L6) > SUM#(L7) THEN GOTO 688
X1#(L8, J) = X1#(L5, J) + (1# – R3A#) * H#(J)
X1#(L5, J) = X1#(L7, J)
X#(J) = X1#(L8, J)
IN = L8
CALL SUMR
IF SUM#(L8) > SUM#(L6) THEN GOTO 76
X1#(L5, J) = X1#(L6, J)
SUM#(L5) = SUM#(L6)
GOTO 75
76 X1#(L9, J) = X1#(L8, J)
SUM#(L9) = SUM#(L8)
GOTO 75
688 X1#(L9, J) = X1#(L6, J)
X1#(L8, J) = X1#(L5, J) + R3A# * H#(J)
X#(J) = X1#(L8, J)
IN = L8
CALL SUMR

Страницы