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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

72
FOR J = 1 TO NX
PRINT " X("; J; ") = "; X#(J)
PRINT #1, " X("; J; ") = "; X#(J)
NEXT J
FDIFER# = 2# * (NC + 1) * STEP0#
FOLD# = FDIFER#
IN = N1
CALL SUMR
SR#(N1) = SQR(SEQL#)
PRINT " FDIFER ="; FDIFER#, " SR(N1) ="; SR#(N1)
PRINT #1, " FDIFER ="; FDIFER#, " SR(N1) ="; SR#(N1)
IF SR#(N1) < FDIFER# THEN GOTO 341
CALL WRIT
INF = N1
STEP0# = .05# * FDIFER#
CALL FEAS
PRINT " SR(INF) ="; SR#(INF)
PRINT #1, " SR(INF) ="; SR#(INF)
IF FOLD# < 1E-09 THEN GOTO 80
341 PRINT FDIFER#
CALL WRIT
FTER# = R#(K9)
STEP1# = STEP0# * (SQR(XNX + 1#) + XNX - 1#) / (XNX * SQR(2#))
STEP2# = STEP0# * (SQR(XNX + 1#) - 1#) / (XNX * SQR(2#))
ETA# = (STEP1# + (XNX - 1#) * STEP2#) / (XNX + 1#)
FOR J = 1 TO NX
X#(J) = X#(J) - ETA#
NEXT J
CALL STAR
FOR I = 1 TO N1
FOR J = 1 TO NX
X2#(I, J) = X1#(I, J)
NEXT J
NEXT I
FOR I = 1 TO N1
IN = I
FOR J = 1 TO NX
X#(J) = X2#(I, J)
NEXT J
CALL SUMR
SR#(I) = SQR(SEQL#)
IF SR#(I) < FDIFER# THEN GOTO 8
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80

Страницы