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

UptoLike

69
IF R#(J) >= 0# THEN GOTO 111
SEQL# = SEQL# + R#(J) * R#(J)
111 NEXT J
444 IF NC = 0 THEN GOTO 313
CALL PROB(1)
FOR J = 1 TO NC
SEQL# = SEQL# + R#(J) * R#(J)
NEXT J
313 SUM#(IN) = SEQL#
END SUB
SUB WRIT
CALL PROB(3)
PRINT " ОБЪЕКТНАЯ ФУНКЦИЯ = "; R#(K9)
PRINT #1, " ОБЪЕКТНАЯ ФУНКЦИЯ = "; R#(K9)
FOR J = 1 TO NX
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