pqset.m

来自「电力系统分析计算程序」· M 代码 · 共 6 行

function a = pqset(a,tanphi)

if ~a.n, return, end
a.con(:,3) = a.u.*a.con(:,7);
a.con(:,4) = a.u.*a.con(:,7).*tanphi;