【正文】 行程/尺寸的哈夫曼碼 out{i}=[hufCodeOut{i} binacRange{i}]。%碼包括兩部分，即行程/尺寸的哈夫曼碼和幅度值編碼 if(b{i}(2)==0)out{i}=hufCodeOut{i}。 %幅度為0，則其編碼長度為0 endendacCodeOut=out{1}。for i=2:j acCodeOut=[acCodeOut out{i}]。end %function acCodeOut=AcCode2(zScanOut)%交流系數(shù)編碼，此處省略前面部分代碼，N=8。num=N*N+1。i=N*N。b=cell(1,N*N)。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 endendacCodeOut=out{1}。for i=2:j acCodeOut=[acCodeOut out{i}]。end%function rey=UnCode(CodeOut)global row col%輸入碼流，輸出灰度矩陣varable。%定義變量，主要為霍夫曼編碼表yAcTree=MakeTree(yAcTable)。%調用函數(shù)從碼表生成二叉樹以便于解碼 yDcTree=MakeTree(yDcTable)。%以下是解碼部分%Uncode應當與z形掃描后得到的數(shù)組完全一致%i是碼流數(shù)組的指針%j是解碼出來一維數(shù)組的指針%blockcount指明現(xiàn)在正在為第幾個塊解碼i=1。j=1。blockcount=0。ticwhile(ilength(CodeOut)) blockcount=blockcount+1。 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %以下為直流解碼部分，解出第blockcount塊的直流成分（稍后進行差分解碼） m=UnHufCode(CodeOut(i:end),yDcTree)。 %UnHufCode函數(shù)輸出包含兩個域，第一個域hufCodeleng代表哈夫曼碼本身的長度，data代表直流幅度值編碼的長度 if(~=0)%直流幅度值二進制長度不為0 dctemp=CodeOut(i+:i++)。 %dctemp取出幅度對應的碼段 if(dctemp(1)==0)%碼段第一位為0，則說明幅度為負值 dctemp=~dctemp。 Uncode(j)=bin2dec(char(dctemp+48))。%調用系統(tǒng)函數(shù)變換，變換前需要把數(shù)值數(shù)組變成字符數(shù)組 Uncode(j)=Uncode(j)。 else Uncode(j)=bin2dec(char(dctemp+48))。 end j=j+1。 i=i++。 else % 直流二進制幅度值為0，則幅度值編碼長度也為0 i=i+。 Uncode(j)=0。 j=j+1。 end %直流解碼部分完畢 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %以下解碼交流系數(shù),解出第blockcount塊的交流成分 while(j=64*blockcount) m=UnHufCode(CodeOut(i:end),yAcTree)。%m包括兩個域， %2數(shù)組，分別代表零的個數(shù)（0游程）和交流幅度值二進制位數(shù) temp=。 if(temp==[0 0])%如果碰到EOB符號，則本塊所剩交流系數(shù)均為0 Uncode(j:64*blockcount)=zeros(1,64*blockcountj+1)。 j=blockcount*64+1。 i=i+。 break。 %跳出本塊解碼，繼續(xù)進行下一塊解碼,結束本次循環(huán) end for(k=1:temp(1))%temp(1)為游程長度 Uncode(j)=0。 j=j+1。 end i=i+。 %指針后移哈夫曼編碼長度 actemp=CodeOut(i:i+(2)1)。%actemp提取出幅度值對應的碼段 if((2)==0) %數(shù)據(jù)為0，只有在16個0連續(xù)出現(xiàn)于非eob塊時出現(xiàn) temp2=0。 else if(actemp(1)==0) %第一位碼為0，則幅度值為負數(shù) actemp=~actemp。 temp2=bin2dec(char(actemp+48))。 else temp2=bin2dec(char(actemp+48))。 end end Uncode(j)=temp2。 j=j+1。 i=i+(2)。 %指針后移幅度值編碼長度 end %function unHufCodeOut=UnHufCode(a,binTree)%根據(jù)輸入碼流，從輸入碼流第一個開始尋找是否存在哈夫曼碼子，%%讀入一位碼，在二叉樹上往下走一步，走到葉子即意味著得到一個碼子%輸入兩個參數(shù)，第一個為碼流數(shù)組，第二個為解碼二叉樹k=1。j=1。for i=1:17 if(a(i)==1) k=binTree(k).oneP。 if(k==1)error(39。錯誤編碼39。)。end。 if(binTree(k).isLeaf==1) =binTree(k).data。 =i。 break。 end else k=binTree(k).zeroP。 if(k==1)error(39。錯誤編碼39。)。end。 if(binTree(k).isLeaf==1) =binTree(k).data。 =i。 break。 end endendif(i==17)%碼最長為16位 error(39。badopt39。,39。碼流有誤39。)。end本科生課程設計成績評定表姓 名王曉飛性 別男專業(yè)、班級通信工程1001班課程設計題目：通信工程應用技術綜合訓練與實習課程設計答辯或質疑記錄：成績評定依據(jù)：最終評定成績（以優(yōu)、良、中、及格、不及格評定） 指導教師簽字：