[xtr,NB_TR]=trame(x,Trame,R)

function [xtr,NB_TR]=trame(x,Trame,R)
% appel : [xtr,NB_TR]=trame(x,TRAME,R)
% segmentation de x en trames de TRAME points 
% avec un recouvrement de R points entre trames successives
% NB_TR est le nombre de trames 
% xtr est le signal mis en trames c'est une matrice de TRAME lignes et NB_TR colonnes
NB_TR=fix((length(x)-Trame)/(Trame-R)+1);
[l,c]=size(x);
if(l>c)
x=x';
end

if (NB_TR ~= 0)
for tr=1:NB_TR
	xtr(:,tr)= x(1+(tr-1)*(Trame-R):tr*(Trame-R)+R)';
end
else disp(' zone slectionne trop petite par rapport  la trame demande')
end