gycall.m

来自「用于电力系统的一个很好的分析软件」· M 代码 · 共 14 行

function Gycall(a)

global DAE

if ~a.n, return, end

dipqv = ifield(a,2);

DAE.Gy = DAE.Gy ...
         - sparse(a.If,a.If,1,DAE.m,DAE.m) ...
         + sparse(a.If,a.p,dipqv(:,1),DAE.m,DAE.m) ...
         + sparse(a.If,a.q,dipqv(:,2),DAE.m,DAE.m) ...
         + sparse(a.If,a.vbus,dipqv(:,3),DAE.m,DAE.m);