JPEG压缩源码（已经经过测试）

包括两个主程序，分别执行JPEG编解码、给出相关参数结果。Jpeg没有对整体系数进行位移，而Jpeg2则在编码前，将整个数据减去128，这样可能可以提高性能。但是对这幅图像而言，Jpeg2性能比Jpeg稍有下降。

function acCodeOut=AcCode（zScanOut）
%交流系数编码
%完成一个块的交流编码
%输入z形扫描结果，输出码流
N=8;
num=N*N+1;i=N*N;
b=cell（1N*N）;
%b{j}O包括两个部分，b{j}（1）表示连零个数，b{j}{2}表示幅度

%游程编码开始
while（i>1）%确定EOB前系数的长度
    if（zScanOut（i）==0）num=num-1;i=i-1;
    else break;
    end
end

i=2;
j=1;
while（i    zeroNum=0;
    while（zScanOut（i）==0）%确定连零个数
        zeroNum=zeroNum+1;
        i=i+1;
        if（zeroNum==16）
            b{j}=[15 0];
            j=j+1;
            zeroNum=0;
        end
    end
    b{j}=[zeroNum zScanOut（i）];%b{j}（1）表示连零个数，b{j}{2}表示幅度
    j=j+1;
    i=i+1;
end
b{j}=[0 0];%EOB块编码

%游程编码完毕

binacRange=cell（11）;%幅度值二进制编码
forHuf=cell（11）;%Hufman编码的输入参数，每个元素包括两个部分：游程长度和binacRange长度
hufCodeOut=cell（11）;
out=cell（11）;
for i=1:j
    binacRange{i}=dec2bin（abs（b{i}（2）））;
    binacRange{i}=binacRange{i}-48;
    if（b{i}（2）<0）
        binacRange{i}=~binacRange{i};
    end
    
    acBits（i）=length（binacRange{i}）;%binacRange长度
    if（b{i}（2）==0） acBits（i）=0;
    end
    forHuf{i}=[b{i}（1） acBits（i）];%forHuf为“行程/尺寸“
end


for i=1:j
    hufCodeOut{i}=YAcHufCode（forHuf{i}）;%“行程/尺寸的霍夫曼码
    out{i}=[hufCodeOut{i} binacRange{i}];%码包括两部分，即行程/尺寸的霍夫曼码和幅度值编码
    if（b{i}（2）==0）out{i}=hufCodeOut{i}; %幅度为0，则其编码长度为0
    end
end


acCodeOut=out{1};
for i=2:j
    acCodeOut=[acCodeOut out{i}];
end
    

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     590864  2003-12-01 07:00  JPEG压缩编码\7.tif

     文件       1525  2005-06-04 02:18  JPEG压缩编码\AcCode.m

     文件        287  2005-06-04 02:48  JPEG压缩编码\antiQuanY.m

     文件       1108  2005-06-04 02:48  JPEG压缩编码\antiZscan.m

     文件      65240  1997-02-22 07:28  JPEG压缩编码\cameraman.tif

     文件        677  2005-06-16 23:15  JPEG压缩编码\Code.m

     文件        424  2005-06-16 23:47  JPEG压缩编码\Jpeg.asv

     文件        424  2010-01-07 09:02  JPEG压缩编码\Jpeg.m

     文件        431  2005-06-07 01:36  JPEG压缩编码\Jpeg2.m

     文件      25600  2005-06-16 23:47  JPEG压缩编码\jpeg编解码说明.doc

     文件     263222  2005-06-16 23:18  JPEG压缩编码\lena512.bmp

     文件       1719  2005-06-04 02:46  JPEG压缩编码\MakeTree.m

     文件        295  2005-06-04 02:02  JPEG压缩编码\QuantyY.m

     文件       3022  2005-06-16 23:34  JPEG压缩编码\UnCode.m

     文件        893  2005-06-04 02:32  JPEG压缩编码\UnHufCode.m

     文件      12775  2005-06-07 01:55  JPEG压缩编码\varable.m

     文件      14166  2005-06-04 02:22  JPEG压缩编码\YAcHufCode.m

     文件       1189  2005-06-04 02:18  JPEG压缩编码\YCode.m

     文件        931  2005-06-04 02:27  JPEG压缩编码\YDcCode.m

     文件       1005  2005-06-04 02:28  JPEG压缩编码\ZScan.m

     目录          0  2010-03-11 18:25  JPEG压缩编码

----------- ---------  ---------- -----  ----

               985797                    21