29 lines
875 B
Matlab
29 lines
875 B
Matlab
function Lw=FormLw(Mat_G,Init_U,GenU,Busnum,PVQU,PD,PD0,QD0,Loadi,KK,PF,eps)
|
|
KK=999;
|
|
VoltU=(1.1)*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;
|
|
realPD=PD0(Loadi);
|
|
indPD=find(realPD>0);
|
|
PDU(indPD(3:12:end))=1.55*realPD(indPD(3:12:end));
|
|
PDU(indPD(9:12:end))=1.05*realPD(indPD(9:12:end));
|
|
QDU=QD0(Loadi);
|
|
QDU(QDU>0)=1.200*QDU(QDU>0);
|
|
QDU(QDU<0)=0.800*QDU(QDU<0);
|
|
QDU(QDU==0)=0.400;
|
|
realQD=QD0(Loadi);
|
|
indQD=find(realQD>0);
|
|
QDU(indQD(3:12:end))=1.55*realQD(indQD(3:12:end));
|
|
QDU(indQD(9:12:end))=1.05*realQD(indQD(9:12:end));
|
|
t1=([0*PDU',1*ones(1,length(PDU)),0*QDU',1*ones(1,length(QDU)),0*VoltU,1*ones(1,length(VoltU)),0.1*ones(1,Busnum+length(Loadi)*2)])';
|
|
t1=[t1;
|
|
sparse(eps*ones(Busnum,1));
|
|
sparse(eps*ones(length(Loadi),1));
|
|
sparse(eps*ones(length(Loadi),1));
|
|
];
|
|
t2=Mat_G+Init_U'-t1;
|
|
Lw=t2;
|
|
|
|
end |