%% 学习目标:小波变换实现图像压缩
f=imread('coins.png');
figure,imshow(f);
title('原图')
%% 进行系数分解
[ca,ch,cv,cd]=dwt2(f,'sym4');
%% 进行图像重构
cod_fa=upcoef2('a',ca,'db1',1);
cod_fh=upcoef2('h',ch,'db1',1);
cod_fv=upcoef2('v',cv,'db1',1);
cod_fd=upcoef2('d',cd,'db1',1);
%% 编码显示图像
figure;
subplot(2,2,1);
imshow(wcodemat(cod_fa,255),[]);
title('近似值');
subplot(2,2,2);
imshow(wcodemat(cod_fh,255),[]);
title('水平细节系数');
subplot(2,2,3);
imshow(wcodemat(cod_fv,255),[]);
title('垂直细节系数');
subplot(2,2,4);
imshow(wcodemat(cod_fd,255),[]);
title('对角细节系数');
%% 大仙QQ:1960009019
%% 在线教育微信公众号:大仙一品堂