Для производной третьего порядка можно использовать следующую формулу:
Здесь dx:=1 - первоначальная величина промежутка,
dx:=dx/2 – для уточнений делим промежуток на 2,
dy:=fx(x0+dx/2 -fx(x0-dx/2) – вычисление первой производной в точке x0 ,
dy2:=fx(5*x0/4+dx)-2*fx(5*x0/4)+fx(5*x0/4-dx) – вычисление второй производной, для определения точности вычисления, используется вторая производная в точке
abs(dy2/(2*dx))<eps - формула для оценки погрешности
дифференцирования,
proizv:=dy/dx – значение первой производной.
Для оценки точности вычисления корня необходимо вычислять наименьшее значение производной f'(x) на промежутке [a, b], поэтому надо найти производную в точке x0.
Так как мы вычислили значение производной, то составим процедуру определения модуля ее наименьшего значения на промежутке [a, b]:
Procedure minimum(a,b,eps:real;var min:real);
Для этого достаточно сравнить модуль значения производной на концах промежутка и выбрать среди этих двух значений меньшее. Это можно сделать , так как по условию, функция на промежутке строго монотонна вместе со своими производными первого и второго порядков. Следует брать значение очень близкое к a, но справа от нее, аналогично для точки b - брать близкое значение слева от b, так как если в точке a или b производная будет равна нулю, тогда деление на нуль станет невозможным и в программе будет получена ошибка.
Здесь min:=abs(proizv(a,eps))- модуль значения производной функции в начале отрезка,
d:=abs(proizv(b,eps))- модуль значения производной функции в конце отрезка,
If min>d Then – сравнение значений модуля производной.
Функция для указания точности вычисления:
Function utoch(eps:real):integer;
Применяется в выводе корня x для уточнения его порядка относительно погрешности.
Здесь k:=k+1 – оператор, подсчитывающий степень погрешности и порядка корня x.
Заданную функцию запишем так:
Function fx(x:real):real;
Здесь fx:=exp(x)-10*x – наша заданная функция.
Блок-схема алгоритма.
Список используемой литературы:
1) Математическое обеспечение САПР: Методические указания к практическим занятиям. Рязань, РРТИ, 1990 (№1706).
2) Математическое обеспечение САПР: Методические указания к лабораторным работам. Рязань, РРТИ, 1991 (№1890).
3) Бахвалов Н.С., Шадков И.П., Кобельников Г.М., Численные методы. М.: Наука, 1987.
4) Волков Е.А., Численные методы. М.: Наука, 1988.
5) Элементы вычислительной математики, под ред. С.Б.Норкина. М.: Высшая школа, 1966.