pqdir.m

来自「这是一个很适合研究和学习用的电力系统仿真软件」· M 代码 · 共 12 行

function [p,q] = pqdir(a,idx)

p = 0;
q = 0;

if ~a.n, return, end

if ~isempty(idx)
  p = sum(a.con(idx,3));
  q = sum(a.con(idx,4));
end