%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% AJOUT de craquements dans un signal audio %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% initialisation
close all
clear

% lecture d'un fichier wave
[piste, Fs, Nbits] = wavread('WinS.wav');
Duree = size(piste,1);
musique = piste(1:Duree,1);
x=musique';
T=Duree;
Peff=sqrt(x*x'/T);

% on y ajoute des craquements
% positions
nbcrac=50;
poscrac=fix(T*(rand(1,nbcrac)));
% amplitudes
amp=rand(1,nbcrac);
ampcrac= 5*Peff*(2*round(amp)-1);
% modification de s
x(poscrac)=x(poscrac)+ampcrac;

wavwrite(x,Fs,'WinS-craq.wav')