Evaluacion Continua 3 Biseccion
Evaluacion Continua 3 Biseccion
Evaluacion Continua 3 Biseccion
CODIGO EN OCTAVE
clear all;clc;
format long;
y = [1 -1 -1993/34 13189/225 58564/225 -1822/7];
x = -8:0.1:8;
graf = polyval(y,x);
plot(x,graf,'g','LineWidth',2 )
a = -8;
b = 8;
for i=1:1:11
c =(a+b)/2;
if polyval(y,c)>0
b = c;
end
if polyval(y,c)<0
a = c;
end
end
disp('La raiz es: ')
disp(c)
GRAFICA