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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

79
2560 F = F(J): F(J) = F(i): F(i) = F
2580 FOR l = 1 TO N
Y(l) = c(J, l): c(J, l) = c(i, l): c(i, l) = Y(l)
NEXT l
2600 NEXT i: NEXT J
2610 REM Если наименьшее значение Функции уменьшено,
2615 REM выставить признак печати
2620 IF F(1) < FM THEN PP = 1
2630 REM Если уменьшение Функции не обнаружено,
2633 REM то проверка критерия завершения поиска минимума не
производится
REM IF PP = 0 GOTO 1190
2990 REM Найти отклонение значений Функции
3000 S1 = 0: S2 = 0
3020 FOR i = 1 TO K: S1 = S1 + F(i): S2 = S2 + F(i) * F(i): NEXT i
3040 SD = S2 - S1 * S1 / K: SD = SD / K
3090 REM Найти максимальное расстояние между
3095 REM точками комплекса
3100 DM = 0
3120 FOR i = 1 TO K - 1: FOR J = i + 1 TO K
3140 D = 0
3160 FOR l = 1 TO N: D = D + (c(i, l) - c(J, l)) ^ 2: NEXT l
3180 D = SQR(D)
3200 IF D > DM THEN DM = D
3220 NEXT J: NEXT i
3400 IF PP = 0 GOTO 3790
3500 PRINT "Новая точка в строке 3500"
3520 PRINT "Минимальное значение ="; F(1)
3540 PRINT "Точка минимума"
3560 FOR l = 1 TO N: PRINT "x"; l, c(1, l): NEXT l
3580 PRINT ""
3600 FM = F(1): PP = 0
3790 REM Проверка сходимости
3800 IF SD > .0000001 AND DM > .0001 GOTO 1190
4000 PRINT "Минимум найден"
4020 PRINT "точка минимума"
4040 FOR l = 1 TO N: PRINT "x"; l, c(1, l): NEXT l
4060 PRINT "Минимум Функции="; F(1)
4080 PRINT "Количество вычислений Функции="; FE
4100 END
5000 z = -x(1) * x(2) * x(3) + 3300
5050 FE = FE + 1
Nitro PDF Trial
www.nitropdf.com

Страницы