huitui.m

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

function huitui(b,d)
global bs qq ls j2
[i2,j2]=size(ls)
if j2>0
    while(j2>0&b(ls(1))==0)                                  %回退没找到T接点的处理办法
         ls(:,1)=[]
         [i2,j2]=size(ls)
    end
end
[i2,j2]=size(ls)
if j2>0 
         if(qq(ls(1))==1)
         qq(ls(1))=2
         ls=[bs(1),ls]
         bs(1)=[]
         lss=0
         elseif(qq(ls(1))==2)
         qq(ls(1))=0
         ls(1)=[]
         huitui(b,d)
         end
end