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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

68
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)
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

Страницы