|
Текст подпрограммы и версий ( Фортран ) mna2r.zip , mna2d.zip |
Тексты тестовых примеров ( Фортран ) tmna2r.zip , tmna2d.zip |
|
Текст подпрограммы и версий ( Си ) mna2r_c.zip , mna2d_c.zip |
Тексты тестовых примеров ( Си ) tmna2r_c.zip , tmna2d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) mna2r_p.zip , mna2e_p.zip |
Тексты тестовых примеров ( Паскаль ) tmna2r_p.zip , tmna2e_p.zip |
Поиск локального минимума функции одной переменной методом золотого сечения.
Пусть заданы функция F (X) и три такие точки A, B и C, локализующие минимум функции F (X), что A < B < C, причем F (B) < F (A) и F (B) < F (C).
Подпрограмма MNA2R осуществляет поиск точки XMIN минимума функции F (X) на отрезке [A, C] с относительной точностью EPS методом золотого сечения.
Н.С.Бахвалов. Численные методы. Изд - во "Наука", 1979.
SUBROUTINE MNA2R (F, A, B, C, EPS, XMIN, FMIN)
Параметры
| F - | имя вещественной подпрограммы - функции вычисления F (X); |
| A, B, C - | заданные значения тройки чисел, локализующих минимум функции F (X) (тип: вещественный); |
| EPS - | заданная относительная точность вычисления минимума функции F (X) на отрезке [A, C] (тип: вещественный); |
| XMIN - | вещественная переменная, значение которой полагается равным найденной точке минимума функции F (X) на отрезке [A, C]; |
| FMIN - | вещественная переменная, значение которой полагается равным F (XMIN). |
Версии
| MNA2D - | поиск минимума функции одной переменной в режиме удвоенной точности. При этом параметры A, B, C, EPS, XMIN, и FMIN должны иметь тип DOUBLE PRECISION, а подпрограмма - функция F должна быть описана как DOUBLE PRECISION FUNCTION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
FUNCTION F (X)
F = X*X
RETURN
END
EXTERNAL F
A = - 10.0
B = - 9.9
C = 11.0
EPS = 1.E - 6
CALL MNA2R (F, A, B, C, EPS, XMIN, FMIN)
Результаты:
XMIN = 0.374339E - 22
FMIN = 0.0