base.m

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

function p = base(p)

global Line Bus

if ~p.n, return, end

fm_errv(p.con(:,4),'Upfc',p.bus1)
Vb = getkv(Bus,p.bus1,1);
p.con(:,9)  = p.con(:,9).*p.con(:,4)./Vb;
p.con(:,10) = p.con(:,10).*p.con(:,4)./Vb;
p.con(:,11) = p.con(:,11).*p.con(:,4)./Vb;
p.con(:,12) = p.con(:,12).*p.con(:,4)./Vb;

[p.xcs,p.y] = factsbase(Line,p.line,p.Cp,'UPFC');

p.store = p.con;