图论——有向图的关联矩阵和邻接矩阵的转换matlab程序

function W=mattransf（Ff）
%有向图的邻接矩阵和关联矩阵的转换
if f==0
    n=size（F1）;
    k=1;
    for i=1:n
        for j=1:n
            if F（ij）~=0
                W（ik）=1;      %给边的始点赋值1
                W（jk）=-1;     %给边的终点赋值-1
                k=k+1;