紧急求救！！！

谁有能够比较好的适用于如下基于小波变换的图像去噪程序的*.mat文件 请不吝发至andason_killersu2100@126.com.在下急需这样的mat文件，十万火急！！！多谢了。
load suoyintu
subplot(221);image(X);colormap(map);
title('原始图像');
axis square
init=2055615866;randn('seed',init);
XX=X+8*randn(size(X));
subplot(222);image(XX);colormap(map);
title('含噪图像');
axis square
[c,l]=wavedec2(XX,2,'coif2');
n=[1,2];
p=[10.28,24.08];
nc=wthcoef2('h',c,l,n,p,'s');
nc=wthcoef2('v',c,l,n,p,'s');
nc=wthcoef2('d',c,l,n,p,'s');
X1=waverec2(nc,l,'coif2');
subplot(2,2,3);image(X1);colormap(map);
title('第一次去噪后图像');
mc=wthcoef2('h',nc,l,n,p,'s');
mc=wthcoef2('v',nc,l,n,p,'s');
mc=wthcoef2('d',nc,l,n,p,'s');
X2=waverec2(mc,l,'coif2');
subplot(224);image(X2);colormap(map);
title('第二次去噪后图像');
axis square