FIR

%Victor Giovanni Carreño Robles
%Filtro FIR
clear %Limpia todas las variables de memoria
close all %Cierra todas las ventanas
clc

load coefa.mat %Fc=100Hz
load chirp
figure
stem(y,'k')
title('Grafica Sonido ')
xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)
R=conv(y,coefa);
hold on
stem(R,'r')
sound(R,Fs)









%Victor Giovanni Carreño Robles
%Filtro FIR
clear %Limpia todas lasvariables de memoria
close all %Cierra todas las ventanas
clc

load coefb.mat %Fc=50Hz
load chirp
figure
stem(y,'k')
title(' Grafica Sonido ')
xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)R=conv(y,coefb);
hold on
stem(R,'m')
sound(R,Fs)









%Victor Giovanni Carreño Robles
%Filtro FIR
clear %Limpia todas las variables de memoria
close all %Cierra todas las ventanas
clc

load coefc.mat%Fc=500Hz
load chirp
figure
stem(y,'k')
title(' Grafica Sonido ')
xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)
R=conv(y,coefc);
hold on
stem(R,'c')
sound(R,Fs)










%Victor GiovanniCarreño Robles
%Filtro FIR
clear %Limpia todas las variables de memoria
close all %Cierra todas las ventanas
clc

load coefd.mat %Fc=1000Hz
load chirp
figure
stem(y,'b')
title(' Grafica Sonido ')xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)
R=conv(y,coefd);
hold on
stem(R,'k')
sound(R,Fs)












%Victor Giovanni Carreño Robles
%Filtro FIR
clear %Limpia todas las variables de memoriaclose all %Cierra todas las ventanas
clc

load coefd.mat %Fc=2000Hz
load chirp
figure
stem(y,'k')
title(' Grafica Sonido ')
xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)
R=conv(y,coefd);
hold onstem(R,'g')
sound(R,Fs)










%Victor Giovanni Carreño Robles
%Filtro FIR
clear %Limpia todas las variables de memoria
close all %Cierra todas las ventanas
clc

load coefe.mat %Fc=3000Hz
loadchirp
figure
stem(y,'k')
title(' Grafica Sonido ')
xlabel('Tiempo [n]')
ylabel('Magnitud')
sound(y,Fs)
R=conv(y,coefe);
hold on
stem(R,'b')
sound(R,Fs)










%Victor Giovanni Carreño Robles...