function serie = crea_serie_Fourier (a0,An, Bn,t,nterm,T)
  suma = 0;
  w = 2*pi/T;
  for n=1:nterm
    termino_cos = An(n)*cos(n*w*t);
    termino_sen = Bn(n)*sin(n*w*t);
    suma = suma + termino_cos + termino_sen; 
  endfor
  serie = a0 + suma;
endfunction