clc,clear all,close all;
load woman;
%单尺度二维离散小波分解。分解小波函数haar
[cA,cH,cV,cD]=dwt2(X,'haar');
%单尺度二维离散小波重构(逆变换)
Y=idwt2(cA,cH,cV,cD,'haar');
figure;
subplot(1,2,1),imshow(X,map),title('原始图像');
subplot(1,2,2),imshow(Y,map),title('重构图像');
clc,clear all,close all;
load woman;
%单尺度二维