remove.m

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

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.bcv(jdx,:) = [];
  end
  jdx = find(a.ty2 == idx(i));
  if jdx
    a.ty2(jdx) = []; 
    a.alpha(jdx,:) = [];
    a.vm(jdx,:) = [];
  end  
  jdx = find(a.pod == idx(i));
  if jdx, a.pod(jdx) = []; end
  jdx = find(a.cluster == idx(i));
  if jdx, a.cluster(jdx) = []; end  
end

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