lxbmb.m

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

function type=lxbmb(m,X,type,row,col,l)
%对X矩阵中第row行、第col列的数据进行编码（此处为半扫描式）
if important(m,X(row,col))==0  %不是重要系数
      if impb(m,row,col,X,type,l)   %有重要子系数
         type(row,col)=100;
      elseif row<=l&col<=l
            type(2*row-1,2*col-1)=2;    %“2”表示该值类型为次要系数根的子系数
            type(2*row-1,2*col)=2;
            type(2*row,2*col-1)=2;
            type(2*row,2*col)=2;
      end 
elseif X(row,col)<0
   type(row,col)=110;
else
   type(row,col)=101;
end
return