DWTzip 基于Matlab的JPEG2000图像压缩实现

基于Matlab的JPEG2000图像压缩实现，离散小波变换DWT，程序中图片的位置修改下可以自己运行程序看到效果

A=imread（‘E:\MyDesign\MATLAB\figure\xfq.jpg‘）;%调入图像
figure
subplot（221）;
subimage（A）;
title（‘原始彩色图像‘）
X=rgb2gray（A）;
X=double（X）/255; %归一化处理
subplot（222）;
subimage（X）; %显示图像
title（‘转换后灰度图像‘）
colormap（pink）;
disp（‘压缩前图像X的大小‘）;whos（‘X‘）;
[CS]=wavedec2（X2‘bior3.7‘）;%对图像用‘bior3.7’小波进行2层小波分解
thr=20;%设置小波系数阈值
cal=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];
%进行图像的压缩处理，保留小波分解第一层低频信息，进行图像的压缩
%第一层的低频信息为ca1显示第一层的低频信息
ca1=appcoef2（CS‘bior3.7‘1）;
%首先对第一层信息进行量化编码
ca1=wcodemat（ca1440‘mat‘0）;
ca1=0.5*ca1;%改变图像的高度
subplot（2

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-06-06 19:27  DWTzip\
     文件        1459  2011-06-06 19:27  DWTzip\DWTzip.asv
     文件        1457  2011-06-06 19:34  DWTzip\DWTzip.m