Оптимизация химико-технологических процессов органического синтеза. Бочкарев В.В - 80 стр.

UptoLike

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

Рубрика:

5100 RETURN

6000 FOR II = 1 TO 2 * N: Ec(II) = 0: NEXT II: Ec = 0

6020 FOR II = 1 TO M: Ic(II) = 0: NEXT II: Ic = 0

6050 IF IM = 1 GOTO 7000

6100 FOR II = 1 TO N

6120 IF x(II) < l(II) THEN

Ec(II) = 1

Ec = 1

END IF

6140 IF x(II) > u(II) THEN

Ec(N + II) = 1

Ec = 1

END IF

6160 NEXT II

IF M = 0 GOTO 8000

7000 g(1) = x(1) + 2 * x(2) + 2 * x(3) - 72

7110 FOR ig = 1 TO M

IF g(ig) > 0 THEN

Ic(ig) = 1

Ic = 1

END IF

NEXT ig

8000 RETURN

9000 DATA 0,20,0,11,0,42

Nitro PDF Trial

www.nitropdf.com