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