work 有小波分解求小波熵

有小波分解求小波熵，还有小波包技术求解信号特征，适应与分析脑电信号特征

function y=entropy（signwname）
[cl]=wavedec（signwname）;
ca=appcoef（clwnamen）;
EA=norm（ca2）*norm（ca2）;
for m=1:n
    cdm=detcoef（clm）;
    E（m）=norm（cdm2）*norm（cdm2）;
end
%disp（‘小波分解总能量E_total‘）;
E_total=sum（E）+EA;
%disp（‘以下是每个节点的概率P‘）;
   pa= EA/E_total;
for m=1:n
    pd（m）= E（m）/E_total;  
end
%disp（‘小波熵的值S_wt‘）
sa=pa*log（pa）;
for m=1:n
    sd（m）=pd（m）*log（pd（m））;
end
y=sum（sd）*（-1）+sa*（-1）;
  

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        456  2010-05-11 21:15  entropy.m

     文件       1071  2010-05-17 08:56  wpsr.m

----------- ---------  ---------- -----  ----

                 1527                    2