modline.m

来自「可以计算电力系统概率潮流」· M 代码 · 共 25 行

function dline=modline(line1)

glo_var

nline1=length(line1(:,1));
for i=1:nline1
    if (i==1)
        dline(1,:)=line1(1,:);
    else 
        nflag=0;
        ncl=length(dline(:,1));
        for j=1:ncl
            if (line1(i,1)==dline(j,1))&(line1(i,2)==dline(j,2))
                dline(j,:)=line1(i,:);
                nflag=1;
                break;
            end    
        end
        if (nflag==0)
            dline(ncl+1,:)=line1(i,:);   
        end    
    end
end

return