// Exponentielle Version 1

tic()
function z=factorielle(n)
  z=1;
  for i=1:n
    z=z*i;
  end
endfunction

function y=elementSerie(n,x)
  // décommenter la fonction voulue
  // exponentielle
  y=x^n/factorielle(n);
endfunction

function S=sommeSerie(x,eps)
  // x est le point pour lequel on veut approcher la fonc
  // eps est la tolérance
  S=elementSerie(0,x);;
  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=1.37;
eps=0.0001;
S=sommeSerie(x,eps)
erreur=S-exp(x)
temps=toc()