gcall.m

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

function gcall(p)

global DAE

if ~p.n, return, end

DAE.gp(p.bus) = p.con(:,4) + DAE.gp(p.bus);
DAE.gq(p.bus) = p.con(:,5) + DAE.gq(p.bus);
a = find(DAE.V(p.bus) < p.con(:,7) & p.con(:,8));
b = find(DAE.V(p.bus) > p.con(:,6) & p.con(:,8));
if ~isempty(a)
  k = p.bus(a);
  DAE.gp(k) = p.con(a,4).*DAE.V(k).*DAE.V(k)./p.con(a,7)./p.con(a,7) ...
      + DAE.gp(k) - p.con(a,4);
  DAE.gq(k) = p.con(a,5).*DAE.V(k).*DAE.V(k)./p.con(a,7)./p.con(a,7) ...
      + DAE.gq(k) - p.con(a,5);
end
if ~isempty(b)
  k = p.bus(b);
  DAE.gp(k) = p.con(b,4).*DAE.V(k).*DAE.V(k)./p.con(b,6)./p.con(b,6) + ...
      DAE.gp(k) - p.con(b,4);
  DAE.gq(k) = p.con(b,5).*DAE.V(k).*DAE.V(k)./p.con(b,6)./p.con(b,6) + ...
      DAE.gq(k) - p.con(b,5);
end