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

UptoLike

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

81
Приложение5
Метод "золотого сечения" [11]
1. Подпрограмма нахождения минимума функции(Qbasic)
SUB Goldminimum (A, B, E, x, F)
REM Подпрограмма производит поиск интервала {X1,X2},
REM в котором лежит точка минимума функции F(x)
REM методом " золотого сечения"
REM F(x) определяется в подпрограмме Func
REM А,В - интервал возможного варьирования переменной х
REM А - нижний предел; В - верхний предел
REM Е - относительная погрешность вычислений
REM (относительно интервала А - В) (Х2-Х1)<=Е*(В-А)
t1 = .3819660113#: t2 = 1 - t1
x0 = A: x1 = A + t1 * (B - A): x2 = A + t2 * (B - A): x3 = B
CALL Func(x1, F1)
CALL Func(x2, F2)
DO
IF F2 > F1 THEN
i = x2 - x0: x3 = x2: x2 = x1: x1 = x0 + t1 * i: F2 = F1
CALL Func(x1, F1)
Nitro PDF Trial
www.nitropdf.com