提升小波变换的matlab程序

提升小波变换的matlab程序，在进行信号的降噪，请网友试用。

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