2012-05-24 10:34:04 +08:00
|
|
|
function Mat_H=FormH(Busnum,GB,AngleIJMat,Volt,PG,PD,QG,QD,Y,UAngel,r,c,Angle,QD_NON_ZERO,QD_NON_ZERO_IND)
|
2012-05-24 10:07:18 +08:00
|
|
|
%%
|
|
|
|
|
QDcos=textread('1047glys.txt');
|
|
|
|
|
QD(QD~=0)=PD(QD~=0)./tan(QDcos);
|
|
|
|
|
QD(QD_NON_ZERO_IND)=QD_NON_ZERO;
|
|
|
|
|
%%
|
2012-05-24 10:34:04 +08:00
|
|
|
AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
|
2012-05-22 11:33:21 +08:00
|
|
|
%dP=PG-PD-diag(Volt)*Y*cos(AngleIJ)*Volt';
|
|
|
|
|
dP=PG-PD-diag(Volt)*Y.*cos(AngleIJ)*Volt';
|
|
|
|
|
dQ=QG-QD-diag(Volt)*Y.*sin(AngleIJ)*Volt';
|
2012-05-24 10:34:04 +08:00
|
|
|
|
2012-05-22 11:33:21 +08:00
|
|
|
Mat_H=[dP;dQ;];
|
|
|
|
|
|
|
|
|
|
end
|
