Método De La Bisección

% Aproximar una raíz de exp(x)-3*x^2 con un error de 1/100

clear
clc
format long
a=0;
b=2;
E=1/100;v=(log(b-a)-log(E))/log(2)-1;
n=ceil(v);

for i=0:n

x=(a+b)/2;
YC=exp(x)-3*x^2;

if YC==0,
break
endYI=exp(a)-3*a^2;
YD=exp(b)-3*b^2;

if YI*YC<0,
b=x;
end
if YC*YD<0,
a=x;
end
end
x

%Resultado: x = 0.914062500000000

% Aproximar una raíz de sqrt(x)*sin(x)-x^3+2 con un error de 1/30

clear
clc
format long
a=0;
b=2;E=1/30;
v=(log(b-a)-log(E))/log(2)-1;
n=ceil(v);

for i=0:n

x=(a+b)/2;
YC=sqrt(x)*sin(x)-x^3+2;

if YC==0,break
end

YI=sqrt(a)*sin(a)-a^3+2;
YD=sqrt(b)*sin(b)-b^3+2;

if YI*YC<0,
b=x;
endif YC*YD<0,
a=x;
end
end
x

% Resultado x = 1.468750000000000

% Aproximar una raíz de x^4+x^3-4*x^2-2*x+4 conun error de 1/100

clear
clc
format long
a=-2.5;
b=-1.8;
E=1/1000;
v=(log(b-a)-log(E))/log(2)-1;
n=ceil(v);

for i=0:nx=(a+b)/2;
YC=;

if YC==0,
break
end

YI=a^4+a^3-4*a^2-2*a+4;
YD=b^4+b^3-4*b^2-2*b+4;if YI*YC<0,
b=x;
end
if YC*YD<0,
a=x;
end
end
x

% Resultado: x = -2.000292968750000