Matlab实现无向图的关联矩阵和邻接矩阵的相互转换

function W= incandadf( F,f )
%无向图的关联矩阵和邻接矩阵相互转换
%f=0:邻接矩阵->关联矩阵，F为邻接矩阵，W为关联矩阵
%f=1:关联矩阵->邻接矩阵，F为关联矩阵，W为邻接矩阵
if f==0
    %sum(F,1):求F矩阵各列和，sum(F,2):求F矩阵各行和。sum(F)默认求各列
    m=sum(sum(F))/2;    %所有顶点度和/2=边数
    n=size(F,1)  %F矩阵行数
    W=zeros(n,m);
    k=1; 
    %循环次数为(n*n-n)/2+n
    for i=1:n                %循环F矩阵对角线及上三角元素是否为1
        for j=i:n
            if F(i,j)~=0
                W(i,k)=1;    %第k条边的始点
                W(j,k)=1;    %第k条边的终点
                k=k+1;       %k表示边即第几列，从k=1第一条边开始
            end
        end
    end
elseif f==1               %关联矩阵->邻接矩阵
    m=size(F,2);          %F矩阵列数
    n=size(F,1);          %F矩阵行数
    W=zeros(n,n);
    for i=1:m
        a=find(F(:,i)~=0);  %F矩阵第i列存在两个1，找出行数即顶点存储在a中
        W(a(1),a(2))=1;
        W(a(2),a(1))=1;
    end
else
    fprint('please input the right value of f');
end
W;

end