// Exponentielle Version 2

tic()
function y1=premierElement(n,x)
  y1=1;
endfunction

function y=elementSuivant(n,en,x)
  y=en*x/n;
endfunction

function S=sommeSerie(x,eps)
  // x est le point pour lequel on veut approcher la fonc
  // eps est la tolérance
  en=premierElement(0,x);
  S=en;
  n=1;
  en=elementSuivant(n,en,x);//initialisations
  while(abs(en)>eps) 
    S=S+en;
    n=n+1;
    en=elementSuivant(n,en,x) ;
  end
endfunction

//tests
x=1.37;
eps=0.0001;
S=sommeSerie(x,eps)
erreur=S-exp(x)
temps=toc()