%裝載并顯示原始圖像
load wbarb;
subplot(1,2,1);
image(X);colormap(map);
title('原始圖像');
%================================
%采用默認的全局閾值對圖像進行壓縮
[thr,sorh,keepapp,crit]=ddencmp('cmp','wp',X);
Xc=wpdencmp(X,sorh,3,'bior3.1',crit,thr,keepapp);
subplot(1,2,2);
image(Xc);colormap(map);
title('全局閾值壓縮圖像');