function [b,n] = logapprox(tol)
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here
    a = log(2);
    b = 0;


    cadenainfo1 = '========================================================';
    cadenainfo2 = sprintf('Entrada en la función logapprox con tol = %f', tol);
    cadenainfo_salida = [ cadenainfo1 newline cadenainfo2 ];
    disp(cadenainfo_salida);
    k = 0 ;
    while abs(a-b) > tol
       k = k +1 ;
        b = b + ((-1) ^(k-1))/k ;

        if mod(k,10000) == 0
            cadenainfo1 = sprintf( 'k = %u ; |a - b| = %f', k, abs(a-b) );
            disp(cadenainfo1);
        end
    end
    n = k;
    
    
    cadenainfo1 = sprintf('Salida en la función logapprox con n = %f', n);
    cadenainfo2 = '========================================================';
    cadenainfo_salida = [ cadenainfo1 newline cadenainfo2 ];
    disp(cadenainfo_salida);
    
end