tanphi.m

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

function val = tanphi(a,idx)

val = [];
if ~a.n, return, end

if isnumeric(idx)
  p = a.con(idx,4);
  jdx = find(p == 0);
  if ~isempty(jdx), p(jdx) = 1; end
  val = a.con(idx,5)./a.con(idx,4);
  if ~isempty(jdx), val(jdx) = 1; end
elseif strcmp(idx,'all')
  p = a.con(:,4);
  jdx = find(p == 0);
  if ~isempty(jdx), p(jdx) = 1; end
  val = a.con(:,5)./a.con(:,4);  
  if ~isempty(jdx), val(jdx) = 1; end
end