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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

72
FOR I = 1 TO K1
FOR J = 1 TO NX
30 X#(J) = X1#(I, J)
NEXT J
IN = I
CALL SUMR
NEXT I
555 SUML# = SUM#(1)
KOUNT = 1
FOR I = 2 TO K1
IF SUML# < SUM#(I) THEN GOTO 233
SUML# = SUM#(I)
KOUNT = I
233 NEXT I
SR#(INF) = SQR(SUM#(KOUNT))
FOR J = 1 TO NX
27 X#(J) = X1#(KOUNT, J)
NEXT J
GOTO 26
601 FOR J = 1 TO NX
31 X1#(INDEX, J) = X1#(K4, J)
NEXT J
SUM#(INDEX) = SUM#(K4)
GOTO 555
16 FOR J = 1 TO NX
X1#(INDEX, J) = X1#(K4, J)
21 X#(J) = X1#(INDEX, J)
NEXT J
SUM#(INDEX) = SUM#(K4)
SR#(INF) = SQR(SUM#(K4))
GOTO 26
14 FOR J = 1 TO NX
X1#(INDEX, J) = X1#(K3, J)
22 X#(J) = X1#(INDEX, J)
NEXT J
SUM#(INDEX) = SUM#(K3)
SR#(INF) = SQR(SUM#(K3))
26 ICONT = ICONT + 1
FOR J = 1 TO NX
X2#(INF, J) = X#(J)

Страницы