www.pudn.com > yycl.rar > dspjgll.asv

%短时平均过零率 
function dsp=dspjgll(num_group,num_wav) 
% num_group=1; 
% num_wav=3; 
sa_gll=yjzh(num_group,num_wav); 
l=length(sa_gll); 
jz1=0; 
for i=1:2000 
    jz1=jz1+sa_gll(i); 
end 
jz=jz1/2000; 
for i=1:1000 
    sb_gll(i)=sa_gll(i); 
end 
jz2=minmax(sb_gll); 
jz3=sum(jz2)/8; 
sm_gll=sa_gll-jz; 
m=fix(l/100); 
 
sb_gll=sm_gll(1:m*100); 
sc_gll=reshape(sb_gll,100,m); 
 
for i=1:100 
    for j=1:m 
        if abs(sc_gll(i,j))0 
        qd1=j; 
        break; 
    end 
end 
zd1=0; 
for i=1:m 
    z=m-i+1; 
    if count_22(z)>0 
        zdl=z; 
        break; 
    end 
end 
 
dsp=[qd1 zd1]; 
 
% figure; 
% subplot(2,1,1) 
% plot(count_11) 
% subplot(2,1,2) 
% plot(count_22)