1. 程式人生 > >小波去噪MATLAB程式碼

小波去噪MATLAB程式碼

本文基於北京交通大學陳後金教授的課件。我加以整理,若有冒犯還請諒解

1利用MATLAB產生分解與重建濾波器組

計算濾波器組的函式[Ld,Hd,Lr,Hr]=wfilters('wname')

Ld:分解低通濾波器h0[-n];

Hd:分解高通濾波器h1[-n];

Lr:分解低通濾波器h0[-n];

Hr:分解高通濾波器h1[-n];

wfname:小波名

eg1:計算db2小波的四個濾波器,並畫出其時域波形。

MATLAB程式如下:
wn='db2';
[Ld,Hd,Lr,Hr] = wfilters(wn);
k=0:3;
subplot(221);stem(k,Ld);

title('低通分解濾波器Ld');
subplot(222);stem(k,Lr);
title('低通重建濾波器Lr');
subplot(223);stem(k,Hd);

title('高通分解濾波器Hd');
subplot(224);stem(k,Hd);
title('高通重建濾波器Hr');

2利用MATLAB計算小波函式

[phi,psi,t]=wavefun('wname',lter)

wname:小波名

lter:計算過程的迭代次數

phi:尺度函式ϕ(t)

psi:小波函式ψ(t)

t:尺度函式與小波函式的抽樣點

eg2:利用MATLAB計算db2小波的尺度函式與小波函式。

MATLAB程式如下:

lter=20;

wname='db2';

[s,w,t]=wavefun(wname,lter);

subolot(211);plot(t,s);

title('尺度函式')

subplot(212);plot(t,w);

title('小波函式')

3 利用MATLAB計算一維DWT和IDWT

計算多級DWT和IDWT的函式為wavedec和waverec,其呼叫格式為

[C,L]=wavedec(x,N,'wname')

x=waverec(C,L,'wname')

其中

wname: 小波名; 
x: 時域訊號;
N: 小波變換的級數;
C = [cAN cDN cDN-1 ••• cD1];
L(1)= cAN的長度, L(2)= cDN的長度,
L(N+1)= cD1的長度, L(N+2)= x的長度

3利用部分小波係數重建訊號

x=wrcoef('type', C, L, 'wname', N)
type='a' 由第N級近似分量重建訊號
type=‘d' 由第N級細節分量重建訊號
wname: 小波名

若 C = [cA3 cD3 cD2 cD1]
x=wrcoef('a',C,L, 'wname',3)
x=IDWT{[cA3 0 0 0]}
x=wrcoef('a',C,L, , 'wname',2)
x=IDWT{[cA3 cD3 0 0] }=IDWT{[cA2 0 0]}

eg3 已知某訊號的波形如圖所示,試計算其5級小波變換系數,
由第5、3、1級小波近似係數重建的訊號。

MATLAB程式如下:
wname='db1';
dwtmode('per')
t=linspace(0,1,1024);
x=20*t.^2.*(1-t).^4.*cos(12*pi*t);
subplot(511);plot(t,x);
axis([0 1 -0.5 0.5]);title('Signal');

[C,L] = wavedec(x,5,wname);
subplot(512);plot(t,C); axis([0 1 -3 3]);

A5=wrcoef('a',C,L,wname,5);
subplot(513);plot(t,A5);
axis([0 1 -0.5 0.5]);
A3=wrcoef('a',C,L,wname,3);
subplot(514);plot(t,A3);
axis([0 1 -0.5 0.5]);

A1=wrcoef('a',C,L,wname,1);
subplot(515);plot(t,A1);
axis([0 1 -0.5 0.5]);

4基於小波的訊號去噪

XD = wden(X, TPTR, SORH, SCAL, N, 'wname')
其中:
XD: 對噪聲訊號X去噪後得到的訊號;
X: 含噪聲訊號;
TPTR: 閾值規則,主要有'rigrsure', 'heursure', 'sqtwolog', 'minimaxi';
SORH: 閾值方法, 's' (soft閾值), 'h' (hard閾值);
SCAL: 閾值尺度的調整方法,主要有'one', ' sln', ' mln' ;
N: 離散小波變換的級數
wname: 小波名

eg4 試利用函式wden對含有噪聲的blocks訊號進行去噪。

MATLAB程式如下:
snr=5; % 噪聲方差
[x, xn] = wnoise('blocks',11,snr);
k=0:length(x)-1;
subplot(311);plot(k,x);
title('原訊號');
subplot(312);plot(k,xn);
title('含噪訊號');
lev=5;wn='db1';
% 利用soft SURE閾值規則去噪
xd1= wden(xn, 'heursure', 's', 'one', lev, wn);
subplot(313);plot(k,xd1);
title('去噪後的結果');

5基於小波的訊號壓縮

NC= wthcoef('d', C, L, N)
其中:
'd': 表示對DWT係數C中細節(detail)分量進行壓縮;
C,L: 由wavedec得到的DWT係數;
N: 若N=[1 2 3]表示將C中1、2和3級細節分量置零。
NC: 由係數C經過壓縮後得到的新系數;

eg5試利用函式wthcoef對leleccum訊號進行壓縮。

MATLAB程式如下:
load leleccum; 
x = leleccum(1001:2024)*0.95/100;
k=0:length(x)-1;
[C,L] = wavedec(x,5,'db3');
NC1 = wthcoef('d',C,L,[1]);
x1 = waverec(NC1, L, 'db3');
NC5 = wthcoef('d',C,L,[1 2 3 4 5]) ; 
x2 = waverec(NC5, L, 'db3');
subplot(311);plot(k,x);title('原訊號');
subplot(312);plot(k,x1);title('2:1壓縮');
subplot(313);plot(k,x2);title('32:1壓縮');