«Методы половинного и шагового деления Microsoft Excel, MathCAD, Pascal» - Курсовая работа

Цель – раскрыть содержание темы «Метод половинного деления». Закрепить ее путем выполнения курсовой работы. Создать программный продукт, который находит отрезок и искомый корень уравнения в этом отрезке при помощи шагового метода. Уточнить корень методом половинного деления.

Задачи:

1. Изучить метод половинного деления и шаговый метод для решения нелинейных уравнений.

2. Научиться решать нелинейные уравнения в Pascal, Microsoft Excel, MathCAD.

3. Решить данное уравнение и найти корни и построить графики.

4. Проанализировать результаты.

5. Сделать выводы.

Нелинейные уравнения и метод половинного деления

f(x) = 0, (1) где функция f(x) определена и непрерывна на некотором конечном или бесконечном интервале  x . В частности, в форме нелинейных уравнений представляются математические модели анализа статических свойств объектов проектирования или их элементов. Если функция f(x) представляет собой многочлен n-й степени видаa0 + a1 x + a2 x2 + . + anxn, то уравнение (1) называется алгебраическим. Когда x находится под знаком трансцендентной функции (показательной, логарифмической, тригонометрической и т.п.), уравнение называется трансцендентным. Значение аргумента x, при котором функция f(x) обращается в нуль, т.е. f(x*) = 0, называется корнем уравнения.

В общем случае для функции f(x) не существует аналитических формул для нахождения корней. Более того, их точное вычисление не всегда является необходимым. Это объясняется тем, что встречающиеся в инженерной практике уравнения часто содержат коэффициенты, величины которых имеют приближенные значения. В таких случаях решается задача определения корней с некоторой заранее заданной степенью точности.

В дальнейшем предполагаем, что уравнение (1) имеет только изолированные корни, т.е. для каждого из них существует некоторая окрестность, не содержащая других корней этого уравнения. Процесс нахождения изолированных действительных корней нелинейного уравнения включает два этапа:

1) отделение корней, т.е. нахождение интервалов [a, b], внутри которых содержится один и только один корень уравнения;

2) уточнение приближенных значений отдельных корней до заданной степени точности.

5

Этап отделения корней может быть выполнен различными способами. Во-первых, приближенное значение корня иногда бывает известно из физического смысла задачи. Во-вторых, для отделения корней может использоваться графический способ, основанный на построении графика функции y = f(x), где приближенные значения действительных корней уравнения f(x) = 0 соответствуют абсциссам точек пересечения или касания графика с осью 0x (y = 0). Наиболее часто применяется метод отделения корней, основанный на следующем положении: если на концах некоторого интервала [a, b] значения непрерывной функции f(x) имеют разные знаки, т.е. f(a)f(b) , то на этом интервале уравнение (1) имеет хотя бы один корень. При этом корень является единственным, если производная функции f'(x) существует и сохраняет постоянный знак внутри интервала [a, b].Рассмотрим простейший алгоритм отделения корней нелинейных уравнений, ориентированный на использование ЭВМ. Исходный интервал [, ], на котором определена и непрерывна функция f(x), разбивается на n отрезков равной длины

(x0, x1), (x1, x2), ., (xn -1, xn),где x0  x1 .xn и x0 = , xn = . Затем вычисляются значения функции f(xj) в точках xj (j = ) и выбирается отрезок (xi, xi+1), на концах которого функция имеет разные знаки, т.е. f(xi)f(xi+1)  0. Если длина этого отрезка достаточно мала (можно предположить единственность корня), то считается, что корень отделен на интервале [a, b], где a = xi, b = xi+1. В противном случае границы исходного интервала сдвигаются, т.е.  = xi,  = xi + 1, и процедура повторяется.

Необходимо отметить, что длина исходного интервала [], на котором определена функция f(x), может изменяться в широких пределах. Поэтому число отрезков n, а также длина искомого

Программа

Program ex_1;

Uses crt;

Var c,d,h,a,b:real ; k:integer ;

Function F(x:real ):real ;

Begin

F:= exp(x*ln(2))-4*x

End ;

Begin

Writeln ('vvedite c,d,h');

Readln (c,d,h);

k:= 0 ;

a:=c;

Repeat

b:=a+h;

If F(a)*F(b)<= 0 then

begin

k:=k+1 ;

Writeln ('k=',k,' a=',a:5 :2 ,' b=',b:5 :2 );

end ;

until b>d;

end.

Ответ: k=1 a=0 b=0.5

k=2 a=3.5 b=4