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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

64
SEQL# = SEQL# + R#(J) * R#(J)
NEXT J
313 SUM#(IN) = SEQL#
END SUB
SUB WRIT
CALL prob(3)
PRINT " ЦЕЛЕВАЯ ФУНКЦИЯ (ОБЬЕМ КОНСТРУКЦИИ), V=
"; R#(K9); "[кг]"
PRINT #1, " ОБЪЕКТНАЯ ФУНКЦИЯ = "; R#(K9); "[кг]"
PRINT " ВАРЬИРУЕМЫЕ ПАРАМЕТРЫ"
PRINT #1, "ВАРЬИРУЕМЫЕ ПАРАМЕТРЫ"
FOR J = 1 TO NX
IF J = 1 THEN PRINT ", X1": GOTO 22
IF J = 2 THEN PRINT ", X2": GOTO 22
IF J = 3 THEN PRINT ", X3"
22 PRINT " BEKTOP: X("; J; ") = "; X#(J); "[м]"
PRINT #1, " BEKTOP: X("; J; ") = "; X#(J); "[м]"
NEXT J
IF NC = 0 THEN GOTO 6
CALL prob(1)
FOR J = 1 TO NC
PRINT " H("; J; "): "; R#(J)
PRINT #1, " H("; J; "): "; R#(J)
NEXT J
6 IF NIC = 0 THEN GOTO 503
CALL prob(2)
FOR J = K7 TO k6
PRINT " G("; J; "): "; R#(J)
PRINT #1, " G("; J; "): "; R#(J)
NEXT J
503 END SUB

Страницы