pes2014/FormLz.m

23 lines
587 B
Mathematica
Raw Normal View History

2012-11-16 22:28:06 +08:00
function Lz=FormLz(Mat_G,Init_L,GenL,Busnum,PVQL,PD,PD0,QD0,Loadi,KK,PF)
KK=999;
%PL=GenL(:,2);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>й<EFBFBD><EFBFBD>½<EFBFBD>
PL=-5*ones(length(GenL(:,2)),1);
%QL=PVQL(:,1);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޹<EFBFBD><EFBFBD>½<EFBFBD>
QL=-5*ones(length(PVQL(:,1)),1);
VoltL=(0.9)*ones(1,Busnum);
%VoltL=-10*ones(1,Busnum);
PDL=PD0(Loadi);
PDL(PDL>0)=0.800*PDL(PDL>0);
PDL(PDL<0)=1.200*PDL(PDL<0);
PDL(PDL==0)=-0.400;
%PDL=-10*ones(length(Loadi),1);
QDL=QD0(Loadi);
QDL(QDL>0)=0.800*QDL(QDL>0);
QDL(QDL<0)=1.200*QDL(QDL<0);
QDL(QDL==0)=-0.200;
% QDL=0*PD(Loadi).*sqrt((1-PF.^2))./PF;
t1=([PL',QL',PDL',QDL',VoltL])';
2012-05-22 11:33:21 +08:00
t2=Mat_G-Init_L'-t1;
Lz=t2;
2012-05-22 11:33:21 +08:00
end