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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

65
FOR I = 1 TO N1
FOR J = 1 TO NX
X2#(I, J) = X1#(I, J)
NEXT J
NEXT I
9 FOR I = 1 TO N1
IN = I
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

Страницы