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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

277
NEXT J
64 FOR J = 1 TO NX
X2#(N4, J) = BETA# * X2#(LHIGH, J) + (1# – BETA#) * X2#(N2, J)
66 X#(J) = X2#(N4, J)
NEXT J
IN = N4
CALL SUMR
SR#(N4) = SQR(SEQL#)
IF SR#(N4) < FDIFER# THEN GOTO 67
INF = N4
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
67 CALL PROB(3)
F#(N4) = R#(K9)
IF F#(LHIGH) > F#(N4) THEN GOTO 68
FOR J = 1 TO NX
FOR I = 1 TO N1
69 X2#(I, J) = .5# * (X2#(I, J) + X2#(LOW, J))
NEXT I
NEXT J
FOR I = 1 TO N1
FOR J = 1 TO NX
X#(J) = X2#(I, J)
NEXT J
IN = I
CALL SUMR
SR#(I) = SQR(SEQL#)
IF SR#(I) < FDIFER# THEN GOTO 72
INF = I
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
72 CALL PROB(3)
70 F#(I) = R#(K9)
NEXT I
GOTO 1000
68 FOR J = 1 TO NX
73 X2#(LHIGH, J) = X2#(N4, J)
NEXT J
SR#(LHIGH) = SR#(N4)
F#(LHIGH) = F#(N4)
GOTO 1000
81 PRINT
"***********************************************************"

Страницы