%裝載并顯示原始圖像
load detfingr;
subplot(1,2,1);
image(X);colormap(map);
title('原始圖像');
%==================================
%采用默認的全局閾值進行圖像壓縮處理
[thr,sorh,keepapp,crit]=ddencmp('cmp','wp',X);
[Xc,treed,perf0,perfl2]=wpdencmp(X,sorh,3,'bior3.1',crit,thr,keepapp);
subplot(1,2,2);
image(Xc);colormap(map);
title('壓縮后的圖像');
%==================================
%給出壓縮效率
disp('小波分解系數中置0的系數個數百分比：');
perf0
disp('壓縮后圖像剩余能量百分比：');
perfl2