%% Grafica x[n]-Luis Pachon Xn=[-1,3,2,3,5,3]; %x[n]=[-1,3,2,3,5,3] n=[-2,-1,0,1,2,3]; %eje temporal n subplot(3,1,1) stem(n,Xn,'m') grid title('SEÑAL DISCRETA x[n] Realizado por Luis Pachon') xlabel('n') ylabel('amplitud') xlim([-8,8]) %% Grafica h[n]-Luis Pachon Hn=[2.5,5,0.5]; %h[n]=[2.5,5,0.5]; subplot(3,1,2) stem(n,Hn,'r') grid title('SEÑAL DISCRETA h[n] - Luis Pachon') xlabel('n') ylabel('amplitud') xlim([-8,8]) %% Convolución discreta x[n]*h[n] -Luis Pachon ConDis=conv(Xn,Hn); ncon=(-2:1:6); subplot(3,1,3) stem(ncon,ConDis,'b') grid title('Convolucion discreta x[n]*h[n]- Luis Pachon') xlabel('n') ylabel('amplitud') xlim([-8,8])