exam12_9.m

来自「一些比较不错的小波变换里例程」· M 代码 · 共 14 行

% 当前的延拓模式是补零
% 装载信号
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'