hebin.m

来自「初学者设计的matlab顶点问题着色问题gui解决」· M 代码 · 共 26 行

function c=hebin(a,i,size)
    b=zeros(size-1);
    for k=1:size
       if a(i(1),k)+a(i(2),k)~=0
           a(i(1),k)=1;
       end
    end
    for m=1:size
        if(m<i(2))
            for n=m:size
              if(n<i(2))
                  b(m,n)=a(m,n);
                  b(n,m)=b(m,n);
              elseif(n>i(2))
                  b(m,n-1)=a(m,n);
                  b(n-1,m)=a(m,n);
              end
            end
        elseif(m>i(2))
            for n=m:size
                b(m-1,n-1)=a(m,n);
                b(n-1,m-1)=a(m,n);
            end
        end
    end
    c=b;