load wusun
E=zeros(16,19) % 0矩阵
for j=1:19
a=wusun(:,j);
depth=4;%分解层数
[T]=wpdec(a,depth,'db4'); %小波包分解
E( :,j)=(wenergy(T))'; %求底层小波包能量
end
或者
load wusun
E=zeros(16,19) % 0矩阵
for j=1:19
a=wusun(:,j);
depth=4;%分解层数
[T]=wpdec(a,depth,'db4'); %小波包分解
for i=1:2^depth
x=wprcoef(T,[depth,i-1]); %重构最后一层小波包系数
E(i,j)=sum(x.^2); %求小波包能量
end
end
E=100*E./repmat(sum(E),16,1);
WENERGY 直接读取系数计算能量,因为卷积的原因在边界有溢出,算出来的能量应该比WPRCOEF算出来的要大一点。(我没在MATLAB上验证,LOL) |