%MATLAB2維小波變換經典程序?
??
%??FWT_DB.M;
%??此示意程序用DWT實現二維小波變換
%??編程時間2004-4-10，編程人沙威
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear;
clc;
T=256;???????%??圖像維數
SUB_T=T/2;???%??子圖維數
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%??1.調原始圖像矩陣
load?wbarb;??%??下載圖像
f=X;?????????%??原始圖像
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%??2.進行二維小波分解
l=wfilters（‘db10‘‘l‘）;????%??db10（消失矩為10）低通分解濾波器沖擊響應（長度為20）
L=T-length（l）;
l_zeros=[lzeros（1L）];????%??矩陣行數與輸入圖像一致，為2的整數冪
h=wfilters（‘db10‘‘h‘）;????%??db10（消失矩為10）高通分解濾波器沖擊響應（長度為20）
h_zeros=[hzeros（1L）];????%??矩陣行數與輸入圖像一致，為2的整數冪
for?i=1:T;???%??列變換
????row（1:SUB_Ti）=dyaddown（?ifft（?fft（l_zeros）.*fft（f（:i）‘）?）?）.‘;????%??圓周卷積<->FFT
????row（SUB_T+1:Ti）=dyaddown（?ifft（?fft（h_zeros）.*fft（f（:i）‘）?）?）.‘;??%??圓周卷積<->FFT
end;
for?j=1:T;???%??行變換
????line（j1:SUB_T）=dyaddown（?ifft（?fft（l_zeros）.*fft（row（j:））?）?）;????%??圓周卷積<->FFT
????line（jSUB_T+1:T）=dyaddown（?ifft（?f

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????4962??2007-09-05?15:34??xiaobo.m

-----------?---------??----------?-----??----

?????????????????4962????????????????????1