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個文件信息