JPEG图像压缩Matlab程序.docVIP

下载本文档

38
0
约6.04千字
约 6页
2017-07-26 发布于福建
举报
版权申诉

JPEG图像压缩Matlab程序.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

% function ReconImage=func_DCTJPEG(I,q)%%**************************************************************************************%%%% 1.This function tests the DCTJPEG codec%% written by Wang Chengyou in Tianjin University,China in Apr. 2006.%% Contact me: E-mail: wangchengyou@tju.edu.cn%% Address: Mailbox 23,School of Electronic Information Engineering,%% Tianjin University,Tianjin,P.R.China,300072%% ReconImage=DCTJPEG(I,q),I为待压缩图像，q为量化因子，ReconImage为解压缩重建图像。%% 2.This function calls:%% blkproc.m,DCHuffmanEncoding.m,ACHuffmanEncoding.m,zigzag.m,PSNR.m,%% 对灰度图像进行DCT变换,量化,ZigZag扫描,Huffman编解码,反量化,反DCT变换而重建图像。%% 其中，blkproc.m为分块DCT变换函数；%% DCHuffmanEncoding.m，ACHuffmanEncoding.m分别为DC和AC变换系数的Huffman码表函数；%% zigzag.m为ZigZag扫描函数；PSNR.m为求图像峰值信噪比函数。%% Copyright 2008 Reserved @ Wang Chengyou @ Tianjin University, P.R.China.%%**************************************************************************************%%%%Testclose all;clear all;clc;% fname=input(Please input the bmp image name:,s);%%读一幅bmp灰度图像% [I,map]=imread(fname,bmp);I=imread(lena512.bmp);%%读bmp灰度图像q=1;%%设定量化因子OriginalImage=I;Q=q;OriginalImage=double(OriginalImage);%%图像数据类型转换ImageSub=OriginalImage-128;%%电平平移128[Row,Col]=size(OriginalImage);%%图像的大小BlockNumber=Row*Col/64;%%8*8分块数%% dct2变换：把ImageSub分成8*8像素块，分别进行dct2变换，得变换系数矩阵CoefCoef=blkproc(ImageSub,[8,8],dct2(x));%% 量化：用量化矩阵L量化Coef得CoefAfterQ%% JPEG建议量化矩阵L=Q*[16 11 10 16 24 40 51 6112 12 14 19 26 58 60 5514 13 16 24 40 57 69 5614 17 22 29 51 87 80 6218 22 37 56 68 109 103 7724 35 55 64 81 104 113 9249 64 78 87 103 121 120 10172 92 95 98 112 100 103 99];CoefAfterQ=blkproc(Coef,[8,8],round(x./P1),L);%%向靠近的整数取圆整%% 把CoefAfterQ分成8*8的块得分块矩阵CoefBlockm=0;for row=1:Row/8for col=1:Col/8m=m+1;CoefBlock(:,:,m)=CoefAfterQ(((row-1)*8+1):(row*8),((col-1)*8+1):(col*8));endendm;%% 把量化后各个分块的DC系数存放到行矩阵DC中DC(m)=0;for i=1:mDC(i)=CoefBlock(1,1,i);endDC;%% 求由各个DC系数的差值组成的行矩阵DCdifDCdif(BlockNumber)=0;DCdif(1)=DC(1);for i=2:BlockNu