Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Порядок выполнения работы. 1. Изучить метод решения нелинейных уравнений, соответствующий Вашему варианту.





1. Изучить метод решения нелинейных уравнений, соответствующий Вашему варианту.

2. Разработать программу для решения данного нелинейного уравнения.

3. Решить нелинейное уравнение с точностью e = 0,0001.

 

Варианты заданий
1) 2 cos x -7 x = 0 методом хорд,

 

 

Листинг программы

program horda;

uses crt;

var xn,xk,x,prib: real;

fx,mm,e,tz,h,fpr,min,max,zz: real;

Label Met1;

 

Function Fun(fx:real):real;

Begin

Fun:=2*cos(fx)-7*fx;

end;

 

Function Pr1(x:real):real;

Begin

Pr1:=-2*sin(x)-7;

end;

 

Begin

clrscr;

e:=0.0001;

Writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

Writeln ('Определение корней нелинейного уравнения метод хорд');

Writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

Writeln;

Met1: Writeln ('Введите начальное значение диапазона:');

Readln (xn);

Writeln ('Введите конечное значнеие диапазона:');

Readln (xk);

if xk<xn then begin

writeln ('Не правильный диапазон. Повторите попытку'); Goto Met1;

end;

{Определение min и Max}

h:=(xk-xn)/10000;

max:=abs(Pr1(xn));

min:=abs(Pr1(xn));

tz:=xn;

while tz<=xk do begin

fpr:=abs(Pr1(tz));

if max<fpr then max:=fpr;

if min>fpr then min:=fpr;

tz:=tz+h;

end;

writeln ('Максимальное значение первой производной = ',max:5:4);

writeln ('Минимальное значение первой производной = ',min:5:4);

if Fun(xk)*Fun(xn)<0 then

begin

Prib:=abs(Fun(xk)-Fun(xn));

writeln;

writeln (' x | Приближение "e"');

writeln ('___________________________');

while abs(prib)>=e do begin

zz:=x;

x:=xn-(fun(xn)/(fun(xk)-fun(xn)))*(xk-xn);

prib:=((max-min)/min)*abs(x-xn);

if fun(xn)*fun(x)<0 then xk:=x;

if fun(x)*fun(xk)<0 then xn:=x;

writeln (zz:5:4, ' | ', prib:5:5);

end;

Writeln;

Writeln ('** Проверка **');

Writeln ('Значение заданной функции при приближении <=0.0001 при х= ',zz:5:4,' равно ',fun(x):4:3);

end

else Writeln ('Корней в выбранном диапазоне нет');

end.

 

 







Дата добавления: 2015-08-31; просмотров: 310. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Разновидности сальников для насосов и правильный уход за ними   Сальники, используемые в насосном оборудовании, служат для герметизации пространства образованного кожухом и рабочим валом, выходящим через корпус наружу...

Дренирование желчных протоков Показаниями к дренированию желчных протоков являются декомпрессия на фоне внутрипротоковой гипертензии, интраоперационная холангиография, контроль за динамикой восстановления пассажа желчи в 12-перстную кишку...

Деятельность сестер милосердия общин Красного Креста ярко проявилась в период Тритоны – интервалы, в которых содержится три тона. К тритонам относятся увеличенная кварта (ув.4) и уменьшенная квинта (ум.5). Их можно построить на ступенях натурального и гармонического мажора и минора.  ...

Устройство рабочих органов мясорубки Независимо от марки мясорубки и её технических характеристик, все они имеют принципиально одинаковые устройства...

Ведение учета результатов боевой подготовки в роте и во взводе Содержание журнала учета боевой подготовки во взводе. Учет результатов боевой подготовки - есть отражение количественных и качественных показателей выполнения планов подготовки соединений...

Сравнительно-исторический метод в языкознании сравнительно-исторический метод в языкознании является одним из основных и представляет собой совокупность приёмов...

Studopedia.info - Студопедия - 2014-2025 год . (0.009 сек.) русская версия | украинская версия