 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Компьютерная модель комбинированного метода
var a,b:real;
e,e1:real;
x0,x1,x2:real;//дополнительные преременные для данного метода
i,n:integer;
function f(var x:real):real;
begin
f:= X*X*X-sin(x);
end;
function f1(var x:real):real; //первая производная
begin
f1:= 3*X*X-cos(x);
end;
function f2(var x:real):real; //вторая производная
begin
f2:= 6*X+sin(x);
end;
begin
clrscr;
write('vvedi kolicestvo korney '); readln(n);
for i:=1 to n do
begin
write('vvedi levu granicu '); readln(a);
write('vvedi pravu granicu '); readln(b);
write('vvedi tochnost '); readln(e);
if f(a)*f2(a)>0
then
begin
x0:=a;
x1:=x0-f(x0)/f1(x0);
x2:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x1+x2)/2
end
else
begin
x0:=b;
x1:=x0-f(x0)/f1(x0);
x2:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x1+x2)/2
end;
while abs(e1-x1)>e do
begin
a:=x1;
b:=x2;
x1:= a-f(a)/f1(a);
x2:= a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x1+x2)/2;
writeln(x1:10:8);
end;
writeln ('koren uravneniya ',x1:10:8);
end;
readln
end.
Результаты компьютерного эксперимента
vvedi kolicestvo korney 3
vvedi levu granicu -1
vvedi pravu granicu -.7
vvedi tochnost 0.001
-0.92870181
koren uravneniya -0.92870181
vvedi levu granicu -0.3
vvedi pravu granicu 0.3
vvedi tochnost 0.001
0.00186023
koren uravneniya 0.00186023
vvedi levu granicu 0.7
vvedi pravu granicu 1
vvedi tochnost 0.001
0.92870181
koren uravneniya 0.92870181
Таким образом, решения уравнения 
Все рассмотренные методы, дают одинаковый результат с выбранной точностью.
Поиск по сайту: