four22.m

一种新的ABO编码算法实现

function [r,y,q]=four22(a)
[m,n]=size(a);
k=1;
w=1;
for i=1:2:(m-1)
    for j=1:2:(n-1)
        temp=a(i:i+1,j:j+1);
        as{1,k}=temp;
        as{1,k+1}=rand(2,2);
        b{1,k}=ones(2,2);
         while isequal(b{1,k},zeros(2,2))~=1,     
               k=k+1;
               [b{1,k},as{1,k}]=compositor(as{1,k-1});
               y((i+1)/2,(j+1)/2)=as{1,k}(1,1);
         end
           z{1,w}=as{1,k}; 
           w=w+1;
    end
end
z=diff(z);
%--------------------------------------------------------------------------
%----         q是排序记录的位平面,其中一次排序的至多是3*3bit          --------
%--------------------------------------------------------------------------
[m,n]=size(b);
for i=1:n
q(1,i)=changeten(b{1,i});
end
%--------------------------------------------------------------------------
%----                     z是差值的记录                            --------
%--------------------------------------------------------------------------
[m,n]=size(z);
k=1;
for i=1:n
    r(1,k)=z{1,i}(1,1);
    k=k+1;
    r(1,k)=z{1,i}(1,2);
    k=k+1;
    r(1,k)=z{1,i}(1,3);
    k=k+1;
end