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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

77
720 FOR J = 1 TO N: c(i, J) = (c(i, J) + xc(J)) / 2: x(J) = c(i, J): NEXT J
740 GOTO 640
760 GOSUB 5000: F(i) = z
780 IF i < K GOTO 600
790 REM Упорядочить значения функции и точки ,
795 REM в которой она вычислена
800 FOR J = 1 TO K - 1
820 FOR i = J + 1 TO K
840 IF F(J) <= F(i) GOTO 900
860 F = F(J): F(J) = F(i): F(i) = F
880 FOR l = 1 TO N: Y(l) = c(J, l)
c(J, l) = c(i, l): c(i, l) = Y(l): NEXT l
900 NEXT i: NEXT J
910 REM Запомнить наименьшее значение Функции
920 FM = F(1)
1000 PRINT "Первая точка"
1020 PRINT "Минимальное значение="; F(1)
1040 PRINT "Минимальная точка"
1060 FOR l = 1 TO N: PRINT "x"; l, c(1, l): NEXT l
1080 PRINT
1100 REM Задать коэффициент отражения
1120 A = 1.3
1190 REM Определить "центр тяжести" наилучших (к-1) точек
1195 REM и запомнить наихудшую точку
1200 FOR l = 1 TO N: xh(l) = c(K, l)
x0(l) = (K * xc(l) - xh(l)) / (K - 1): NEXT l
1390 REM Получить отраженную точку
1400 FOR l = 1 TO N: xr(l) = (1 + A) * x0(l) - A * xh(l)
x(l) = xr(l): NEXT l
1490 REM Проверить, допустима ли новая точка
1500 IM = 0
1520 GOSUB 6000
1540 IF Ec = 0 AND Ic = 0 GOTO 2000
1550 REM Если точка является допустимой, то перейти к строке 2000
1555 REM и вычислить значение Функции
1600 IF Ec = 0 GOTO 1800
Nitro PDF Trial
www.nitropdf.com

Страницы