Ejemplos De Metodos Numericos

% %metodo de biseccion
% %inicializa
% xi=0; xu=1; er=100;
% fprintf('i xi xu xr fxi fxu fxr er \n');
% for i=1:10
% xr=(xi+xu)/2;
% fxi=(xi^2)+(6*xi)-2;
%fxu=(xu^2)+(6*xu)-2;
% fxr=(xr^2)+(6*xr)-2;
% if fxr*fxi<0
% xu=xr;
% elseif fxr*fxu<0
% xi=xr;
% elseif fxr*fxi==0
% break;
%end
% xrnueva=(xi+xu)/2;
% er=abs((xrnueva-xr)/xrnueva)*100;
% fprintf('%d %.6f %.6f %.6f %.6f %.6f %.6f %.6f \n',i,xi,xu,xr,fxi,fxu,fxr,er);
%
%end
%%metodo de biseccion
% %inicializa
xi=0; xu=1; er=100;
fprintf('i xi xu xr fxi fxu fxr er \n');
for i=1:10
fxi=(xi^2)+(6*xi)-2;
fxu=(xu^2)+(6*xu)-2;xr=xu-((fxu*(xi-xu))/(fxi-fxu));
fxr=(xr^2)+(6*xr)-2;
if fxr*fxi<0
xu=xr;
elseif fxr*fxu<0
xi=xr;
elseif fxr*fxi==0
break;
endxrnueva=xu-((fxu*(xi-xu))/(fxi-fxu));
er=abs((xrnueva-xr)/xrnueva)*100;
fprintf('%d %.6f %.6f %.6f %.6f %.6f %.6f %.6f \n',i,xi,xu,xr,fxi,fxu,fxr,er);end

i xi xu xr fxi fxu fxr er
1 0.000000 0.500000 0.500000 -2.000000 5.000000 1.250000 100.000000
2 0.250000 0.500000 0.250000 -2.000000 1.250000 -0.437500 33.333333
30.250000 0.375000 0.375000 -0.437500 1.250000 0.390625 20.000000
4 0.312500 0.375000 0.312500 -0.437500 0.390625 -0.027344 9.090909
5 0.312500 0.343750 0.343750 -0.027344 0.3906250.180664 4.761905
6 0.312500 0.328125 0.328125 -0.027344 0.180664 0.076416 2.439024
7 0.312500 0.320313 0.320313 -0.027344 0.076416 0.024475 1.234568
8 0.316406 0.320313 0.316406-0.027344 0.024475 -0.001450 0.613497
9 0.316406 0.318359 0.318359 -0.001450 0.024475 0.011509 0.307692
10 0.316406 0.317383 0.317383 -0.001450 0.011509 0.005029 0.154083