单尺度二维离散小波分解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(\'斜线高频系数图像\');