function [a,G2]=lpcg(s,N);
% Syntax [a,G2]=lpcg(s,N)
%
% Calcule les coefficients LPC et le gain (puissance 2) sur une trame de signal
% le vecteur a est equivalent a celui calcule par la fonction lpc,
% pour le gain on utilise g=r(1)-a(2:N+1)'*r(2:N+1)
%    ou SEG est la longeur du segment

lseg=length(s);

 r=xcorr(s);
 r(1:lseg-1)=[];			% supprime la 1ere moitie du vecteur.
 a=levinson(r,N)';
			% tout ca remplace: a=(lpc(fen,N))'; 
% --- calcul du gain
 G2=r(1)+a(2:N+1)'*r(2:N+1);
 
