facat
/
pes2014
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

复制了一遍PD的约束 

Signed-off-by: dmy <dugg@21cn.com>
This commit is contained in:
dmy 2014-05-14 10:12:34 +08:00
parent 7bde55ceb8
commit ac0bcf1da8
6 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
FormG.m
View File

@ -1,6 +1,7 @@
function Mat_G=FormG(Volt,PD,QD,Loadi,Vbi,mVolt,RealVolt,bigM,sigma) function Mat_G=FormG(Volt,PD,QD,Loadi,Vbi,mVolt,RealVolt,bigM,sigma)
Mat_G=[ Mat_G=[
sparse(PD(Loadi));
sparse(PD(Loadi)); sparse(PD(Loadi));
sparse(QD(Loadi)); sparse(QD(Loadi));
Volt'-bigM*Vbi-mVolt'-sigma*RealVolt'; Volt'-bigM*Vbi-mVolt'-sigma*RealVolt';

2
FormLw.m
View File

@ -17,7 +17,7 @@ realQD=QD0(Loadi);
indQD=find(realQD>0); indQD=find(realQD>0);
QDU(indQD(3:12:end))=1.55*realQD(indQD(3:12:end)); QDU(indQD(3:12:end))=1.55*realQD(indQD(3:12:end));
QDU(indQD(9:12:end))=1.05*realQD(indQD(9:12:end)); QDU(indQD(9:12:end))=1.05*realQD(indQD(9:12:end));
t1=([PDU',QDU',0*VoltU,50*ones(1,Busnum),1*ones(1,Busnum)])'; t1=([PDU',PDU',QDU',0*VoltU,50*ones(1,Busnum),1*ones(1,Busnum)])';
t2=Mat_G+Init_U'-t1; t2=Mat_G+Init_U'-t1;
Lw=t2; Lw=t2;

2
FormLz.m
View File

@ -16,7 +16,7 @@ realQD=QD0(Loadi);
indQD=find(realQD>0); indQD=find(realQD>0);
QDL(indQD(3:12:end))=0.95*realQD(indQD(3:12:end)); QDL(indQD(3:12:end))=0.95*realQD(indQD(3:12:end));
QDL(indQD(9:12:end))=0.95*realQD(indQD(9:12:end)); QDL(indQD(9:12:end))=0.95*realQD(indQD(9:12:end));
t1=([PDL',QDL',-5000*ones(1,length(VoltL)),0*VoltL,0*ones(1,Busnum)])'; t1=([PDL',PDL',QDL',-5000*ones(1,length(VoltL)),0*VoltL,0*ones(1,Busnum)])';
t2=Mat_G-Init_L'-t1; t2=Mat_G-Init_L'-t1;
Lz=t2; Lz=t2;
end end

2
OPF.m
View File

@ -56,7 +56,7 @@ mQD=QD0;
RealVolt=Volt0; RealVolt=Volt0;
mVolt=Volt0.*(1+normrnd(0,sigma,1,length(Volt0))); mVolt=Volt0.*(1+normrnd(0,sigma,1,length(Volt0)));
Vbi=sparse(0.1*ones(Busnum,1)); Vbi=sparse(0.1*ones(Busnum,1));
bigM=50; bigM=10;
while(abs(Gap)>Precision) while(abs(Gap)>Precision)
if KK>kmax if KK>kmax
break; break;

2
OPF_Init.m
View File

@ -1,7 +1,7 @@
function [Volt,UAngel,Init_Z,Init_W,Init_L,Init_U,Init_Y,PG,QG,RestraintCount,wPG,wQG,wPD,wQD,PD,PD0,QD,randPDind,Loadi]=OPF_Init(Busnum,Balance,PG,QG,Volt,GenU,GenL,PVi,PGi,PVQU,PVQL,PD0,QD0,QD,PD) function [Volt,UAngel,Init_Z,Init_W,Init_L,Init_U,Init_Y,PG,QG,RestraintCount,wPG,wQG,wPD,wQD,PD,PD0,QD,randPDind,Loadi]=OPF_Init(Busnum,Balance,PG,QG,Volt,GenU,GenL,PVi,PGi,PVQU,PVQL,PD0,QD0,QD,PD)
Loadi=find(QD~=0 | PD~=0); Loadi=find(QD~=0 | PD~=0);
%Loadi=[1:Busnum]'; %Loadi=[1:Busnum]';
RestraintCount=size(Loadi,1)*2+Busnum*2+Busnum; %约束条件数,放开所有QD RestraintCount=size(Loadi,1)*2+size(Loadi,1)+Busnum*2+Busnum; %约束条件数,放开所有QD
t_Bal_volt=Volt(Balance); t_Bal_volt=Volt(Balance);
Volt=sparse(1*ones(1,Busnum)); Volt=sparse(1*ones(1,Busnum));
Volt(Balance)=t_Bal_volt; Volt(Balance)=t_Bal_volt;

14
func_deltG.m
View File

@ -1,18 +1,23 @@
function deltG=func_deltG(Busnum,PVi,PGi,Loadi,PD,QD) function deltG=func_deltG(Busnum,PVi,PGi,Loadi,PD,QD)
sizeLoadi=size(Loadi,1); sizeLoadi=size(Loadi,1);
%dg3 PD-M*b-t-PD0
dg3_dPD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1)); dg3_dPD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1));
%dg32 PD+M*B+t+PD0
dg32_dPD=dg3_dPD;
dg4_dPD=sparse(size(Loadi,1),length(Loadi)); dg4_dPD=sparse(size(Loadi,1),length(Loadi));
dg5_dPD=sparse(size(Loadi,1),Busnum); dg5_dPD=sparse(size(Loadi,1),Busnum);
dg6_dPD=dg5_dPD; dg6_dPD=dg5_dPD;
dg7_dPD=sparse(sizeLoadi,Busnum); dg7_dPD=sparse(sizeLoadi,Busnum);
%% %%
dg3_dQD=sparse(length(Loadi),length(Loadi)); dg3_dQD=sparse(length(Loadi),length(Loadi));
dg32_dQD=sparse(sizeLoadi,sizeLoadi);
dg4_dQD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1)); dg4_dQD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1));
dg5_dQD=sparse(size(Loadi,1),Busnum); dg5_dQD=sparse(size(Loadi,1),Busnum);
dg6_dQD=dg5_dQD; dg6_dQD=dg5_dQD;
dg7_dQD=sparse(sizeLoadi,Busnum); dg7_dQD=sparse(sizeLoadi,Busnum);
%% %%
dg3_dx=sparse(2*Busnum,sizeLoadi); dg3_dx=sparse(2*Busnum,sizeLoadi);
dg32_dx=sparse(2*Busnum,sizeLoadi);
dg4_dx=sparse(2*Busnum,length(Loadi)); dg4_dx=sparse(2*Busnum,length(Loadi));
dg5_dx=[sparse(1:Busnum,1:Busnum,ones(Busnum,1),Busnum,Busnum); dg5_dx=[sparse(1:Busnum,1:Busnum,ones(Busnum,1),Busnum,Busnum);
sparse(Busnum,Busnum); sparse(Busnum,Busnum);
@ -21,14 +26,15 @@ dg6_dx=dg5_dx;
dg7_dx=sparse(2*Busnum,Busnum); dg7_dx=sparse(2*Busnum,Busnum);
%% %%
dg3_dvbi=sparse(Busnum,sizeLoadi); dg3_dvbi=sparse(Busnum,sizeLoadi);
dg32_dvbi=sparse(Busnum,sizeLoadi);
dg4_dvbi=sparse(Busnum,length(Loadi)); dg4_dvbi=sparse(Busnum,length(Loadi));
dg5_dvbi=sparse(-eye(Busnum,Busnum)); dg5_dvbi=sparse(-eye(Busnum,Busnum));
dg6_dvbi=sparse(eye(Busnum,Busnum)); dg6_dvbi=sparse(eye(Busnum,Busnum));
dg7_dvbi=sparse(eye(Busnum,Busnum)); dg7_dvbi=sparse(eye(Busnum,Busnum));
%% %%
deltG=[dg3_dPD,dg4_dPD,dg5_dPD,dg6_dPD,dg7_dPD; deltG=[dg3_dPD,dg32_dPD,dg4_dPD,dg5_dPD,dg6_dPD,dg7_dPD;
dg3_dQD,dg4_dQD,dg5_dQD,dg6_dQD,dg7_dQD; dg3_dQD,dg32_dQD,dg4_dQD,dg5_dQD,dg6_dQD,dg7_dQD;
dg3_dx,dg4_dx,dg5_dx,dg6_dx,dg7_dx; dg3_dx,dg32_dx,dg4_dx,dg5_dx,dg6_dx,dg7_dx;
dg3_dvbi,dg4_dvbi,dg5_dvbi,dg6_dvbi,dg7_dvbi; dg3_dvbi,dg32_dvbi,dg4_dvbi,dg5_dvbi,dg6_dvbi,dg7_dvbi;
]; ];
end end