codes_d.m

这是一个不错的图像压缩的Matlab程序,希望能对你有所帮助.

 function CodeS_d(S)
 
global Xa
global T
global LSP
global LISi;global LISj;global LISk;
global outline
global each
global n
global count
%Partition S into four equal subsets Sn
%if S(1)==33
%    display(S(1));
%end
%shape(S);  %按S对Xa进行重新排序
for i=1:4
    Sn(1)=S(1)+(i-1)*S(2)/4;
    Sn(2)=S(2)/4;
    if  outline{n}(count)=='1'
        count=count+1;
        if Sn(2)==1 %S是单点数       
            LSP=[LSP,Sn(1)];
            if outline{n}(count)=='+'
                Xa(Sn(1))=1.5*T;                     
            else
                Xa(Sn(1))=-1.5*T;
            end
            count=count+1;
        else
            CodeS_d(Sn);
        end
    elseif outline{n}(count)=='0'
        count=count+1;        
        LISi=[LISi,Sn(1)];  %添加Sn到LIS
        LISj=[LISj,Sn(2)];
        %each=each+1;
    end
end
%shape_d(S); %按S对Xa进行反排序