www.pudn.com > asr.rar > AVGMAG.M, change:2004-11-06,size:567b

function mag = avgmag(sg,fmrate,winsize) 
 
% Compute average magnitude of a speech signal 
%  
%  mag = avgmag(sg,fmrate,winsize) 
% 
%  mag    - average magnitude 
%  sg      - speech signal vector 
%  fmrate - frame rate 
%  winsize- window's size 
% 
 
sg = sg-mean(sg); 
 
%% compute total number of frames 
[len,clm]=size(sg); 
nf = floor((len-winsize)/fmrate) +1; 
 
%% compute average magnitude 
mag=zeros(nf,1); 
for i=1:nf 
   startpt = 1+(i-1)*fmrate; 
   s=abs(sg(startpt:startpt+winsize-1)); 
   s=s.*hamming(winsize); 
   mag(i) = sum(s)/winsize; 
end