单尺度二维离散小波分解dwt2

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('斜线高频系数图像');