clc,clear all,close all;

load woman;

[cA,cH,cV,cD]=dwt2(X,'haar');%单尺度二维离散小波分解。分解小波函数haar

figure,imshow(X,map),axis image;

figure;

subplot(2,2,1),imshow(uint8(cA));axis off;title('低频系数图像');

subplot(2,2,2),imshow(uint8(cH));axis off;title('水平高频系数图像');

subplot(2,2,3),imshow(uint8(cV));axis off;title('垂直高频系数图像');

subplot(2,2,4),imshow(uint8(cD));axis off;title('斜线高频系数图像');