% script passo2.m
% fa un passo del metodo della bisezione
%
%controllo ampiezza
if (b-a < eps)  break; end;
%calcolo nuovo punto
c=(a+b)/2;
fc=keplero(c,eta,epsilon);
if(fc==0) 
    a=c;
    b=c;
    fa=fc;
    fb=fc;
    break;
end;
%determino nuovi a e b
if ( ((fa>0)&(fc>0)&(fb<0)) | ((fa<0)&(fc<0)&(fb>0)) ) 
% cambio a
a=c;
fa=fc;
end;
if ( ((fa>0)&(fc<0)&(fb<0)) | ((fa<0)&(fc>0)&(fb>0)) ) 
% cambio b
b=c;
fb=fc;
end;
