fm_rmgen.m

来自「用于电力系统的一个很好的分析软件」· M 代码 · 共 53 行

function  check = fm_rmgen(idx)
% FM_RMGEN finds and remove static generators
%
% CHECK = FM_RMGEN(IDX)
%       IDX   = bus index where to look for generators
%       CHECK = 0 -> no generator found
%       CHECK = 1 -> found generator
%
%Author:    Federico Milano
%Date:      27-Dec-2005
%Version:   1.0.0
%
%E-mail:    [e-mail]
%Web-site:  http://www.uclm.es/area/gsee/Web/Federico
%
% Copyright (C) 2002-2008 Federico Milano

global SW PV PQ
persistent local_idx

check = 1;

if idx == -1
  local_idx = [];
  return
end

if ~idx, return, end

if ~isempty(local_idx)
  if ~isempty(find(local_idx == idx))
    return
  else
    local_idx = [local_idx;idx];
  end
else
  local_idx = [local_idx;idx];
end

idx_sw = findbus(SW,idx);
idx_pv = findbus(PV,idx);
idx_pq = findgen(PQ,idx);

SW = remove(SW,idx_sw);
PV = remove(PV,idx_pv);
PQ = remove(PQ,idx_pq,'force');

if isempty(idx_pv) & isempty(idx_sw) & isempty(idx_pq)
  fm_disp([' * * Error: No static generator found at bus <', ...
           Bus.names{idx},'>'])
  check = 0;
end