program_12_12.m

来自「小波分析理论与MATLABR2007实现一书的原代码」· M 代码 · 共 17 行

% 当前延拓模式是补零
% 装载信号
load noisdopp; x = noisdopp;
% 使用db1小波包对x进行3层分解，使用shannon熵
wpt = wpdec(x,3,'db1');
% 画出小波包树
plot(wpt)
% 剪掉第2层小波包树
nwpt = wpcutree(wpt,2);
% 画出新的小波包树
plot(nwpt)