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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

274
FOR J = 1 TO NX
X#(J) = X2#(I, J)
NEXT J
CALL SUMR
SR#(I) = SQR(SEQL#)
IF SR#(I) < FDIFER# THEN GOTO 8
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
8 CALL PROB(3)
F#(I) = R#(K9)
5 NEXT I
1000 STEP0# = .05# * FDIFER#
ICONT = ICONT + 1
FH# = F#(1)
LHIGH = 1
FOR I = 2 TO N1
IF F#(I) < FH# THEN GOTO 166
FH# = F#(I)LHIGH = I
166 NEXT I
41 FL# = F#(1)
LOW = 1
FOR I = 2 TO N1
IF FL# < F#(I) THEN GOTO 177
FL# = F#(I)
LOW = I
177 NEXT I
17 FOR J = 1 TO NX
86 X#(J) = X2#(LOW, J)
NEXT J
IN = LOW
CALL SUMR
SR#(LOW) = SQR(SEQL#)
IF SR#(LOW) < FDIFER# THEN GOTO 87
INF = LOW
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
CALL PROB(3)
F#(LOW) = R#(K9)
GOTO 41
87 FOR J = 1 TO NX
SUM2# = 0#
FOR I = 1 TO N1
20 SUM2# = SUM2# + X2#(I, J)

Страницы