1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| clear
clc
[x,Fe,Nbits]=wavread('Light_My_Fire.wav'); %On importe le fichier audio
Fe %Fréquence d'échantillonnage
Nbits %Nombre de bits
g = x(:,1); %voie gauche = toutes les lignes, colonne 1
d = x(:,2); %voie droite = toutes les lignes, colonne 2
col=['r','g','b'];
subplot(3,1,1)
plot(g), hold on %On affiche l'enveloppe du signal audio de la voie gauche
title('Signal audio voie gauche','FontSize',16);
grid on;
subplot(3,1,2)
plot(d), hold on %On affiche l'enveloppe du signal audio de la voie gauche
title('Signal audio voie droite','FontSize',16);
grid on;
subplot(3,1,3)
plot(x), hold on %On affiche l'enveloppe du signal audio de la voie gauche
title('Signal audio en entier','FontSize',16);
grid on;
%sound(g,Fe) %restituer le son de la voie gauche
%sound(d,Fe) %restituer le son de la voie droite
%sound(x,Fe) %restituer tout le son
figure
z=fft(x);
title('Transformé de Fourier du signal','FontSize',16);
grid on;
%Appliquons lui maintenant un filtre passe-bande
wn=2*2*[1e3 2e3]/Fe
y=fir1(2,wn); %Filtre d'ordre 2
figure
freqz(y,1);
title('Réponse fréquentielle du signal filtré','FontSize',16);
grid on;
figure
impz(1,y);
title('Réponse impulsionnelle du signal filtré','FontSize',16);
grid on; |
Partager