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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

279
SUMH# = SUM#(I)
INDEX = I
7 NEXT I
SUML# = SUM#(1)
KOUNT = 1
FOR I = 2 TO K1
IF SUML# <= SUM#(I) THEN GOTO 888
SUML# = SUM#(I)
KOUNT = I
888 NEXT I
FOR J = 1 TO NX
SUM2# = 0#
FOR I = 1 TO K1
SUM2# = SUM2# + X1#(I, J)
NEXT I
X1#(K2, J) = 1# / XNX * (SUM2# – X1#(INDEX, J))
X1#(K3, J) = 2# * X1#(K2, J) – X1#(INDEX, J)
X#(J) = X1#(K3, J)
NEXT J
IN = K3
CALL SUMR
IF SUM#(K3) < SUML# THEN GOTO 11
IF INDEX = 1 THEN GOTO 38
SUMS# = SUM#(1)
GOTO 39
38 SUMS# = SUM#(2)
39 FOR I = 1 TO K1
IF (INDEX – I) = 0 THEN GOTO 12
IF SUM#(I) <= SUMS# THEN GOTO 12
SUMS# = SUM#(I)
12 NEXT I
IF SUM#(K3) > SUMS# THEN GOTO 13
GOTO 14
11 FOR J = 1 TO NX
X1#(K4, J) = X1#(K2, J) + 2# * (X1#(K3, J) – X1#(K2, J))
15 X#(J) = X1#(K4, J)
NEXT J
IN = K4
CALL SUMR
IF SUM#(K4) < SUML# THEN GOTO 16
GOTO 14
13 IF SUM#(K3) > SUMH# THEN GOTO 170
FOR J = 1 TO NX

Страницы