www.pudn.com > asr.rar > dwtem8.m, change:2004-11-06,size:533b

figure; 
filename='f:\source\orignal\lxl10_3_an_part.wav'; 
[sg,fs,nbits] = wavread(filename);   
%subplot(6,1,6); 
%plot(sg); 
 
s=sg(50:350); 
subplot(6,1,1); 
plot(s); 
ls=length(s) 
[c,l]=wavedec(s,3,'db6'); 
a3=wrcoef('a',c,l,'db6',3); 
d3=wrcoef('d',c,l,'db6',3); 
d2=wrcoef('d',c,l,'db6',2); 
d1=wrcoef('d',c,l,'db6',1); 
 
ca3=appcoef(c,l,'db6',3); 
cd3=detcoef(c,l,3); 
cd2=detcoef(c,l,2); 
cd1=detcoef(c,l,1); 
subplot(6,1,2); 
plot(a3); 
subplot(6,1,3); 
plot(d3); 
subplot(6,1,4); 
plot(d2); 
subplot(6,1,5); 
plot(d1);