% 當前的延拓模式是補零
% 裝載信號
load noisdopp; x = noisdopp;
% 使用默認熵（shannon熵），用db1小波對x進行2層分解
t = wpdec(x,2,'db1','shannon');
% 讀取所有結點的熵值
nodes = allnodes(t);
ent = read(t,'ent',nodes);
ent'
% 更新結點熵
t = entrupd(t,'threshold',0.5); 
nent = read(t,'ent');
nent'