qiu_d.m

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

function  [d]=qiu_d(z)
z=[1,7;2,3;2,5;3,2;3,7;3,10;4,7;5,8;5,2;5,9;6,9;7,1;7,3;7,4;8,5;9,6;9,5;10,3]
[r,s]=size(z);
for i=1:r
    d(z(i,1),z(i,2))=1;
end