Одномерная оптимизация (Вариант 16).

Проверим выполнение аналитического условия унимодальной функции на выбранном отрезке
теоретическая длина отрезка неопределенности после трех итераций
Проведем ручной расчёт трёх итераций по методу Дихитомии
- параметр метода для ручного расчета
Решение задачи оптимизации с точностью Е = 0,0001 с использованием программы
DECLARE FUNCTION f! (x AS SINGLE)
CLS
PRINT "Vvedite otrezok neopredelennosti [a,b]"
INPUT " a - ", a
INPUT " b - ", b
INPUT "Tochnost vichisleniya:"; E
INPUT "Parametr metoda:"; d
PRINT

x2 = (a + b + d) / 2
IF f(x1) > f(x2) THEN
a = x1
ELSE
FUNCTION f! (x AS SINGLE)
f = SIN(EXP(x)) - EXP(-x) + 1
END FUNCTION

DECLARE FUNCTION f! (x AS SINGLE)
CLS
PRINT "Vvedite otrezok neopredelennosti [a,b]"
INPUT " a - ", a
INPUT " b - ", b
INPUT "Tochnost vichisleniya:"; E

xz = (a + b) / 2
fz = f(xz)
PRINT "****************************************************************************"
PRINT "Tochka maksimuma: x="; xz; "f="; fz
END

FUNCTION f! (x AS SINGLE)
f = SIN(EXP(x)) - EXP(-x) + 1
END FUNCTION

СОДЕРЖАНИЕ
Вычисления в Mathcad 3
Листинг программ 5
Список литературы 11

СПИСОК ЛИТЕРАТУРЫ
1. Банди Б. \методы оптимизации. М.: Радио и связь, 1988. 128 с.
2. Мельникова О.И., Бонюшкина А.Ю. Начала программирования на языке Qbasic: Учебное пособие = М.: Издательство ЭКОМ, 2000 304 с., ил.
3. Бирюков С.И. Оптимизация. Элементы теории. Численные методы: Учеб. пособие. М. : МЗ-Пресс, 2003. 248с. : рис. (Серия "Естественные науки). Библиогр.: с. 245-246.
4. Волков Е.А. Численные методы: Учеб. пособие. 3.изд., испр. СПб. ; М. ; Краснодар : Лань, 2004. 248с. : рис., табл. (Учебники для вузов). Библиогр.: с. 244.