facat
/
stateestimation-ipm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LM法效果也不好。 

Signed-off-by: facat <facat@facat.cn>
This commit is contained in:
facat 2013-08-31 10:05:49 +08:00
parent 62389acec5
commit cff1dde6f4
1 changed files with 75 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
run.m
View File

@ -72,7 +72,7 @@ onlyQG=setdiff(QGi,PDQDi);
%% 计算方差
measureSigma=abs(([rVolt;rBranchP;rBranchQ;rTransP;rTransQ].*sigma));
measureSigma(measureSigma<1e-6)=mean(measureSigma(measureSigma>1e-6));
W=diag(1./measureSigma.^2) ;
W=sparse(diag(1./measureSigma.^2)) ;
% W=sparse(1:length(W),1:length(W),400,length(W),length(W));
%% 冗余度计算
stateVarCount=2*length(Volt);
@ -97,7 +97,7 @@ fprintf('
% load('mTransP');
% load('mTransQ');
%% 自己写的微分代码
% 以下都是Jacobi矩阵
% 初始化一些值
SEVolt=sparse(ones(length(mVolt),1));
SEVolt(Balance)=rVolt(Balance);
SEVAngle=sparse(zeros(length(mVolt),1));
@ -105,9 +105,13 @@ maxD=1000;
Iteration=0;
optimalCondition=100;
eps=1e-4;
mu=0;
v=2;
ojbFunDecrease=1000;% 目标函数下降
% 以下都是Jacobi矩阵
% while max(abs(g))>1e-5;
% while maxD>1e-5
while max(abs(maxD))>eps
while max(abs(optimalCondition))>eps
% 电压
dV_dV=sparse(1:length(mVolt),1:length(mVolt),1,length(mVolt),length(mVolt));%电压量测量的微分
dV_dTyta=sparse(length(mVolt),length(mVolt));
@ -248,9 +252,14 @@ while max(abs(maxD))>eps
% a=[G C';
% C zeros(size(C,1),size(C,1))];
% b=[-g;-c];
% 利用 Levenber-Marquardt
% if Iteration==0
% mu=max(diag(G));
% end
a=G;
b=-g;
% 平衡节点相角恒定
a(length(mVolt)+Balance,:)=0;
a(:,length(mVolt)+Balance)=0;
@ -266,11 +275,38 @@ while max(abs(maxD))>eps
% dXStep=Armijo(z,newwordParameter,W,SEVolt,SEVAngle,dX,g );
maxD=max(abs(dX(1:length(mVolt))))
fprintf('max abs g:%f\n',full(max(abs(g))));
% 更新变量
SEVolt=SEVolt+dX(1:length(mVolt))*dXStep;
Iteration=Iteration+1;
SEVAngle=SEVAngle+dX(length(mVolt)+1:length(mVolt)*2)*dXStep;
lamda=-dX(length(mVolt)*2+1:end);
% % 计算目标函数下降量
% preObjFun=(z-h)'*W*(z-h);
% oldSEVolt=SEVolt;
% oldSEVAngle=SEVAngle;
% 求更新控制指标 p
% p=(objfun( SEVolt,SEVAngle,W,z,newwordParameter ) - objfun( SEVolt+dX(1:length(mVolt))*dXStep,SEVAngle+dX(length(mVolt)+1:length(mVolt)*2)*dXStep,W,z,newwordParameter ) )/( .5*dX'*(mu*dX-g) );
% if p>0 %接受更新
% % 更新变量
% SEVolt=SEVolt+dX(1:length(mVolt))*dXStep;
% SEVAngle=SEVAngle+dX(length(mVolt)+1:length(mVolt)*2)*dXStep;
% lamda=-dX(length(mVolt)*2+1:end);
% mu=mu*max([1/3,1-(2*p-1)^3]);
% v=2;
% else
% mu=mu*v;
% v=2*v;
% end
Iteration=Iteration+1;
% % 更新后目标函数
% h=[SEVolt;SEBranchP;SEBranchQ;SETransP;SETransQ];
% ojbFunDecrease=preObjFun-(z-h)'*W*(z-h)
% if ojbFunDecrease<1e-3
% mu=100000;
% else
% mu=0;
% end
optimalCondition=-g;
optimalCondition(Balance)=0;
optimalCondition(Balance+length(mVolt))=0;
@ -280,7 +316,7 @@ fprintf('
fval=full((z-h)'*W*(z-h));
fprintf('目标函数为:%f\n',fval);
fprintf('相对误差\n');
(abs(rVolt-double(SEVolt)))./(rVolt)
(abs(rVolt-double(SEVolt)))./(rVolt);
MaxDeviation(rVolt,SEVolt,rVAngel,SEVAngle)
plotAndComparison( rVolt,rVAngel,SEVolt,SEVAngle )
% 检查最优性条件