matlab程序：用提升小波变换进行信号去噪

clear all;
clc;
load leleccum;
indx=1:1024;
x=leleccum（indx）;
% 产生含噪信号
init=2055615866;
randn（‘seed‘init）;
nx=x+18*randn（size（x））;
% 得到Haar小波的提升方案
lshaar=liftwave（‘haar‘）;
% 将提升步骤ELS添加到提升方案中
els={‘p‘[-0.125 0.125]0};
lsnew=addlift（lshaarels）;
% 进行提升小波分解
[cA1cD1]=lwt（xlsnew）;
[cA2cD2]=lwt（cA1lsnew）;
length=size（cA22）;
c=zeros（1length*4）;
for i=1:length;
    c（i）=cA2（i）;
end
for i=length+1:2*length;
    c（i）=