remove.m

来自「基于PSAT 软件的多目标最优潮流计算用于中小型电力系统的分析和管理」· M 代码 · 共 20 行

function a = remove(a,idx,flag)

if ~a.n, return, end
if isempty(idx), return, end
switch flag
 case 'zero'
  ii = find(a.con(idx,4) == 0 & a.con(idx,5) == 0);
  k = idx(ii);
 case 'force'
  k = idx;
end
a.con(k,:) = [];
a.bus(k) = [];
a.gen(k) = [];
a.n = a.n - length(k);
a.P0(k) = [];
a.Q0(k) = [];
a.vmax(k) = [];
a.vmin(k) = [];