%裝入圖像
load?tire
%顯示圖像
subplot（221）;image（X）;colormap（map）
title（‘原始圖像‘）;
axis?square
disp（‘壓縮前圖像X的大小：‘）;
whos（‘X‘）
%對圖像用bior3.7小波進行二層小波分解
[cs]=wavedec2（X2‘bior3.7‘）;
%提取小波分解結構中第一層低頻系數和高頻系數
ca1=appcoef2（cs‘bior3.7‘1）;
ch1=detcoef2（‘h‘cs1）;
cv1=detcoef2（‘v‘cs1）;
cd1=detcoef2（‘d‘cs1）;
%分別對各頻率成分進行重構
a1=wrcoef2（‘a‘cs‘bior3.7‘1）;
h1=wrcoef2（‘h‘cs‘bior3.7‘1）;
v1=wrcoef2（‘v‘cs‘bior3.7‘1）;
d1=wrcoef2（‘d‘cs‘bior3.7‘1）;
c1=[a1h1;v1d1];
%顯示分解后各頻率成分的信息
subplot（222）;image（c1）;
axis?square
title（‘分解后低頻和高頻