小波图像分解 Matlab 程序 - V3.0版

下面给出 V3.0 版的 小波分解程序，主要是增加了输出参数 scf （size of coef cell matrix），画图方式也增加了塔式显示方式（原来只有分层显示方式）。

 

 

%----------------------------------------------------------%

小波图像分解 Matlab 程序 - V2.0版

http://blog.csdn.net/chenyusiyuan/archive/2008/06/05/2513865.aspx

 

小波图像重构 Matlab 程序 - V2.0版

http://blog.csdn.net/chenyusiyuan/archive/2008/06/05/2514119.aspx

%----------------------------------------------------------%

 

 

%----------------------------------------------------------%  

     小波分解矩阵 Matlab 程序 - V3.0版

%----------------------------------------------------------%

 

function [coef,scf]=mywavedec2(x,N,wname)

%----------------------------------------------------------%

% 函数 MYWAVEDEC2() 对输入矩阵 x 进行 dim 层分解，得到相应的分解系数矩阵 y

% 输入参数：x —— 输入矩阵

%          N —— 分解级数

%          wname —— 分解所用的小波函数

% 输出参数：scf —— 存储各级分解系数矩阵的大小以及原始（图像）矩阵的大小

%           coef —— 分解系数矩阵，其结构如下：

% coef = {cA_N;cV_N;cH_N;cD_N;cV_N-1;cH_N-1;cD_N-1;……;cV_1;cH_1;cD_1}

%

% Copyright by Zou Yuhua ( chenyusiyuan )

% Version: 3.0, Date: 2008-07-08

%----------------------------------------------------------%

 

 

% 求出小波函数的滤波器组系数向量

[Lo_D,Hi_D] = wfilters(wname,'d');

lf=length(Lo_D);

% 画出原始图像

imshow(x);title('Original Image');

% 标明图像大小

[r,c]=size(x);

xlabel(['Size : ',num2str(r),'*',num2str(c)]);

 

 

% 将矩阵x的数据格式转换为适合数值处理的double格式

xd=double(x);              

[rx,cx]=size(x);

[o2sa,f1sa,rsx]=sizcoef([rx,cx],lf,N);  a=[o2sa,f1sa,rsx]

 

coef=[];

scf=[rx,cx];

for i=1:N

    [cA,cV,cH,cD]=mydwt2(xd,Lo_D,Hi_D);     % 第 i 级小波分解   

    xd=cA;              % 将第 i 级分解得到的低频系数矩阵作为第 i+1 级分解的源矩阵

    outmp={cV;cH;cD};      % 将第 i 级分解得到的高频系数矩阵cV,cH,cD存入细胞矩阵 outmp