function c=radiceq(a,e)
s=strcat('x*x-',num2str(a));
f=inline(s);
if a<=1 
    c=bisezione2(f,a,1,e);
else
    c=bisezione2(f,1,a,e);
end