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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

281
SR#(INF) = SQR(SUM#(K4))
GOTO 26
14 FOR J = 1 TO NX
X1#(INDEX, J) = X1#(K3, J)
22 X#(J) = X1#(INDEX, J)
NEXT J
SUM#(INDEX) = SUM#(K3)
SR#(INF) = SQR(SUM#(K3))
26 ICONT = ICONT + 1
FOR J = 1 TO NX
X2#(INF, J) = X#(J)
NEXT J
IF ICONT < (2 * K1) THEN GOTO 500
ICONT = 0
FOR J = 1 TO NX
24 X#(J) = X1#(K2, J)
NEXT J
IN = K2
CALL SUMR
DIFER# = 0#
I = 1
FOR I = 1 TO K1
57 DIFER# = DIFER# + (SUM#(I) – SUM#(K2)) ^ 2
NEXT I
DIFER# = 1# / (K7 * XNX) * SQR(DIFER#)
IF DIFER# > 1E-14 THEN GOTO 500
51 IN = K1
STEP0# = 20# * FDIFER#
CALL SUMR
SR#(INF) = SQR(SEQL#)
FOR J = 1 TO NX
52 X1#(K1, J) = X#(J)
NEXT J
FOR J = 1 TO NX
FACTOR# = 1#
X#(J) = X1#(K1, J) + FACTOR# * STEP0#
X1#(L9, J) = X#(J)
IN = L9
CALL SUMR
X#(J) = X1#(K1, J) – FACTOR# * STEP0#
X1#(L5, J) = X#(J)
IN = L5
CALL SUMR

Страницы