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

figure; 
filename='f:\source\orignal\lxl10_3_noise.wav'; 
[s,fs,nbits] = wavread(filename);   
 
sg=s(9001:9300); 
[c,l]=wavedec(sg,4,'db4'); 
[thr,sorh,keepapp]=ddencmp('den','wv',sg); 
denoise=wdencmp('gbl',c,l,'db4',4,thr,sorh,keepapp); 
subplot(2,1,1); 
plot(sg); 
ylabel('(a)'); 
subplot(2,1,2); 
plot(denoise); 
ylabel('(b)');