%% Filtro FIR pasobajo ideal
%% Metodo series de fourier



N = [16 32 64];

for i=[1:length(N)]
  
  n = 0:N(i)-1;
  n=n-(N(i)-1)/2;

  Fc = 0.25;

  h = 2*Fc*sinc(2*Fc*n);

  M=500;
  [H,F] = freqz(h,1,M,1);

  subplot(length(N),1,i);plot(F,abs(H));grid;
  title(['Truncamiento: N = 'num2str(N(i))]);
  xlabel(['Frecuencia Digital f/fs']);
  ylabel(['|H(F)|']);
end

pause;

print -depsc2 fir_lp_ideal_trunc

close