Курсовая работа: Программа вычисления минимума заданной функции

Модуль отработал верно.

5.2 Тестирование модуля поиска минимума функции F ( x ) на отрезке [ a ; b ]

программный модуль минимум функция

Проверим работоспособность модуля, найдя с его помощью минимум функции F(x)=x² на отрезке [a;b]. Очевидно, что x_min =0, F(x_min )=0.

5.2.1 Схема алгоритма тестирующей программы:

Схема алгоритма управляющей программы

Схема алгоритма модуля f ( x , LX 1, LX 2)

5.2.2 Код тестирующей программы

DECLARE FUNCTION dihotom (a, b, e, LX1, LX2)

DECLARE FUNCTION F (xmin, LX1, LX2)

CLS

LOCATE 1, 15

PRINT "Kursovaya rabota po informatike OTLADKA"

LOCATE 2, 18

PRINT "Gruppa PS0601, Adamskiy Alexey"

PRINT

xmin = dihotom(-2, 1, .0001, 1, 0)

PRINT TAB(10); "Minimum F(x): xmin="; xmin; "F(xmin)="; F(xmin, 1, 0)

END

FUNCTION dihotom (a, b, e, LX1, LX2)

PRINT TAB(10); "Promezhutochnie rezul`tati"

PRINT " a b x1 x2 f(x1) f(x2) b-a" DO x1 = (a + b - e / 4) / 2 x2 = (a + b + e / 4) / 2 PRINT USING " ##.###### #.##### #.##### #.##### #.##### #.##### #.#####"; a; b; x1; x2; F(x1, LX1, LX2); F(x2, LX1, LX2); b - a IF F(x1, LX1, LX2) > F(x2, LX1, LX2) THEN a = x1 ELSE b = x2 LOOP UNTIL ABS(b - a) <= e

dihotom = (a + b) / 2

END FUNCTION

FUNCTION F (x, LX1, LX2)

F = LX1 * x ^ 2 + LX2 * x