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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

64
L8 = NX + 8
L9 = NX + 9
ICONT = 1
NCONT = 1
PRINT " HAЧAЛO ЦИKЛИЧECKИX BЫЧИCЛEHИЙ"
PRINT #1, " HAЧAЛO ЦИKЛИЧECKИX BЫЧИCЛEHИЙ"
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 "--------------------------------------------------------------------------"
PRINT #1,
"-----------------------------------------------------------------------------------------"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
FTER# = R#(K9)
237 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
4 CALL STAR

Страницы