function Rn=refinement(N,LSP_Old)
% 函數(shù) REFINEMENT()為精細編碼程序，對上一級編碼產(chǎn)生的重要系數(shù)列表LSP_Old，讀取每個
% 表項相應(yīng)小波系數(shù)絕對值的二進制表示，輸出其中第N個重要的位，即相應(yīng)于 2^N 處的碼數(shù)
% 輸入?yún)?shù)：N —— 本級編碼閾值的指數(shù)
%          LSP_Old —— 上一級編碼產(chǎn)生的重要系數(shù)列表
% 輸出參數(shù)：Rn —— 精細掃描輸出位流

global Mat
% Mat是輸入的小波分解系數(shù)矩陣，作為全局變量，在編碼的相關(guān)程序中使用

Rn=[];
% 每級精細掃描開始時，Rn 均為空表
% LSP_Old 非空時才執(zhí)行精細掃描程序
if ~isempty(LSP_Old)
	rlsp=size(LSP_Old,1);
% 獲取 LSP_Old 的表項個數(shù)，對每個表項進行掃描
	for r=1:rlsp
        tMat=Mat(LSP_Old(r,1),LSP_Old(r,2));
% 讀取該表項對應(yīng)的小波系數(shù)值
        [biLSP,Np]=fracnum2bin(abs(tMat),N);
% 函數(shù) FRACNUM2BIN() 根據(jù)精細掃描對應(yīng)的權(quán)位 N ，將任意的十進制正數(shù)轉(zhuǎn)換為二進制數(shù)，
% 輸出參數(shù)為二進制表示列表 biLSP 和 權(quán)位N與最高權(quán)位的距離 Np 。
        Rn=[Rn,biLSP(Np)];
% biLSP(Np)即為小波系數(shù)絕對值的二進制表示中第N個重要的位
	end
end