52 lines
1.8 KiB
Plaintext
52 lines
1.8 KiB
Plaintext
function deltG=func_deltG(Busnum,PVi,PGi,Loadi,PD,QD)
|
|
%%
|
|
PD_=PD(Loadi);
|
|
QD_=QD(Loadi);
|
|
sizePGi=size(PGi,1);
|
|
sizePVi=size(PVi,1);
|
|
sizeLoadi=size(Loadi,1);
|
|
%%
|
|
dg1_dPg=sparse(1:sizePGi,1:sizePGi,ones(sizePGi,1),sizePGi,sizePGi);
|
|
dg2_dPg=sparse(sizePGi,sizePVi);
|
|
dg3_dPg=sparse(sizePGi,sizeLoadi);
|
|
dg4_dPg=sparse(sizePGi,length(Loadi));
|
|
dg5_dPg=sparse(sizePGi,Busnum);
|
|
dg6_dPg=sparse(sizePGi,length(Loadi));
|
|
%%
|
|
dg1_dQr=sparse(sizePVi,sizePGi);
|
|
dg2_dQr=sparse(1:sizePVi,1:sizePVi,ones(sizePVi,1),sizePVi,sizePVi);
|
|
dg3_dQr=sparse(sizePVi,sizeLoadi);
|
|
dg4_dQr=sparse(sizePVi,length(Loadi));
|
|
dg5_dQr=sparse(sizePVi,Busnum);
|
|
dg6_dQr=sparse(sizePVi,length(Loadi));
|
|
%%
|
|
dg1_dPD=sparse(size(Loadi,1),size(PGi,1));
|
|
dg2_dPD=sparse(size(Loadi,1),size(PVi,1));
|
|
dg3_dPD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1));
|
|
dg4_dPD=sparse(size(Loadi,1),length(Loadi));
|
|
dg5_dPD=sparse(size(Loadi,1),Busnum);
|
|
dg6_dPD=diag(2./PD_-2*PD_./(PD_.^2+QD_.^2));
|
|
%%
|
|
dg1_dQD=sparse(size(Loadi,1),size(PGi,1));
|
|
dg2_dQD=sparse(size(Loadi,1),size(PVi,1));
|
|
dg3_dQD=sparse(length(Loadi),length(Loadi));
|
|
dg4_dQD=sparse(1:size(Loadi,1),1:size(Loadi,1),ones(size(Loadi,1),1),size(Loadi,1),size(Loadi,1));
|
|
dg5_dQD=sparse(size(Loadi,1),Busnum);
|
|
dg6_dQD=diag(-2*QD_./(PD_.^2+QD_.^2));
|
|
%%
|
|
dg1_dx=sparse(2*Busnum,sizePGi);
|
|
dg2_dx=sparse(2*Busnum,sizePVi);
|
|
dg3_dx=sparse(2*Busnum,sizeLoadi);
|
|
dg4_dx=sparse(2*Busnum,length(Loadi));
|
|
dg5_dx=[sparse(1:Busnum,1:Busnum,ones(Busnum,1),Busnum,Busnum);
|
|
sparse(Busnum,Busnum);
|
|
];
|
|
dg6_dx=sparse(2*Busnum,Busnum);
|
|
%%
|
|
deltG=[dg1_dPg,dg2_dPg,dg3_dPg,dg4_dPg,dg5_dPg,dg6_dPg;
|
|
dg1_dQr,dg2_dQr,dg3_dQr,dg4_dQr,dg5_dQr,dg6_dQr;
|
|
dg1_dPD,dg2_dPD,dg3_dPD,dg4_dPD,dg5_dPD,dg6_dPD;
|
|
dg1_dQD,dg2_dQD,dg3_dQD,dg4_dQD,dg5_dQD,dg6_dQD;
|
|
dg1_dx,dg2_dx,dg3_dx,dg4_dx,dg5_dx,dg6_dx;
|
|
];
|
|
end |