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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

70
PRINT #1, " ----------------------------STOP----------------------------"
SOUND 110, 12
CLOSE
END
SUB FEAS
ALFA# = 1#: BETA# = .5#: GAMA# = 2#
XNX = NX
ICONT = 0
LCHEK = 0
ICHEK = 0
250 CALL STAR
FOR I = 1 TO K1
FOR J = 1 TO NX
X#(J) = X1#(I, J)
NEXT J
IN = I
CALL SUMR
NEXT I
28 SUMH# = SUM#(1)
INDEX = 1
FOR I = 2 TO K1
IF SUM#(I) <= SUMH# THEN GOTO 7
SUMH# = SUM#(I)
INDEX = I
7 NEXT I
SUML# = SUM#(1)
KOUNT = 1
FOR I = 2 TO K1
IF SUML# <= SUM#(I) THEN GOTO 888
SUML# = SUM#(I)
KOUNT = I
888 NEXT I
FOR J = 1 TO NX
SUM2# = 0#
FOR I = 1 TO K1
SUM2# = SUM2# + X1#(I, J)
NEXT I
X1#(K2, J) = 1# / XNX * (SUM2# – X1#(INDEX, J))
X1#(K3, J) = 2# * X1#(K2, J) – X1#(INDEX, J)

Страницы