ребята, может кто делал, или знает как описать унимодальную фукнцию

[Alenka63]

нужно на vba
вообщем есть унимодальная функция, необходимо найти минимум этой функции
f(x) = (x-4)^2 отрезок [2;7]
Алгоритм такой
a = 2
b = 7
x1 = a + 1 / 3 * (b - a)
x2 = a + 2 / 3 * (b - a)
Если f(x1)>f(x2) то
то присваем значения
a = x1
b=b
x1 = a + 1 / 3 * (b - a)
x2 = a + 2 / 3 * (b - a)
xmin = (a + b) / 2
Если f(x1) < f(x2) то
b = x2
a =a
x2 = a + 2 / 3 * (b - a)
x1 = a + 1 / 3 * (b - a)
xmin = (a + b) / 2

и это должно вычисляться до тех пор,пока b-a >0.0001
если меньше то берем последний xmin

циклы понятно как описывать, а вот с фукнциями не понимаю что-то

[Казанский]

кросс http://www.planetaexcel.ru/forum/ind...-na-otrezke-ab

[IgorGO]

Alenka63, в какие дебри Вас занесло!
эта задача имеет точное математическое решение (читайте высшая математика, анализ функций)

для нахождения экстремума функции необходимо взять первую производную и приравнять ее к нулю.

f(x) = (х-4)^2 = x^2 - 8x + 16
производная:
f '(x) = 2х - 8
2х - 8 = 0 => при x = 4, f(x) = (4-4)^2 = 0 Все!

Ответ: при х =4 функция f(x) = (х-4)^2 имеет минимальное значение равное 0.