Методич_стат-исправлено. Методические указания по курсу Информатика

• Название: Методические указания по курсу Информатика
• Анкор: Методич_стат-исправлено.doc
• Дата: 12.03.2019
• Размер: 2.11 Mb.
• Имя файла: Методич_стат-исправлено.doc
• Тип: Методические указания; #25584
• страница: 19 из 23

Метод золотого сечения

Золотое сечение проводит деление отрезка АВ на две неравные части так, чтобы было справедливо соотношение (рис. 7).

Рис. 7

Метод золотого сечения позволяет сужать отрезок [a, b] каждый раз вычисляя лишь одно значение F(x), а не два, как в методе дихотомии.

Данный метод реализуется следующим алгоритмом:

1. 
   Находим коэффициент дробления k=(√5-1)/2 отрезка [a, b].
   
2. 
   Находим абсциссу х₁=a + (1-k)*(b-a) и вычисляем F(x₁).
   
3. 
   Находим абсциссу х₂=a + k*(b-a) и вычисляем F(х₂).
   
4. 
   Проверяем выполнение условия |x₂-x₁|n. Если это условие выполняется, вычисляем x_n = (x₁+ x₂)/2 и F(x_n), после чего останавливаем счёт с выдачей значений x_m и F(x_n). Если данное условие не выполняется, идём к п.5.
   
5. 
   Проверяем условие F(x₁) < F(x₂). Если оно выполняется, полагаем, а = х₁, х₁ = х₂ и F(x₁) = F(x₂), после чего идём к п.3. и п.4.
   

Если F(x₁) ≥ F(x₂), полагаем b = x₂, x₂ = x₁, f(x₁) = f(x₂), после чего выполняем п.2 и п.4

Использование ППП Eureka и Excel при решении задач оптимизации

Использование ППП Eureka для поиска экстремумов функций одной переменной.

Для поиска максимумов функций одной переменной необходимо в окне Edit набрать

$|__|max(F)

y(x)=

F=y(x)

В окне Solution будет выдано решение

F=

x=

Перед решением задачи весьма полезно оценить вид функции, экстремум которой необходимо найти и уточнить интервал x, в котором этот экстремум находится. Для этого достаточно воспользоваться командой Plot в позиции Graf основного меню. Из вида графика сделать вывод о правильности решения.

Использование ППП Excel для поиска экстремумов функций одной переменной.

Для поиска максимумов функций одной переменной необходимо:

Вызвать Подбор параметра, с помощью команды в меню Сервис. Окно Подбор параметра состоит из трех полей:

- Установить целевую ячейку, в котором ставится ссылка на ячейку с формулой (Y);

- Равной – выбираем максимальному значению;

- Изменяя ячейки, в которой ставится ссылка на ячейку с изменяемым параметром (первая граница, а интервала (а,в)).



После нажатия кнопки OK, появляется окно, Результаты поиска решения, сохраняем найденное решение. Полученное решение:

Содержание отчета

1. 
   Содержательная постановка задачи.
   
2. 
   Исходные данные.
   
3. 
   Краткое описание методов.
   
4. 
   Блок схема подпрограмм и блок схема головного (или управляющего) модуля.
   
5. 
   Листинг подпрограмм и управляющего модуля.
   
6. 
   Распечатка полученных результатов.
   
7. 
   Распечатка результатов в Excel и Эврика.
   

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

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

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

БЛОК-СХЕМА

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

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

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

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

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


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

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

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

SUB dih (a, b, E, xmax)

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

END SUB

FUNCTION f (x)

f = -2 * x ^ 2 + 3 * x + 50

END FUNCTION

SUB zolot (a, b, E, xmax)

k = (SQR(5) - 1) / 2

x1 = a + (1 - k) * (b - a)

x2 = a + k * (b - a)

DO UNTIL ABS(x2 - x1) < E

IF f(x1) < f(x2) THEN

a = x1

x1 = x2

ELSE

b = x2

x2 = x1

END IF

x1 = a + (1 - k) * (b - a)

x2 = a + k * (b - a)

LOOP

xmax = (x1 + x2) / 2

END SUB