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

UptoLike

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

Рубрика:

286

CALL PROB(3)

PRINT " ОБЪЕКТНАЯ ФУНКЦИЯ = "; R#(K9)

FOR J = 1 TO NX

PRINT " 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