24 lines
779 B
Matlab
24 lines
779 B
Matlab
function Mat_H=FormH(fsY11,Loadi,V1r,V1i,I1r,I1i,BalI1r,BalI1i,Balance)
|
|
%%
|
|
%QDcos=textread('D:\Project\×îĞ¡»¯³±Á÷\×îĞ¡³±Á÷ËãÀı\Ïɺ£919PDQDglys.txt');
|
|
%QD(QD~=0)=PD(QD~=0)./tan(QDcos);
|
|
%QD(QD_NON_ZERO_IND)=QD_NON_ZERO;
|
|
%%
|
|
%PD(Loadi)=QD(Loadi)./tan(acos(0.98));
|
|
% 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;];
|
|
H=[
|
|
real(fsY11),-imag(fsY11);
|
|
imag(fsY11),real(fsY11);
|
|
];
|
|
busNum=length(fsY11);
|
|
% C=sparse(1:length(Loadi),Loadi,1,length(Loadi),busNum*2);
|
|
Mat_H=H*[V1r;V1i];
|
|
|
|
Mat_H=Mat_H+sparse(Loadi,1,-I1r,busNum*2,1)+sparse(Loadi+busNum,1,-I1i,busNum*2,1);
|
|
Mat_H(Balance)=Mat_H(Balance)-BalI1r;
|
|
Mat_H(Balance+busNum)=Mat_H(Balance+busNum)-BalI1i;
|
|
end |