funcion1

function [m_adyacencia,B] = pairs (A)
m = size(A,1);
n = size(A,2);
B = zeros(m,n);
contador = 1;
for i=1:n
    for j=1:m
        if A(j,i)!=0
            B(j,i) = contador;
            contador = contador+1;
        end
    end
end
contador = 1;
for i=1:m
    for j=1:n
        if B(i,j)!=0
            if i>1
                if B(i-1,j)!=0
                    pares(contador,:) = [B(i,j) B(i-1,j)];
                    contador = contador+1;
                end
            end
            if i<size(B,1)
                if B(i+1,j)!=0
                    pares(contador,:) = [B(i,j) B(i+1,j)];
                    contador = contador+1;
                end
            end
            if j>1
                if B(i,j-1)!=0
                    pares(contador,:) = [B(i,j) B(i,j-1)];
                    contador = contador+1;
                end
            end
            if j<size(B,2)
                if B(i,j+1)!=0
                    pares(contador,:) = [B(i,j) B(i,j+1)];
                    contador = contador+1;
                end
            end
        end
    end
end
m_adyacencia = accumarray(pares,1);
endfunction