swsum.m

来自「电力系统分析计算程序」· M 代码 · 共 12 行

function swsum(a,k)

global SW

if ~a.n, return, end

for i = 1:a.n
  idx = findbus(SW,a.bus(i));
  SW = swsum(SW,idx,k*a.con(i,6)*a.u(i));
end