program_14_04.m

来自「这是基于MATLAB系统上开发的,应用于小波分析方面,很有用的程序模块,书名为"」· M 代码 · 共 21 行

% 得到Haar 滤波器
[LoD,HiD,LoR,HiR] = wfilters('haar');
% 提升Haar 滤波器
twoels(1) = struct('type','p','value',...
laurpoly([0.125 -0.125],0));
twoels(2) = struct('type','p','value',...
laurpoly([0.125 -0.125],1));
[LoDN,HiDN,LoRN,HiRN] = liftfilt(LoD,HiD,LoR,HiR,twoels);

% 得到双正交小波bior1.3
[LoDB,HiDB,LoRB,HiRB] = wfilters('bior1.3');
samewavelet = isequal([LoDB,HiDB,LoRB,HiRB],[LoDN,-HiDN,LoRN,HiRN])