8 lines
240 B
Matlab
8 lines
240 B
Matlab
function Mat_H=FormH(Busnum,Volt,PG,PD,QG,QD,Y,UAngel,r,c,Angle,Loadi)
|
|
AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
|
|
dP=PG-PD-diag(Volt)*Y.*cos(AngleIJ)*Volt';
|
|
dQ=QG-QD-diag(Volt)*Y.*sin(AngleIJ)*Volt';
|
|
|
|
Mat_H=[dP;dQ;];
|
|
|
|
end |