% =================================================================
% Funcion cajon (boxcar) discreto y su respuesta en frecuencia.
% Es interesante comparar estas funciones con la funcion cajon
% continua y su transformada de Fourier.
%
% =================================================================
clear all;close all

L=10; % numero de muestras = 1 del cajon

% ---------------------
% boxcar discreto en un numero 3*L+1 de muestras
% ---------------------

n           = (-L:2*L);  % muestras
xn(3*L+1)   = 0;
xn(L+1:2*L) = 1;
    
% ---------------------
% Respuesta en frecuencia del boxcar discreto
% ---------------------

N  = 501; % puntos a evaluar de la rta. en frecuencia.
dw = 4*pi/N;
w  = (-N:N)*dw;

for j=1:length(w)
X(j)=L*diric(w(j),L)*exp(-i*0.5*w(j)*(L-1)); % utiliza la funcion diric
end


% ---------------------
% GRAFICOS
% ---------------------


figure(1);

subplot(2,1,1)
stem(n,xn,"color","b","markersize",8,"filled")
axis([-L +2*L -0.5 1.5])
xlabel('n')  
ylabel('x_n')  

subplot(2,1,2)

plot(w,abs(X),'r',"linewidth",2)
xt      = -2*pi:pi/2:2*pi;

xtlabel = ["-{/Symbol 2p}";"-3/2{/Symbol p}";"-{/Symbol p}";"-{/Symbol p}/2";"0";"{/Symbol p}/2";"{/Symbol p}";"3/2{/Symbol p}";"{/Symbol 2p}"];
set(gca,"xtick",xt,"xticklabel",xtlabel);
axis([-2*pi 2*pi 0 L])

xlabel('{/Symbol w}')  
ylabel('|X({/Symbol w})|')    

