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('重构图像');

clear all;close all;clc;

I=imread('C:\Users\Jv\Desktop\wenli.jpg');

gray=I;

X=double(gray);

[cA,cH,cV,cD]=dwt2(X,'haar');

%单尺度二维离散小波低、高频重构(逆变换)

a=idwt2(cA,[],[],[],'haar');

h=idwt2([],cH,[],[],'haar');v=idwt2([],[],cV,[],'haar');d=idwt2([],[],[],cD,'haar');

figure;

subplot(1,2,1),imshow(uint8(X)),title('原图');

subplot(1,2,2),imshow(uint8(a)),title('低频重构图');

figure;

subplot(1,3,1),imshow(uint8(h)),title('水平高频重构图');

subplot(1,3,2),imshow(uint8(v)),title('竖直高频重构图');

subplot(1,3,3),imshow(uint8(d)),title('对角高频重构图');