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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

74
PRINT "отражение в строке 1560 "; f(h)
1580 GOTO 2060
1600 IF fr > fh THEN GOTO 1700
1620 FOR j = 1 TO n
1640 xh(j) = xr(j)
1660 NEXT j
1680 f(h) = fr
1690 REM далее следует сжатие
1700 FOR j = 1 TO n
1720 xc(j) = be * xh(j) + (1 - be) * x0(j)
1740 X(j) = xc(j)
1760 NEXT j
1780 GOSUB 5000: fc = z
1800 IF fc > fh THEN GOTO 1920
1820 FOR j = 1 TO n
1840 s(h, j) = xc(j)
1860 NEXT j
1880 f(h) = fc
PRINT "сжатие в строке 1880 "; z
1900 GOTO 2060
1910 REM далее следует редукция симплекса
1920 FOR i = 1 TO n + 1
1940 FOR j = 1 TO n
1960 s(i, j) = (s(i, j) + xl(j)) / 2
1980 X(j) = s(i, j)
2000 NEXT j
2020 GOSUB 5000: f(i) = z
2040 NEXT i: REM PRINT "выполните редукцию в строке 2040 "
2050 REM далее следует проверка сходимости
2060 s1 = 0: s2 = 0
2080 FOR i = 1 TO n + 1
2100 s1 = s1 + f(i)
s2 = s2 + f(i) * f(i)
2120 NEXT i
2160 sig = s2 - s1 * s1 / (n + 1): sig = sig / (n + 1)
2180 IF sig < 1E-10 THEN GOTO 2220
2200 GOTO 620
2220 PRINT "минимум найден в точке "
2240 FOR j = 1 TO n
2260 PRINT "x"; j; " ="; xl(j)
2280 NEXT j: PRINT ""
2300 PRINT "значение минимума функции="; f(l)
2340 PRINT "количество вычислений функции="; tev
Nitro PDF Trial
www.nitropdf.com

Страницы