Matlab实现有向图的关联矩阵和邻接矩阵的转换

function W = mattransf( F,f )
%有向图的关联矩阵和邻接矩阵相互转换
%f=0:邻接矩阵->关联矩阵，F为邻接矩阵，W为关联矩阵
%f=1:关联矩阵->邻接矩阵，F为关联矩阵，W为邻接矩阵
if f==0
    m=sum(sum(F));
    n=size(F,1);
    W=zeros(n,m);
    k=1;
    for i=1:n
        for j=1:n
            if F(i,j)~=0      %由i发出的边，有向点的始点
                W(i,k)=1;     %关联矩阵始点值为1
                W(j,k)=-1;    %终点值为-1
                k=k+1;
            end
        end
    end
elseif f==1
    m=size(F,2);
    n=size(F,1);
    W=zeros(n,n);
%     for i=1:m
%         a(1)=find(F(:,i)==1);
%         a(2)=find(F(:,i)==-1);
%         W(a(1),a(2))=1;
%     end
    for i=1:m
        a=find(F(:,i)~=0);     %有向边的两个顶点
        if F(a(1),i)==1
            W(a(1),a(2))=1;    %有向边由a(1)指向a(2)
        else
            W(a(2),a(1))=1;    %有向边由a(2)指向a(1)
        end
    end
else
    fprint('please input the right value of f');
end
W;
end