%Control 02 pregunta 02 18 puntos
clearvars;
clc;

%lectura de datos desde teclado
x = input('ingrese numero para calcular ln(x) = ');
tolerancia = input('ingrese tolerancia de error erro = ');
tolerancia = 1e-6;

%calculamos valor real
lnReal = log(x);
lnCalculado = 0;
erro = abs(lnCalculado - lnReal);

N = 50; %cantidad de veces que vamos a iterar

%ciclo for para realizar cálculo
for n=0:100

  lnCalculado = 1/(2*n+1) * ( (x-1)/(x+1) )^(2*n+1) + lnCalculado;

end

lnCalculado = 2*lnCalculado;
erro = abs(lnCalculado - lnReal);

fprintf('N = %d, ln(%d) = %d, lnCalculado = %d, erro = %g\n',N,x,lnReal,lnCalculado,erro)