lxbmq.m

基于matlab的小波变换的图象压缩

function type=lxbmq(m,X,type,row,col,l)
%对X矩阵中第row行、第col列的数据进行编码（此处要与codeq.m组合为全扫描式），m为阈值，type为类型矩阵
if important(m,X(row,col))==0  %不是重要系数
   if type(row,col)~=2   %不是次要系数根的子系数
      if impb(m,row,col,X,type,l)   %有重要子系数
         type(row,col)=100;
      else
         if row<=l&col<=l
            type(2*row-1,2*col-1)=2;
            type(2*row-1,2*col)=2;
            type(2*row,2*col-1)=2;
            type(2*row,2*col)=2;
         end
      end
   else
      if row<=l&col<=l
         type(2*row-1,2*col-1)=2;
         type(2*row-1,2*col)=2;
         type(2*row,2*col-1)=2;
         type(2*row,2*col)=2;         
      end
      if impb(m,row,col,X,type,l)
         type(row,col)=100;
      end
   end
elseif X(row,col)<0
   type(row,col)=110;
else
   type(row,col)=101;
end
return