32 lines
820 B
Mathematica
32 lines
820 B
Mathematica
|
function deltG=func_deltG(Busnum,Loadi)
|
||
|
|
%%
|
||
|
|
|
||
|
|
sizeLoadi=size(Loadi,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*3);
|
||
|
|
%%
|
||
|
|
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*3);
|
||
|
|
|
||
|
|
%%
|
||
|
|
dg3_dx=sparse(2*Busnum*3,sizeLoadi);
|
||
|
|
dg4_dx=sparse(2*Busnum*3,length(Loadi));
|
||
|
|
dg5_dx=[sparse(1:Busnum*3,1:Busnum*3,ones(Busnum*3,1),Busnum*3,Busnum*3);
|
||
|
|
sparse(Busnum*3,Busnum*3);
|
||
|
|
];
|
||
|
|
%%
|
||
|
|
|
||
|
|
deltG=[dg3_dPD,dg4_dPD,dg5_dPD;
|
||
|
|
dg3_dQD,dg4_dQD,dg5_dQD;
|
||
|
|
dg3_dx,dg4_dx,dg5_dx;
|
||
|
|
];
|
||
|
|
deltG=[dg3_dPD,dg4_dPD;
|
||
|
|
dg3_dQD,dg4_dQD;
|
||
|
|
dg3_dx,dg4_dx;];
|
||
|
|
end
|