clc,clear all,close all;load woman;[cA,cH,cV,cD]=dwt2(X,‘haar‘);%单尺度二维离散小波分解。分解小波函数haarfigure,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(‘斜线高频系数图像‘);