//Cosinus version 2

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

function y=elementSuivant(n,en,x)
  m=modulo(n,2)
  if(m==1)
      y=0;
  else
      y=en*(-1)*x*x/((n-1)*n)
  end
endfunction


function S=sommeSerie(x,eps)
  en=premierElement(0,x);
  S=en;
  n=2;
  en=elementSuivant(n,en,x);
  while(abs(en)>eps) 
    S=S+en;
    n=n+2;
    en=elementSuivant(n,en,x) ;
  end
endfunction

//tests

x=0.21466;
eps=0.0001;
S=sommeSerie(x,eps)
erreur=S-cos(x)

temps=toc()
