function y = Raiz_Cuadrada(A)
r = A;
while abs(r*r - A) > 0.00001 
    r = (r*r+A)/(2*r);
end;