%
%Ejercicio 27.
%
x=-2:.1:-1;
y=0:.1:1;
z=2:.1:3;
X=[x,y,z];
F=X.^3-X.^2-4*X+3;
Z=[X(1:11);F(1:11);X(12:22);F(12:22);X(23:33);F(23:33)];
fprintf('%3.1f %6.3f\t %3.1f %6.3f\t %3.1f %6.3f\n',Z)

%Output
%
%
%-2.0 -1.000	 0.0  3.000	 2.0 -1.000
%-1.9  0.131	 0.1  2.591	 2.1 -0.549
%-1.8  1.128	 0.2  2.168	 2.2  0.008
%-1.7  1.997	 0.3  1.737	 2.3  0.677
%-1.6  2.744	 0.4  1.304	 2.4  1.464
%-1.5  3.375	 0.5  0.875	 2.5  2.375
%-1.4  3.896	 0.6  0.456	 2.6  3.416
%-1.3  4.313	 0.7  0.053	 2.7  4.593
%-1.2  4.632	 0.8 -0.328	 2.8  5.912
%-1.1  4.859	 0.9 -0.681	 2.9  7.379
%-1.0  5.000	 1.0 -1.000	 3.0  9.000
%


%Método de la bisección para calcular el cero mayor
% que está entre 2.1 y 2.2;
%
%
%
a=2.1;pa=-.549;
b=2.2;pb=.008;
n=0;
while b-a>.5*10^-3
   c=(a+b)/2;n=n+1;
   pc=c^3-c^2-4*c+3;
   if pc*pa<0
      b=c;pb=pc;
   else
      a=c;pa=pc;
   end
   
end
disp(' ')
disp('   No. Iter   cero      P(c)')
disp([n+1,c,pc])