redbus.m

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

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