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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

73
920 REM "определить точки x0, xh, xg, xl "
940 x0(j) = x0(j) / n
960 xh(j) = s(h, j)
980 xg(j) = s(g, j)
1000 xl(j) = s(l, j)
1020 NEXT j
1040 FOR j = 1 TO n
1060 X(j) = x0(j)
1080 NEXT j
1100 GOSUB 5000
1120 f0 = z: REM PRINT "вычислите центр тяжести в строке 1120"
1130 REM далее выполняйте отражение
1140 FOR j = 1 TO n
1160 xr(j) = x0(j) + al * (x0(j) - xh(j))
1180 X(j) = xr(j)
1200 NEXT j
1220 GOSUB 5000: fr = z
PRINT "отражение в строке 1220 "; z
1230 REM если fr<fl ,то производится растяжение
1240 IF fr < fl THEN GOTO 1300
1250 REM если fr>fl и fr>fg, то проверить fr и fh
1255 REM в противном случае заменить xh на xr
1260 IF fr > fg THEN GOTO 1600
1280 GOTO 1520
1290 REM далее выполняется растяжение
1300 FOR j = 1 TO n
1320 xe(j) = ga * xr(j) + (1 - ga) * x0(j)
1340 X(j) = xe(j)
1360 NEXT j
1380 GOSUB 5000: fe = z
1400 IF fe < fl THEN GOTO 1440
1420 GOTO 1520
1440 FOR j = 1 TO n
1460 s(h, j) = xe(j)
1480 NEXT j: f(h) = fe
PRINT "растяжение в строке 1480 "; z
1490 REM проверить сходимость в строке 2060
1500 GOTO 2060
1520 FOR j = 1 TO n
1540 s(h, j) = xr(j)
1560 NEXT j: f(h) = fr
Nitro PDF Trial
www.nitropdf.com

Страницы