base.m

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

function p = base(p)

global Bus Settings

if ~p.n, return, end

fm_errv(p.con(:,3),'Svc',p.bus)
Vb = Bus.con(p.bus,2);
Vb2new = Vb.*Vb;
Vb2old = p.con(:,3).*p.con(:,3);

p.con(:,8) = p.con(:,8).*p.con(:,3)./Vb;

if p.ty1
  k = Vb2new(p.ty1).*p.con(p.ty1,2)./Vb2old(p.ty1)/Settings.mva;
  p.con(p.ty1,9) = k.*p.con(p.ty1,9);
  p.con(p.ty1,10) = k.*p.con(p.ty1,10);
end

if p.ty2
  k = Settings.mva*Vb2old(p.ty1)./p.con(p.ty1,2)./Vb2new(p.ty1);
  p.con(p.ty2,15) = k.*p.con(p.ty1,15);
  p.con(p.ty2,16) = k.*p.con(p.ty1,16);
end

p.store = p.con;