function?acCodeOut=AcCode（zScanOut）
%交流系數(shù)編碼
%完成一個(gè)塊的交流編碼
%輸入z形掃描結(jié)果，輸出碼流
N=8;
num=N*N+1;i=N*N;
b=cell（1N*N）;
%b{j}O包括兩個(gè)部分，b{j}（1）表示連零個(gè)數(shù)，b{j}{2}表示幅度

%游程編碼開(kāi)始
while（i>1）%確定EOB前系數(shù)的長(zhǎng)度
????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）%確定連零個(gè)數(shù)
????????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）表示連零個(gè)數(shù)，b{j}{2}表示幅度
????j=j+1;
????i=i+1;
end
b{j}=[0?0];%EOB塊編碼

%游程編碼完畢

binacRange=cell（11）;%幅度值二進(jìn)制編碼
forHuf=cell（11）;%Hufman編碼的輸入?yún)?shù)，每個(gè)元素包括兩個(gè)部分：游程長(zhǎng)度和binacRange長(zhǎng)度
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長(zhǎng)度
????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，則其編碼長(zhǎng)度為0
????end
end


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

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????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??2005-06-16?23:48??jpeg\Jpeg.m

?????文件????????431??2005-06-07?01:36??jpeg\Jpeg2.m

?????文件??????25600??2005-06-16?23:47??jpeg\jpeg編解碼說(shuō)明.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??2005-06-16?23:47??jpeg

-----------?---------??----------?-----??----

???????????????395151????????????????????21