% Este programa ilustra el Método de Bisección.
a=1;
b=2;
p=(a+b)/2;
 f=demof_(p);
if f==0
   fprintf('La raíz es %12.5f.\n',p);
else
   while abs(b-a)>.000001
        p=(a+b)/2;
        pn=demof_(p)*demof_(a);
        if pn > 0
        a=p;
        else
        b=p;
     end
     fprintf(' La función evaluada en %12.10f. ',p);
     fprintf('es: %12.10f.\n',demof_(p));
end
end   



