totp.m

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

function ptot = totp(a)

ptot = 0;
if ~a.n, return, end
ptot = sum(a.u.*a.pg);