SUB dih (a, b, E, xmax)

ПРОГРАММА НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ QBASIC

Пример выполнения лабораторной работы

Дана функция y = -2x² + 3x + 50.

Найти оптимальное значение функции y двумя способами: методом «золотого сечения» и методом «половинного деления». Заданный интервал измерения x (0;1), точность вычисления E = 0.001.

БЛОК-СХЕМА

Рис. 8. Блок схема алгоритма (общая и процедура решения по методу половинного деления):

где а, b - нижняя и верхняя границы изменения х;

е - точность вычислений;

dih - процедура вычисления методом половинного деления;

zolot - процедура вычисления методом золотого сечения.

Рис. 9. Блок схема процедуры решения по методу золотого сечения, функция.

DECLARE SUB zolot (a!, b!, E!, xmax!)

DECLARE SUB dih (a!, b!, E!, xmax!)

DECLARE FUNCTION f! (x!)

CLS

INPUT "введите значения отрезка a="; a

INPUT "введите значения отрезка b="; b

INPUT "введите погрешность вычисления Eps="; E

REM метод дихотомии или половинного деления

CALL dih(a, b, E, xmax)

PRINT "Значения max по методу дихотомии"

PRINT "при X="; xmax

PRINT "значение функции Y(xmax)="; f(xmax)

a = 0

b = 1

PRINT "Значение max по методу золотого сечения"

CALL zolot(a, b, E, xmax)

PRINT "при X="; xmax

PRINT "значение функции Y(xmax)="; f(xmax)

END

DO UNTIL ABS(b - a) < 2 * E

x1 = (a + b - E) / 2

x2 = (a + b + E) / 2

IF f(x1) > f(x2) THEN

b = x2

ELSE

a = x1

END IF

LOOP

xmax = (a + b) / 2

Дата добавления: 2017-02-01