function [result,error,iter]=sqrt_test(x,a)
s=10^-4;
ju=1;
t=0;
i=0;
er = 0;
if(a<0)
ju = 0;
a=-a;
end
if(a==0)
x=0;
else
while(t==0)
xnew = (x+a/x)/2;
er = abs((xnew-x)/xnew);
x = xnew;
i=i+1;
if(er<s)
t = 1;
break;
end
end
end
if(ju==1)
result = x;
else
result = strcat(num2str(x),'i');
end
error = er;
iter = i;
end
增加了0除问题


雷达卡
京公网安备 11010802022788号







