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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

76
40 R1#(J) = R#(J)
NEXT J
FOR J = 1 TO NX
X#(J) = X1#(KOUNT, J)
NEXT J
CALL PROB(2)
FOR J = K7 TO K8
42 R3#(J) = R#(J)
NEXT J
FOR J = 1 TO NX
H#(J) = X1#(KOUNT, J) – X2#(INF, J)
X#(J) = X2#(INF, J) + .5# * H#(J)
NEXT J
CALL PROB(2)
FLG#(1) = 0#
FLG#(2) = 0#
FLG#(3) = 0#
FOR J = K7 TO K8
IF R3#(J) >= 0 THEN GOTO 404
FLG#(1) = FLG#(1) + R1#(J) * R1#(J)
FLG#(2) = FLG#(2) + R#(J) * R#(J)
FLG#(3) = FLG#(3) + R3#(J) * R3#(J)
404 NEXT J
SR#(INF) = SQR(FLG#(1))
IF SR#(INF) < FDIFER# THEN GOTO 35
ALFA1# = FLG#(1) – 2# * FLG#(2) + FLG#(3)
BETA1# = 3# * FLG#(1) – 4# * FLG#(2) + FLG#(3)
RATIO# = BETA1# / (4# * ALFA1#)
FOR J = 1 TO NX
45 X#(J) = X2#(INF, J) + H#(J) * RATIO#
NEXT J
IN = INF
CALL SUMR
SR#(INF) = SQR(SEQL#)
IF SR#(INF) < FDIFER# THEN GOTO 465
FOR I = 1 TO 20
FOR J = 1 TO NX
48 X#(J) = X#(J) – .05# * H#(J)
NEXT J
CALL SUMR

Страницы