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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

280
X1#(INDEX, J) = X1#(K3, J)
NEXT J
170 FOR J = 1 TO NX
X1#(K4, J) = .5# * (X1#(INDEX, J) + X1#(K2, J))
X#(J) = X1#(K4, J)
NEXT J
IN = K4
CALL SUMR
IF SUMH# > SUM#(K4) THEN GOTO 601
FOR J = 1 TO NX
FOR I = 1 TO K1
X1#(I, J) = .5# * (X1#(I, J) + X1#(KOUNT, J))
NEXT I
NEXT J
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)

Страницы