多尺度小波变换和重构，并求功率谱包络谱

%% 多尺度一维小波变换
cn=4;       dwavename=‘db1‘;
[CL] = wavedec（ycndwavename）;
CL4=appcoef（CLdwavename4）;
CL3=appcoef（CLdwavename3）;
CL2=appcoef（CLdwavename2）;
CL1=appcoef（CLdwavename1）;
CH4=detcoef（CL4）;
CH3=detcoef（CL3）;
CH2=detcoef（CL2）;
CH1=detcoef（CL1）;
figure;
plot（C）;title（‘多尺度一维小波变换‘）; 
figure;
subplot（5 2 1）;
plot（real（CL1））
title（‘多尺度一维小波变换第1层低频系数‘）; 
subplot（5 2 2）;
plot（real（CL2））
title（‘多尺度一维小波变换第2层低频系数‘）; 
subplot（5 2 3）;
plot（real（CL3））
title（‘多尺度一维小波变换第3层低频系数‘）; 
subplot（5 2 4）;
plot（real（CL4））
title（‘多尺度一维小波变换第4层低频系数‘）; 
subplot（5 2 5）;
plot（real（CH1））
title（‘多尺度一维小波变换第1层高频系数‘）; 
subplot（5 2 6）;
plot（real（CH2））
title（‘多尺度一维小波变换第2层高频系数‘）; 
subplot（5 2 7）;
plot（real（CH3））
title（‘多尺度一维小波变换第3层高频系数‘）; 
subplot（5 2 8）;
plot（real（CH4））
title（‘多尺