redbus.m

可以计算电力系统概率潮流

function BusRed=redBus(bus, nswing)
% remove nswing row and column
glo_var

BusRed=zeros(nbus-1, 8);
BusRed(1:nswing-1,1:8)=bus(1:nswing-1,1:8);
BusRed(nswing:nbus-1,1:8)=bus(nswing+1:nbus,1:8);

return