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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

66
INF = LOW
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
CALL PROB(3)
F#(LOW) = R#(K9)
GOTO 41
87 FOR J = 1 TO NX
SUM2# = 0#
FOR I = 1 TO N1
20 SUM2# = SUM2# + X2#(I, J)
NEXT I
19 X2#(N2, J) = 1# / XN * (SUM2# – X2#(LHIGH, J))
NEXT J
SUM2# = 0#
FOR I = 1 TO N1
FOR J = 1 TO NX
SUM2# = SUM2# + (X2#(I, J) – X2#(N2, J)) ^ 2
NEXT J
NEXT I
36 FDIFER# = (NC + 1) / XN1 * SQR(SUM2#)
IF FDIFER# < FOLD# THEN GOTO 98
FDIFER# = FOLD#
GOTO 198
98 FOLD# = FDIFER#
198 FTER# = F#(LOW)
PRINT "------------", FDIFER# '???????????
137 NCONT = NCONT + 1
IF NCONT < 4 * N1 THEN GOTO 37
IF ICONT < 1500 THEN GOTO 337
FOLD# = .5# * FOLD#
337 NCONT = 0
PRINT
"-----------------------------------------------------------------------------------------"
PRINT #1,
"-----------------------------------------------------------------------------------------"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
37 IF FDIFER# < CONVER# THEN GOTO 81
IF LHIGH = 1 THEN GOTO 43

Страницы