fm_busidx.m

基于PSAT 软件的多目标最优潮流计算用于中小型电力系统的分析和管理

function  b = fm_busidx(bus_no)
% FM_BUSIDX find input and output line at a certain bus
%
% IDX = FM_BUSIDX(BUS_NO)
%       BUS_NO bus number
%       IDX = [line_from_#, line_to_#]
%
%Author:    Federico Milano
%Date:      11-Nov-2002
%Version:   1.0.0
%
%E-mail:    [e-mail]
%Web-site:  http://thunderbox.uwaterloo.ca/~fmilano
%
% Copyright (C) 2002-2006 Federico Milano

global Line

% indice delle correnti misurate:  I_idx => [#corrente, #linea, from bus, to bus, sign]

I_idx_from = find(Line.con(:,1) == bus_no);
I_idx_to = find(Line.con(:,2) == bus_no);
n_current = length(I_idx_from) + length(I_idx_to);
b = [Line.con(I_idx_from,2); Line.con(I_idx_to,1)];