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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

67
FS# = F#(1)
LSEC = 1
GOTO 44
43 FS# = F#(2)
LSEC = 2
44 FOR I = 1 TO N1
IF LHIGH = I THEN GOTO 18
IF F#(I) < FS# THEN GOTO 18
FS# = F#(I)
LSEC = I
18 NEXT I
FOR J = 1 TO NX
X2#(N3, J) = X2#(N2, J) + ALFA# * (X2#(N2, J) – X2#(LHIGH, J))
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#)

Страницы