//Sinus version 2

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

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

y=elementSuivant(3,1,1)

function S=sommeSerie(x,eps)
  en=premierElement(0,x);
  S=en;
  n=3;
  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.001;
S=sommeSerie(x,eps)
erreur=S-sin(x)
temps=toc()
