qiu_d.m

来自「用MATLAB编的配电网自动化的一些程序」· M 代码 · 共 7 行

function  [d]=qiu_d(z)
[r,s]=size(z);
for i=1:r
    d(z(i,1),z(i,2))=1;
     d(z(i,2),z(i,1))=1;
end