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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

68
REM поиск по образцу
540 FOR i = 1 TO n: p(i) = 2 * y(i) - b(i)
550 b(i) = y(i): x(i) = p(i): y(i) = x(i)
560 NEXT i
570 GOSUB 2000: fb = fi: ps = 1: bs = 0: fi = z
580 PRINT "Поиск по образцу"; z
590 FOR i = 1 TO n: PRINT x(i); " "; : NEXT i: PRINT ""
REM после этого произвести исследование вокруг
REM последней точки образца
610 j = 1: GOTO 200
700 PRINT "Минимумнайден"
710 FOR i = 1 TO n: PRINT "x"; i; "="; p(i): NEXT i: PRINT ""
750 PRINT "Минимум функции равен"; fb
760 PRINT "Количество вычислений функций равно"; fe
790 END
2000 z = (x(1) -2) ^ 2 + (x(2) - 5) ^ 2 + (x(3) + 2) ^ 4
2010 fe = fe + 1
REM счетчик количества вычеслений функции
2030 RETURN
Приложение2
Программа нахождения минимума функции нескольких переменных
z=f(x1,x2,...,xn) градиентным методом Давидона-Флетчера-Пауэла [11]
CLS
DEFDBL A-H, K-Z
100 PRINT "Минимизация методом Давидона-Флетчера-Пауэла"
120 REM Одномерный поиск производится кубической интерполяцией
150 REM Функция F(X1,X2,...XN) Вычисляется в строке 5000
155 REM Значения первых производных G(1),G(2),...G(N)
REM Вычисляются в строке 6000
200 PRINT "Введите число переменных": INPUT N
220 DIM X(N), P(N), Q(N), R(N)
DIM D(N)
DIM GL(N)
DIM U(N), V(N), Y(N), M(N)
240 DIM H(N, N)
Nitro PDF Trial
www.nitropdf.com

Страницы