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

加入部分负荷未知的情况。修复了有功无功上下界的一个bug。

Browse Source 
Signed-off-by: facat <dmy@dmy-PC.(none)>
This commit is contained in:
facat
2012-05-25 15:38:31 +08:00
parent f2781393a7
commit 460c49829b
19 changed files with 122 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
OPF_Init.m
View File

@@ -1,28 +1,33 @@
function [Volt,UAngel,Init_Z,Init_W,Init_L,Init_U,Init_Y,PG,QG,RestraintCount,wG,wD,PD]=OPF_Init(Busnum,Balance,PG,QG,Volt,GenU,GenL,PVi,PGi,PVQU,PVQL,PD0)
RestraintCount=size(PVi,1)+size(PGi,1)+Busnum*2; %约束条件数
function [Volt,UAngel,Init_Z,Init_W,Init_L,Init_U,Init_Y,PG,QG,RestraintCount,wG,wD,PD,PD0,randPDind,Loadi]=OPF_Init(Busnum,Balance,PG,QG,Volt,GenU,GenL,PVi,PGi,PVQU,PVQL,PD0,QD)
Loadi=find(QD~=0);
%Loadi=[1:Busnum]';
RestraintCount=size(PVi,1)+size(PGi,1)+size(Loadi,1)+Busnum*1; %约束条件数
t_Bal_volt=Volt(Balance);
Volt=sparse(ones(1,Busnum));
Volt(Balance)=t_Bal_volt;
%Volt(Balance)=1;
UAngel=sparse(1,Busnum);
Init_Z=sparse(ones(1,RestraintCount));
Init_W=sparse(-1*ones(1,RestraintCount));
Init_L=sparse(ones(1,RestraintCount));
Init_U=sparse(ones(1,RestraintCount));
Init_Y=sparse(1,2*Busnum);%与学姐一致
%Init_Y(1:2:2*Busnum)=1e-10;
%Init_Y(2:2:2*Busnum)=-1e-10;
tPU=sparse(GenU(:,2));% 发电机有功上限
tQU=sparse(PVQU(:,1));% 无功上限
tPL=sparse(GenL(:,2));% 发电机有功下限
tQL=sparse(PVQL(:,1));% 无功下限
%PG(4:5)=[4.5 4.5];
PG(PGi)=(tPU+tPL)/2;
%QG(4:5)=[0 1.45];
QG(PVi)=(tQU+tQL)/2;
wG=ones(size(PGi,1),1);
wD=ones(Busnum,1);
randInt=randperm(size(Loadi,1));
%asc_randInt=sort(randInt,2,'ascend' );
%randPDind=randInt(1:200);
randPDind=randInt(1:0);
wD=ones(size(Loadi,1),1);
wD(randPDind)=0;%一些负荷不约束
%wD(Balance)=0;
%PD0(randPDind)=0;
PD=1*PD0;
%PD(PD==0)=.2;