program_13_05.m

《小波分析理论与Matlab R2007实现》源代码

% 当前的延拓模式是补零
% 产生高斯白噪声
init = 2055415866; randn('seed',init); 
x = randn(1,1000);
% 寻找各个阈值选择规则的阈值
% 使用SURE的自适应阈值
thr1 = thselect(x,'rigrsure') 
% 固定形式阈值
thr2 = thselect(x,'sqtwolog') 
% 启发式阈值
thr3 = thselect(x,'heursure') 
% 极小极大阈值
thr4 = thselect(x,'minimaxi')