www.pudn.com > zishiyingjiami.rar > RDTLUJ.m, change:2011-12-08,size:348b


function A1=RDTLUJ(A) 
[m,n]=size(A); 
A1=zeros(m,n); 
%µϽ 
for i=m:-1:1 
    for j=n:-1:1 
         if i>1 & j>1   
            tp1=bitxor(A(i,j),A(i-1,j)); 
            tp2=bitxor(tp1,A(i,j-1)); 
            tp3=bitxor(tp2,A(i-1,j-1));  
            A1(i,j)=tp3; 
        else 
            A1(i,j)=A(i,j); 
         end 
     end 
end