%裝載原始圖像信號
load wgatlin;
subplot(2,2,1);
image(X);
colormap(map);
title('原始圖像');

%生成含噪圖像
init=2055615866;
rand('seed',init);
XX=X+12*randn(size(X));
subplot(2,2,2);
image(XX);
colormap(map);
title('含噪圖像');

%下面對圖像消噪
%首先用sym5小波函數對圖像進行2層分解
[c,l]=wavedec2(XX,2,'sym5');
%圖像第一層的重構逼近信號
a1=wrcoef2('a',c,l,'sym5',1);
%圖像第二層的重構逼近信號
a2=wrcoef2('a',c,l,'sym5',2);

%圖示消噪處理后的結果
subplot(2,2,3);
image(a1);
colormap(map);
title('第一層重構圖像');

subplot(2,2,4);
image(a2);
colormap(map);
title('第二層重構圖像');