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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

276
61 X#(J) = X2#(N3, J)
NEXT J
IN = N3
CALL SUMR
SR#(N3) = SQR(SEQL#)
89 IF SR#(N3) < FDIFER# THEN GOTO 82
INF = N3
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
82 CALL PROB(3)
F#(N3) = R#(K9)
IF F#(N3) < F#(LOW) THEN GOTO 84
IF F#(N3) < F#(LSEC) THEN GOTO 92
GOTO 60
92 FOR J = 1 TO NX
93 X2#(LHIGH, J) = X2#(N3, J)
NEXT J
SR#(LHIGH) = SR#(N3)
F#(LHIGH) = F#(N3)
GOTO 1000
84 FOR J = 1 TO NX
X2#(N4, J) = X2#(N2, J) + GAMA# * (X2#(N3, J) – X2#(N2, J))
23 X#(J) = X2#(N4, J)
NEXT J
IN = N4
CALL SUMR
SR#(N4) = SQR(SEQL#)
IF SR#(N4) < FDIFER# THEN GOTO 25
INF = N4
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
25 CALL PROB(3)
F#(N4) = R#(K9)
IF F#(LOW) < F#(N4) THEN GOTO 92
FOR J = 1 TO NX
X2#(LHIGH, J) = X2#(N4, J)
NEXT J
F#(LHIGH) = F#(N4)
SR#(LHIGH) = SR#(N4)
GOTO 1000
60 IF F#(N3) > F#(LHIGH) THEN GOTO 64
FOR J = 1 TO NX
65 X2#(LHIGH, J) = X2#(N3, J)

Страницы