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

UptoLike

75
STEP0# = SIZE#
SUM#(L9) = SUM#(L6)
IF SUM#(L7) > SUM#(L8) THEN GOTO 71
X1#(L5, J) = X1#(L8, J)
SUM#(L5) = SUM#(L8)
GOTO 75
71 X1#(L9, J) = X1#(L7, J)
SUM#(L9) = SUM#(L7)
75 IF ABS(X1#(L9, J) – X1#(L5, J)) > .01# * FDIFER# THEN GOTO 97
X1#(K1, J) = X1#(L7, J)
X#(J) = X1#(L7, J)
SUM#(K1) = SUM#(L5)
SR#(INF) = SQR(SUM#(K1))
IF SR#(INF) < FDIFER# THEN GOTO 760
53 NEXT J
ICHEK = ICHEK + 1
STEP0# = FDIFER#
IF ICHEK <= 2 THEN GOTO 250
FOLD# = 1E-12
PRINT " ПOДПPOГPAMMA FEAS"
PRINT #1, " ПOДПPOГPAMMA FEAS"
FOR J = 1 TO NX
PRINT X#(J)
NEXT J
PRINT " FDIFER ="; FDIFER#, " SR(INF) ="; SR#(INF)
GOTO 46
760 J = 1
FOR J = 1 TO NX
X2#(INF, J) = X1#(K1, J)
761 X#(J) = X1#(K1, J)
NEXT J
500 IF SR#(INF) > FDIFER# THEN GOTO 28
IF SR#(INF) > 0# THEN GOTO 35
CALL PROB(3)
FINT# = R#(K9)
FOR J = 1 TO NX
139 X#(J) = X2#(INF, J)
NEXT J
CALL PROB(2)
FOR J = K7 TO K8