// Logarithme Version 1
tic()

function y=elementSerie(n,x)
  y=(-1)^(n+1)*x^n/n;
endfunction

function S=sommeSerie(x,eps)
  S=0;
  n=1;
  en=elementSerie(n,x);//initialisations
  while(abs(en)>eps) // tant que l'élément courent est plus grand que l'erreur admise
    S=S+en;
    n=n+1;
    en=elementSerie(n,x) ;
  end
endfunction
 
//tests

x=0.338;
eps=0.0001;
S=sommeSerie(x,eps)
erreur=S-log(1+x)
temps=toc() 