有向图的关联矩阵和邻接矩阵

%% **************有向图的关联矩阵和邻接矩阵********************
% 输入参数：F 邻接矩阵或关联矩阵 f转换参数，0表示邻接矩阵转换为关联矩阵      //
% 1表示关联矩阵转换为邻接矩阵                                                                    //
% 输出: W 转换所得矩阵                                                                               //

%%
function W = mattransf(F, f)
 
if f == 0                                             %邻接矩阵转换为关联矩阵
    m = sum(sum(F));
    n = size(F);
    W = zeros(n,m);
    k = 1;
    for i =1:n
        for j = 1:n
            if F(i,j)~=0 && j>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);
    for i = 1:m
        a = find(F(:,i)~=0);
        if F(a(1),i) == 1
            W(a(1),a(2)) = 1;
        else
            W(a(2),a(1)) = 1;
        end
    end
else
    fprint('Please input the right value of f');
end