rearrange.m

电力系统计算节点数不多的潮流程序,数度比较快

%重新排列节点
function  [bus,line,nodenum]=rearrange(bus,line,nb,nl)
%依据bus确定系统的PQ节点、PV节点、平衡节点数分别为nPQ、nPV和nSW，并分别将PQ节点、PV节点、平衡节点的数据分别放入数组PQ、PV和SW中
  nSW = 0;                 % number of swing bus counter
  nPV = 0;                 % number of PV bus counter
  nPQ = 0;                 % number of PQ bus counter
  %nb=11;                   %节点个数
  for i = 1:nb,              % nb为总节点数
    type= bus(i,6);
    if type == 3,
	   nSW = nSW + 1;     % increment swing bus counter
       SW(nSW,:)=bus(i,:);
    elseif type == 2,
	   nPV = nPV +1;      % increment PV bus counter
       PV(nPV,:)=bus(i,:);
    else
	   nPQ = nPQ + 1;     % increment PQ bus counter
       PQ(nPQ,:)=bus(i,:);
    end
  end; 

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
  bus=[PQ;PV;SW];
  newbus=[1:nb]';
  nodenum=[newbus bus(:,1)];
  bus(:,1)=newbus; 
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %nl=14;                                    %连线条数
  for i=1:nl
      for j=1:2
          for k=1:nb
              if line(i,j)==nodenum(k,2)
                 line(i,j)=nodenum(k,1);
                 break
              end
          end
      end
  end