function [Sn,LSP,LIP]=lip_scan(Sn,N,LSP,LIP)
% 函數(shù) LIP_SCAN() 檢查LIP表的小波系數(shù)，更新列表LIP、LSP和排序位流 Sn
% 輸入?yún)?shù)：Sn —— 本級(jí)編碼排序位流，為空表
%          N —— 本級(jí)編碼閾值的指數(shù)
%          LSP —— 上一級(jí)編碼生成的重要系數(shù)列表
%          LIP —— 上一級(jí)編碼生成的不重要系數(shù)列表
% 輸出參數(shù)：Sn —— 對上一級(jí)編碼生成的LIP列表掃描后產(chǎn)生的排序位流
%          LSP —— 對上一級(jí)編碼生成的LIP列表掃描后生成的重要系數(shù)列表
%          LIP —— 上一級(jí)編碼生成的不重要系數(shù)列表

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

rlip=size(LIP,1);
r=1;
% 由于循環(huán)過程中列表 LIP 的表長會(huì)變化，不適合用 for 循環(huán)，故采用 while 循環(huán)
% r 是指向 LIP 當(dāng)前讀入表項(xiàng)位置的指針
while r<=rlip
% 讀入當(dāng)前表項(xiàng)的坐標(biāo)值
    rN=LIP(r,1);
    cN=LIP(r,2);
% 判斷該表項(xiàng)是否重要
	if SnOut(LIP(r,:),N)
        % 若重要，
        Sn=[Sn,1];
        if Mat(rN,cN)>=0
            Sn=[Sn,1];
        else
            Sn=[Sn,0];
        end
        LSP=[LSP;LIP(r,:)];
        LIP(r,:)=[];
    else
        Sn=[Sn,0];
        r=r+1;
	end        
	rlip=size(LIP,1);
end