facat
/
stateestimation-self-derivatives-measurementdistribution
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

加均匀分布 

Signed-off-by: dmy@lab <dmy@lab.lab>
This commit is contained in:
dmy@lab 2015-03-29 11:15:21 +08:00
parent 537b5e4699
commit d3146da2b9
1 changed files with 396 additions and 369 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

271
run.m
View File

@ -2,121 +2,139 @@ clear
clc clc
% yalmip('clear') % yalmip('clear')
addpath('.\Powerflow') addpath('.\Powerflow')
[~, ~, ~, ~,Volt,Vangle,Y,Yangle,r,c,newwordParameter,PG,QG,PD,QD,Balance]=pf('ieee4-DN.dat', '0'); [~, ~, ~, ~,Volt,Vangle,Y,Yangle,r,c,newwordParameter,PG,QG,PD,QD,Balance]=pf('E:\算例\feeder33\feeder33ieee.txt', '0');
% 'E:\算例\feeder33\feeder33ieee.txt' % 'E:\算例\feeder33\feeder33ieee.txt'
%% 开始生成量测量 %% 开始生成量测量
sigma=0.03;% 标准差 sigma=0.01;% 标准差
%% 电压 loop=1;
%电压幅值 VoltAAE=0;
rVolt=Volt; %幅值 VAngleAAE=0;
BalanceVolt=Volt(Balance); while 1
mVolt=rVolt.*(normrnd(0,sigma,length(Volt),1)+1);%电压量测量 %% 电压
rVAngel=Vangle; %电压幅值
%% 电流 rVolt=Volt; %幅值
%注入电流 BalanceVolt=Volt(Balance);
cmpY=Y.*exp(1j*sparse(r,c,Yangle,length(Y),length(Y)));%复数导纳矩阵 % mVolt=rVolt.*(normrnd(0,sigma,length(Volt),1)+1);%电压量测量
cmpV=Volt.*exp(1j*Vangle); %复数电压 %均匀分布
cmpI=cmpY*cmpV;% 注入电流 mVolt=rVolt.*(unifrnd(-3*sigma,3*sigma,length(rVolt),1)+1);
rI=abs(cmpI); %注入电流量测量要的是电流幅值 rVAngel=Vangle;
mI=rI.*(normrnd(0,sigma,length(rI),1)+1);%电流量测量 %% 电流
%% 支路电流 %注入电流
% 支路电流 cmpY=Y.*exp(1j*sparse(r,c,Yangle,length(Y),length(Y)));%复数导纳矩阵
lineI=newwordParameter.line.lineI; cmpV=Volt.*exp(1j*Vangle); %复数电压
lineJ=newwordParameter.line.lineJ; cmpI=cmpY*cmpV;% 注入电流
lineR=newwordParameter.line.lineR; rI=abs(cmpI); %注入电流量测量要的是电流幅值
lineX=newwordParameter.line.lineX; mI=rI.*(normrnd(0,sigma,length(rI),1)+1);%电流量测量
lineB2=newwordParameter.line.lineB2; %% 支路电流
lineG=real(1./(lineR+1j*lineX)); % 支路电流
lineB=imag(1./(lineR+1j*lineX)); lineI=newwordParameter.line.lineI;
cmpBranchI=BranchI( cmpV,lineI,lineJ,lineR,lineX );%复数支路电流 lineJ=newwordParameter.line.lineJ;
rBranchI=abs(cmpBranchI);% 支路电流幅值 lineR=newwordParameter.line.lineR;
mBranchI=rBranchI.*(normrnd(0,sigma,length(rBranchI),1)+1);%支路电流量测量 lineX=newwordParameter.line.lineX;
%% 支路功率 lineB2=newwordParameter.line.lineB2;
rBranchP= BranchP( cmpV,cmpBranchI,lineI,lineB2 ); lineG=real(1./(lineR+1j*lineX));
mBranchP=rBranchP.*(normrnd(0,sigma,length(rBranchP),1)+1);%支路功率量测量 lineB=imag(1./(lineR+1j*lineX));
rBranchQ=BranchQ( cmpV,cmpBranchI,lineI,lineB2 ); cmpBranchI=BranchI( cmpV,lineI,lineJ,lineR,lineX );%复数支路电流
mBranchQ=rBranchQ.*(normrnd(0,sigma,length(rBranchQ),1)+1);%支路功率量测量 rBranchI=abs(cmpBranchI);% 支路电流幅值
%% 变压器功率 mBranchI=rBranchI.*(normrnd(0,sigma,length(rBranchI),1)+1);%支路电流量测量
transI=newwordParameter.trans.transI; %% 支路功率
transJ=newwordParameter.trans.transJ; rBranchP= BranchP( cmpV,cmpBranchI,lineI,lineB2 );
transK=newwordParameter.trans.transK; mBranchP=rBranchP.*(normrnd(0,sigma,length(rBranchP),1)+1);%支路功率量测量
transR=newwordParameter.trans.transR; rBranchQ=BranchQ( cmpV,cmpBranchI,lineI,lineB2 );
transX=newwordParameter.trans.transX; mBranchQ=rBranchQ.*(normrnd(0,sigma,length(rBranchQ),1)+1);%支路功率量测量
transG=real(1./(transR+1j*transX)); %% 变压器功率
transB=imag(1./(transR+1j*transX)); transI=newwordParameter.trans.transI;
rTransP=TransPower( newwordParameter,rVolt,rVAngel ); transJ=newwordParameter.trans.transJ;
rTransQ=TransReactivePower( newwordParameter,rVolt,rVAngel ); transK=newwordParameter.trans.transK;
mTransP=rTransP.*(normrnd(0,sigma,length(rTransP),1)+1); transR=newwordParameter.trans.transR;
mTransQ=rTransQ.*(normrnd(0,sigma,length(rTransQ),1)+1); transX=newwordParameter.trans.transX;
%% 注入功率 transG=real(1./(transR+1j*transX));
rPD=PD; transB=imag(1./(transR+1j*transX));
PDi=find(PD~=0); rTransP=TransPower( newwordParameter,rVolt,rVAngel );
rQD=QD; rTransQ=TransReactivePower( newwordParameter,rVolt,rVAngel );
QDi=find(QD~=0); mTransP=rTransP.*(normrnd(0,sigma,length(rTransP),1)+1);
rPG=PG; mTransQ=rTransQ.*(normrnd(0,sigma,length(rTransQ),1)+1);
PGi=find(PG~=0); %% 注入功率
rQG=QG; rPD=PD;
QGi=find(QG~=0); PDi=find(PD~=0);
mPD=rPD.*(normrnd(0,sigma,length(rPD),1)+1); rQD=QD;
mQD=rQD.*(normrnd(0,sigma,length(rQD),1)+1); QDi=find(QD~=0);
mPG=rPG.*(normrnd(0,sigma,length(rPG),1)+1); rPG=PG;
mQG=rQG.*(normrnd(0,sigma,length(rQG),1)+1); PGi=find(PG~=0);
%% 0注入节点 rQG=QG;
zerosInjectionIndex=1:length(Volt); QGi=find(QG~=0);
zerosInjectionIndex=zerosInjectionIndex( ~(PD~=0|QD~=0|PG~=0|QG~=0) );
% zerosInjectionIndex=zeros(0,0);
%% 发电机注入功率 % 正态分布
% 先找到只有发电机的节点 % mPD=rPD.*(normrnd(0,sigma,length(rPD),1)+1);
PDQDi=union(PDi,QDi); % mQD=rQD.*(normrnd(0,sigma,length(rQD),1)+1);
onlyPG=setdiff(PGi,PDQDi); % mPG=rPG.*(normrnd(0,sigma,length(rPG),1)+1);
onlyQG=setdiff(QGi,PDQDi); % mQG=rQG.*(normrnd(0,sigma,length(rQG),1)+1);
%% 计算方差 % 均匀分布
% measureSigma=abs(([rVolt;rBranchP;rBranchQ;rTransP;rTransQ].*sigma));
measureSigma=abs(([rVolt;rPD(PDi);rQD(QDi);].*sigma)); mPD=rPD.*(unifrnd(-3*sigma,3*sigma,length(rPD),1)+1);
measureSigma(measureSigma<1e-6)=mean(measureSigma(measureSigma>1e-6)); mQD=rQD.*(unifrnd(-3*sigma,3*sigma,length(rQD),1)+1);
W=sparse(diag(1./measureSigma.^2)) ; mPG=rPG.*(unifrnd(-3*sigma,3*sigma,length(rPG),1)+1);
% W=eye(length(W)); mQG=rQG.*(unifrnd(-3*sigma,3*sigma,length(rQD),1)+1);
% W=sparse(1:length(W),1:length(W),400,length(W),length(W)); % PD0(Loadi)=RealPD(Loadi).*(1+unifrnd(-3*sigma,3*sigma,length(Loadi),1));
%% 冗余度计算 % QD0(Loadi)=RealQD(Loadi).*(1+unifrnd(-3*sigma,3*sigma,length(Loadi),1));
stateVarCount=2*length(Volt); % mVolt=rVolt.*(1+unifrnd(-3*sigma,3*sigma,1,length(rVolt)));
measurements=length(mVolt)+length(mBranchI)+length(mBranchP)+length(mBranchQ)+length(mPG)+length(mQG)+length(mTransP)+length(mTransQ); %% 0注入节点
fprintf('冗余度 %f\n',measurements/stateVarCount); zerosInjectionIndex=1:length(Volt);
%% save zerosInjectionIndex=zerosInjectionIndex( ~(PD~=0|QD~=0|PG~=0|QG~=0) );
% save('mVolt','mVolt'); % zerosInjectionIndex=zeros(0,0);
% save('mPG','mPG'); %% 发电机注入功率
% save('mQG','mQG'); % 先找到只有发电机的节点
% save('mBranchI','mBranchI'); PDQDi=union(PDi,QDi);
% save('mBranchP','mBranchP'); onlyPG=setdiff(PGi,PDQDi);
% save('mBranchQ','mBranchQ'); onlyQG=setdiff(QGi,PDQDi);
% save('mTransP','mTransP'); %% 计算方差
% save('mTransQ','mTransQ'); % measureSigma=abs(([rVolt;rBranchP;rBranchQ;rTransP;rTransQ].*sigma));
%% load measureSigma=abs(([rVolt;rPD(PDi);rQD(QDi);].*sigma));
% load('mVolt'); % measureSigma(measureSigma<1e-6)=mean(measureSigma(measureSigma>1e-6));
% load('mPG'); W=sparse(diag(1./measureSigma.^2)) ;
% load('mQG'); % W=eye(length(W));
% load('mBranchI'); % W=sparse(1:length(W),1:length(W),400,length(W),length(W));
% load('mBranchP'); %% 冗余度计算
% load('mBranchQ'); stateVarCount=2*length(Volt);
% load('mTransP'); measurements=length(mVolt)+length(mBranchI)+length(mBranchP)+length(mBranchQ)+length(mPG)+length(mQG)+length(mTransP)+length(mTransQ);
% load('mTransQ'); fprintf('冗余度 %f\n',measurements/stateVarCount);
%% 自己写的微分代码 %% save
% 初始化一些值 % save('mVolt','mVolt');
SEVolt=sparse(ones(length(mVolt),1)); % save('mPG','mPG');
SEVolt(Balance)=rVolt(Balance); % save('mQG','mQG');
SEVAngle=sparse(-0.00*ones(length(mVolt),1)); % save('mBranchI','mBranchI');
% SEVolt=rVolt; % save('mBranchP','mBranchP');
% SEVAngle=rVAngel; % save('mBranchQ','mBranchQ');
maxD=1000; % save('mTransP','mTransP');
Iteration=0; % save('mTransQ','mTransQ');
optimalCondition=100; %% load
eps=1e-5; % load('mVolt');
mu=0; % load('mPG');
v=2; % load('mQG');
ojbFunDecrease=1000;% 目标函数下降 % load('mBranchI');
% 以下都是Jacobi矩阵 % load('mBranchP');
% while max(abs(g))>1e-5; % load('mBranchQ');
% while maxD>1e-5 % load('mTransP');
while max(abs(optimalCondition))>eps % load('mTransQ');
%% 自己写的微分代码
% 初始化一些值
SEVolt=sparse(ones(length(mVolt),1));
SEVolt(Balance)=rVolt(Balance);
SEVAngle=sparse(-0.00*ones(length(mVolt),1));
% SEVolt=rVolt;
% SEVAngle=rVAngel;
maxD=1000;
Iteration=0;
optimalCondition=100;
eps=1e-5;
mu=0;
v=2;
ojbFunDecrease=1000;% 目标函数下降
% 以下都是Jacobi矩阵
% while max(abs(g))>1e-5;
% while maxD>1e-5
while max(abs(maxD))>eps
% 电压 % 电压
dV_dV=sparse(1:length(mVolt),1:length(mVolt),1,length(mVolt),length(mVolt));%电压量测量的微分 dV_dV=sparse(1:length(mVolt),1:length(mVolt),1,length(mVolt),length(mVolt));%电压量测量的微分
dV_dTyta=sparse(length(mVolt),length(mVolt)); dV_dTyta=sparse(length(mVolt),length(mVolt));
@ -284,11 +302,11 @@ while max(abs(optimalCondition))>eps
% nodePQ=[nodeP;nodeQ]; % nodePQ=[nodeP;nodeQ];
% c=nodePQ(zerosInjectionIndex); % c=nodePQ(zerosInjectionIndex);
%% 进入迭代 %% 进入迭代
% H=[dV_dV,dV_dTyta; % H=[dV_dV,dV_dTyta;
% dLPij_dVi+dLPij_dVj,dLPij_dThetai+dLPij_dThetaj ; % dLPij_dVi+dLPij_dVj,dLPij_dThetai+dLPij_dThetaj ;
% dLQij_dVi+dLQij_dVj,dLQij_dThetai+dLQij_dThetaj ; % dLQij_dVi+dLQij_dVj,dLQij_dThetai+dLQij_dThetaj ;
% dTPij_dVi+dTPij_dVj,dTPij_dThetai+dTPij_dThetaj; % dTPij_dVi+dTPij_dVj,dTPij_dThetai+dTPij_dThetaj;
% dTQij_dVi+dTQij_dVj,dTQij_dThetai+dTQij_dThetaj];%jacobi % dTQij_dVi+dTQij_dVj,dTQij_dThetai+dTQij_dThetaj];%jacobi
H=[dV_dV,dV_dTyta; H=[dV_dV,dV_dTyta;
dPdV(PDi,:),dPdTyta(PDi,:); dPdV(PDi,:),dPdTyta(PDi,:);
dQdV(QDi,:),dQdTyta(QDi,:)];%jacobi dQdV(QDi,:),dQdTyta(QDi,:)];%jacobi
@ -298,15 +316,15 @@ while max(abs(optimalCondition))>eps
SEBranchQ=BranchQ( SEVolt.*exp(1j*SEVAngle),SEBranchI,lineI,lineB2 ); SEBranchQ=BranchQ( SEVolt.*exp(1j*SEVAngle),SEBranchI,lineI,lineB2 );
SETransP=TransPower( newwordParameter,SEVolt,SEVAngle ); SETransP=TransPower( newwordParameter,SEVolt,SEVAngle );
SETransQ=TransReactivePower( newwordParameter,SEVolt,SEVAngle ); SETransQ=TransReactivePower( newwordParameter,SEVolt,SEVAngle );
% rAngleIJ=sparse(r,c,rVAngel(r)-rVAngel(c) -Yangle,length(mVolt),length(mVolt)) ; % rAngleIJ=sparse(r,c,rVAngel(r)-rVAngel(c) -Yangle,length(mVolt),length(mVolt)) ;
% diag(rVolt)*Y.* ( spfun (@cos, rAngleIJ ) )*rVolt; % diag(rVolt)*Y.* ( spfun (@cos, rAngleIJ ) )*rVolt;
SEPD=diag(SEVolt)*Y.* ( spfun (@cos, VAngleIJ ) )*SEVolt; SEPD=diag(SEVolt)*Y.* ( spfun (@cos, VAngleIJ ) )*SEVolt;
SEQD=diag(SEVolt)*Y.* ( spfun(@sin,VAngleIJ) )*SEVolt; SEQD=diag(SEVolt)*Y.* ( spfun(@sin,VAngleIJ) )*SEVolt;
h=[SEVolt;SEPD(PDi);SEQD(QDi);]; h=[SEVolt;SEPD(PDi);SEQD(QDi);];
% h=[SEVolt;SEBranchP;SEBranchQ;SETransP;SETransQ]; % h=[SEVolt;SEBranchP;SEBranchQ;SETransP;SETransQ];
% z=[mVolt;mBranchP;mBranchQ;mTransP;mTransQ]; % z=[mVolt;mBranchP;mBranchQ;mTransP;mTransQ];
z=[mVolt;-mPD(PDi);-mQD(QDi)]; z=[mVolt;-mPD(PDi);-mQD(QDi)];
@ -376,7 +394,16 @@ while max(abs(optimalCondition))>eps
optimalCondition=-g; optimalCondition=-g;
optimalCondition(Balance)=0; optimalCondition(Balance)=0;
optimalCondition(Balance+length(mVolt))=0; optimalCondition(Balance+length(mVolt))=0;
end
VoltAAE=VoltAAE+sum(abs((SEVolt-rVolt)./rVolt));
VAngleAAE=VAngleAAE+sum(abs((SEVAngle(2:end)-rVAngel(2:end))./rVAngel(2:end)));
if loop>=500
break
end
loop=loop+1;
end end
VoltAAE=VoltAAE/(loop*length(SEVolt))*100;
VAngleAAE=VAngleAAE/(loop*length(SEVAngle(2:end)))*100;
%% 输出结果 %% 输出结果
fprintf('迭代%d次\n',Iteration); fprintf('迭代%d次\n',Iteration);
fval=full((z-h)'*W*(z-h)); fval=full((z-h)'*W*(z-h));