remove.m

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

function a = remove(a,idx)

if ~a.n, return, end
if isempty(idx), return, end

for i = 1:length(idx)
  jdx = find(a.ty1 == idx(i));
  if jdx 
    a.ty1(jdx) = [];
    a.tg1(jdx) = [];
    a.tg2(jdx) = [];
    a.tg3(jdx) = [];
  end
  jdx = find(a.ty2 == idx(i));
  if jdx 
    a.ty2(jdx) = [];
    a.tg(jdx) = [];
  end
end

a.con(idx,:) = [];
a.bus(idx) = [];
a.syn(idx) = [];
a.n = a.n - length(idx);