function v = tnp_lpc(soundfile)
%   TNP_LPC retunr the LPC coefficiants for a sound
%
%   Input:
%        soundfile     a wave sound file
%
%    Ouptut:
%        v         vector of lpc coefficiants  

[x, Fe] = readwav(soundfile, 's');

% Création d'un vecteur de tranche de 30 ms toutes les 10 ms
x_sg = [];
nb_blocs = floor(length(x) / (Fe / 100)) - 2;
%nb_blocs = 12;
for i = 1 : nb_blocs
    minimum = max(floor((i - 1) * Fe / 100), 1);
    maximum = floor((i + 2) * Fe / 100);
    x_sg = [x_sg; x(minimum : maximum)];
end
x_sg = [x_sg; x( floor((Fe / 100 * nb_blocs)) : length(x))];

% Analyse LPC sur des tranches de 30 ms
v = lpcauto(x_sg, 10, 3 * Fe / 100);