Projet Musique


%utilisation de la focntion wavread pour sauvegarder quelques instrument musiques
 
F01 = wavread('Flute.nonvib.pp.B3B4.wav');
F02 = wavread('Flute.vib.ff.B3B4.wav');
F03 = wavread('Flute.vib.ff.C5B5.wav');
F04 = wavread('Flute.vib.mf.B3B4.wav');
F05 = wavread('Flute.vib.mf.C6B6.wav');
 
P01 = wavread('Piano.pp.B0.wav');
P02 = wavread('Piano.pp.Bb0.wav');
P03 = wavread('Piano.pp.C1.wav');
P04 = wavread('Piano.pp.D1.wav');
P05 = wavread('Piano.pp.Db1.wav');
P06 = wavread('Piano.pp.E1.wav');
P07 = wavread('Piano.pp.Eb1.wav');
P08 = wavread('Piano.pp.F1.wav');
P09 = wavread('Piano.pp.G1.wav');
P10 = wavread('Piano.pp.Gb1.wav');
V01 = wavread('Violin.arco.pp.sulA.Bb5Ab6.wav');
V02 = wavread('Violin.arco.pp.sulA.C5A5.wav');
V03 = wavread('Violin.arco.pp.sulD.B4A5.wav');
V04 = wavread('Violin.arco.pp.sulD.D4Bb4.wav');
V05 = wavread('Violin.arco.pp.sulE.Ab6B7.wav');
V06 = wavread('Violin.arco.pp.sulG.B3Ab4.wav');
V07 = wavread('Violin.arco.pp.sulG.G3B3.wav');
% deux canaux audio pour piano. un canaux pour violin et Flute
 
%vecteur des etiquettes instr_labels
 
instr_labels = [ones(5,1);2*ones(10,1);3*ones(7,1)];
 

%visualisation dans une figure les données correspondent a deux instruments différents 
subplot(2,2,1)
plot(F01)
subplot(2,2,2)
plot(P01)
subplot(2,2,3)
plot(V01)
 
 

%calcule des caractristiques du format audio 
 
M = [];
files = dir('WAV/*.wav');
for k = 1:length(files)
M(k,:) = computeAllStatistics(strcat('WAV/',files(k).name),10,10);
end
 
 %Visoulisation de la vraie partition de données en utilisant l'ACP
 
 Mp = pcaproj(M,3); 
  subplot(2,2,4)
  PlotClusters(Mp,instr_labels)