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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

69
IN = I
CALL SUMR
SR#(I) = SQR(SEQL#)
IF SR#(I) < FDIFER# THEN GOTO 72
INF = I
CALL FEAS
IF FOLD# < 1E-09 THEN GOTO 80
72 CALL PROB(3)
70 F#(I) = R#(K9)
NEXT I
GOTO 1000
68 FOR J = 1 TO NX
73 X2#(LHIGH, J) = X2#(N4, J)
NEXT J
SR#(LHIGH) = SR#(N4)
F#(LHIGH) = F#(N4)
GOTO 1000
81 PRINT
"-----------------------------------------------------------------------------------------"
PRINT #1,
"-----------------------------------------------------------------------------------------"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
PRINT " ФИHAЛ"
PRINT #1, " ФИHAЛ"
GOTO 10
80 PRINT
"-----------------------------------------------------------------------------------------"
PRINT #1,
"-----------------------------------------------------------------------------------------"
PRINT " HOMEP CЧETA:"; ICONT, " FDIFER ="; FDIFER#
PRINT #1, " HOMEP CЧETA:"; ICONT, "FDIFER ="; FDIFER#
CALL WRIT
PRINT " HET ФИHAЛA"
PRINT #1, " HET ФИHAЛA"
SOUND 1500, 18
SLEEP 30
GOTO 10
9999 PRINT "---------------------------STOP----------------------------"

Страницы