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