完成了含有电压幅值,线路功率,变压器功率的状态估计程序。

Signed-off-by: facat <facat@facat.cn>
This commit is contained in:
facat 2013-08-17 17:50:36 +08:00
parent d39075c0aa
commit e7e390c20a
1 changed files with 8 additions and 7 deletions

15
run.m
View File

@ -208,17 +208,18 @@ while maxD>1e-3;
SEBranchI=BranchI( SEVolt.*exp(1j*SEVAngel),lineI,lineJ,lineR,lineX );%
SEBranchP=BranchP( SEVolt.*exp(1j*SEVAngel),SEBranchI,lineI,lineB2 );
SEBranchQ=BranchQ( SEVolt.*exp(1j*SEVAngel),SEBranchI,lineI,lineB2 );
SETransP=TransPower( newwordParameter,cmpY,rVolt,rVAngel );
h=[SEVolt;SEBranchP;SEBranchQ];
z=[mVolt;mBranchP;mBranchP];
SETransP=TransPower( newwordParameter,SEVolt,SEVAngel );
SETransQ=TransReactivePower( newwordParameter,SEVolt,SEVAngel );
h=[SEVolt;SEBranchP;SEBranchQ;SETransP;SETransQ];
z=[mVolt;mBranchP;mBranchQ;mTransP;mTransQ];
W=sparse(1:length(h),1:length(h),1/sigma.^2,length(h),length(h));
G=H'*W*H;
g=-H'*W*(z-h);
% ;
% G(length(mVolt)+Balance,:)=0;
% G(:,length(mVolt)+Balance)=0;
% G=G+sparse(length(mVolt)+Balance,length(mVolt)+Balance,1,length(mVolt)*2,length(mVolt)*2);
% g(length(mVolt)+Balance)=0;
G(length(mVolt)+Balance,:)=0;
G(:,length(mVolt)+Balance)=0;
G=G+sparse(length(mVolt)+Balance,length(mVolt)+Balance,1,length(mVolt)*2,length(mVolt)*2);
g(length(mVolt)+Balance)=0;
dX=G\-g;
maxD=max(abs(dX))
%