move2sup.m

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

function a = move2sup(a,idx)

if ~a.n, return, end

global Supply

if isempty(idx), return, end

data = zeros(length(idx),15);
data(:,[1 2 3 15]) = a.con(idx,[1 2 4 10]);
Supply = add(Supply,data);

a = remove(a,idx);