X=imread（‘001011.bmp‘）;
X=double（X）;
init=2055615866;
randn（‘seed‘init）;
x=X+18*randn（size（X））;
lshaar=liftwave（‘haar‘‘int2int‘）;
els={‘p‘[-0.125?0.125]0};
lsnew=addlift（lshaarels）;
[cAcHcVcD]=lwt2（xlsnew）;
length=size（cA1）;
c=zeros（1length*length*4）;
for?i=1:length
????c（（i-1）*length+1:i*length）=cA（:i）;
end
for?i=length+1:2*length
????c（（i-1）*length+1:i*length）=cH（:i-length）;
end
for?i=2*length+1:3*length
????c（（i-1）*length+1:i*length）=cV（:i-2*length）;
end
for?i=3*length+1:4*length
????c（（i-1）*length+1:i*length）=cD（:i-3*length）;
end
s=zeros（32）;
s（:1）=[lengthlength2*length];
s（:2）=[lengthlength2*length];
alpha=3;m=3.5*prod（s（1:））;
[thrnkeep]=wdcbm2（csalpham）;
sorh=‘s‘;
xd=wdencmp（‘lvd‘cs‘haar‘1thrsorh）;
colormap（pink）;
subplot（221）;image（wcodemat（X））;title（‘原始圖像‘）;
subplot（222）;image（wcodemat（x））;title（‘含噪圖像‘）;
subplot（223）;image（wcodemat（xd））;title（‘消噪后圖像‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????957??2008-05-14?14:15??提升小波\tishengxiaoboquzao.m

?????目錄??????????0??2010-12-13?10:52??提升小波

-----------?---------??----------?-----??----

??????????????????957????????????????????2