jpeg 本代码用matlab实现了图像的Jpeg编解码

本代码用matlab实现了图像的Jpeg编解码，使我的毕业设计，在这里与大家共享。

function out = AcCode（ in ACTAB ）
%输入in为63个数字，即一个方块的AC分量
pos=find（in~=0）;
out=[];
ex=any（in）;
if ex==1             %输入不全0
    L=length（pos）;
    last=pos（L）;
    num0=0;
    for n=1:last
            if in（n）==0
                num0=num0+1;   %累加0的个数
                if num0==16;
                    out=cat（2out[1 1 1 1 1 1 1 1 0 0 1]）; %16个0的编码
                    num0=0;      %0的个数清0
                end
            else
                r=num0;         %计算run
                num0=0;
                s=cate（in（n））;  %计算size
                pos=r*10+s;     %在ACTAB编码表中的行数
                L=ACTAB（pos3）; %编码长度
                tmp=ACTAB（pos[4:L+3]）;
                out=cat（2outtmp）; %链接到结果尾部
                tmp=getbin（in（n））; %转换成二进制
                out=cat（2outtmp）;%链接到结果尾部
            e

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

     文件        964  2009-09-21 22:37  4\AcCode.m

     文件         52  2009-09-20 22:10  4\cate.m

     文件        874  2009-09-26 14:07  4\code.asv

     文件        941  2009-09-26 14:13  4\code.m

     文件        261  2009-09-26 14:11  4\code.mat

     文件        587  2009-09-18 14:48  4\czigzag.m

     文件        491  2009-09-21 22:31  4\DcCode.m

     文件        323  2009-09-26 14:13  4\decipher.mat

     文件       4623  2009-09-26 14:13  4\decode.jpeg

     文件       3286  2009-09-22 23:24  4\decode.m

     文件        198  2009-09-22 22:52  4\evaluate.m

     文件        202  2009-09-18 12:32  4\getbin.m

     文件        281  2009-09-17 21:56  4\getnum.m

     文件      75386  2009-09-03 11:10  4\hall.mat

     文件      19120  2009-09-22 22:21  4\hall_code.mat

     文件      18354  2009-09-26 14:13  4\hall_decode.mat

     文件      18895  2009-09-22 00:29  4\hall_gray.mat

     文件      18357  2009-09-22 00:48  4\hall_new.mat

     文件       4555  2009-09-26 14:13  4\jpegcodes.mat

     文件        668  2009-09-18 14:03  4\JpegCoeff.mat

     文件        207  2009-09-22 22:35  4\main.m

     文件        267  2009-09-20 21:09  4\mydct.m

     文件        266  2009-09-20 21:29  4\myidct.m

     文件       4901  2009-09-22 22:37  4\origin.jpeg

    ..A.SH.     18432  2009-09-26 14:14  4\Thumbs.db

     文件        439  2009-09-17 14:05  4\zigzag.m

     目录          0  2010-08-20 16:28  4

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

               192930                    27



............此处省略0个文件信息