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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

71
X#(J) = X1#(K3, J)
NEXT J
IN = K3
CALL SUMR
IF SUM#(K3) < SUML# THEN GOTO 11
IF INDEX = 1 THEN GOTO 38
SUMS# = SUM#(1)
GOTO 39
38 SUMS# = SUM#(2)
39 FOR I = 1 TO K1
IF (INDEX – I) = 0 THEN GOTO 12
IF SUM#(I) <= SUMS# THEN GOTO 12
SUMS# = SUM#(I)
12 NEXT I
IF SUM#(K3) > SUMS# THEN GOTO 13
GOTO 14
11 FOR J = 1 TO NX
X1#(K4, J) = X1#(K2, J) + 2# * (X1#(K3, J) – X1#(K2, J))
15 X#(J) = X1#(K4, J)
NEXT J
IN = K4
CALL SUMR
IF SUM#(K4) < SUML# THEN GOTO 16
GOTO 14
13 IF SUM#(K3) > SUMH# THEN GOTO 170
FOR J = 1 TO NX
X1#(INDEX, J) = X1#(K3, J)
NEXT J
170 FOR J = 1 TO NX
X1#(K4, J) = .5# * (X1#(INDEX, J) + X1#(K2, J))
X#(J) = X1#(K4, J)
NEXT J
IN = K4
CALL SUMR
IF SUMH# > SUM#(K4) THEN GOTO 601
FOR J = 1 TO NX
FOR I = 1 TO K1
X1#(I, J) = .5# * (X1#(I, J) + X1#(KOUNT, J))
NEXT I
NEXT J

Страницы