25 lines
635 B
Mathematica
25 lines
635 B
Mathematica
|
function Lw=FormLw(Mat_G,GenU,Busnum,PVQU,PD0,QD0,Loadi,PF)
|
|||
|
|
%PU=GenU(:,2);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>й<EFBFBD><EFBFBD>Ͻ<EFBFBD>
|
|||
|
|
PU=8*ones(length(GenU(:,2)),1);
|
|||
|
|
%QU=PVQU(:,1);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͻ<EFBFBD>
|
|||
|
|
QU=8*ones(length(PVQU(:,1)),1);
|
|||
|
|
VoltU=(1.2)*ones(1,Busnum);
|
|||
|
|
%VoltU=10*ones(1,Busnum);
|
|||
|
|
PDU=PD0(Loadi);
|
|||
|
|
PDU(PDU>0)=1.200*PDU(PDU>0);
|
|||
|
|
PDU(PDU<0)=0.800*PDU(PDU<0);
|
|||
|
|
PDU(PDU==0)=0.400;
|
|||
|
|
%PDU=10*ones(length(Loadi),1);
|
|||
|
|
QDU=QD0(Loadi);
|
|||
|
|
QDU(QDU>0)=1.200*QDU(QDU>0);
|
|||
|
|
QDU(QDU<0)=0.800*QDU(QDU<0);
|
|||
|
|
QDU(QDU==0)=0.200;
|
|||
|
|
%PF_=1.1*PF;
|
|||
|
|
%PF_(PF_>1)=1;
|
|||
|
|
%powerFactorU=2*log(1).*ones(length(Loadi),1);
|
|||
|
|
%t1=([PU',QU',PDU',QDU',VoltU,powerFactorU'])';
|
|||
|
|
t1=([PU',QU',PDU',QDU',VoltU])';
|
|||
|
|
t2=Mat_G-t1;
|
|||
|
|
Lw=t2;
|
|||
|
|
|
|||
|
|
end
|