7 lines
402 B
Mathematica
7 lines
402 B
Mathematica
|
function deltH=func_deltH(Busnum,Volt,Y,UAngel,r,c,Angle,Loadi)
|
|||
|
|
dH_dPD=[sparse(1:size(Loadi,1),Loadi,-ones(size(Loadi,1),1),size(Loadi,1),Busnum*3) sparse(size(Loadi,1),Busnum*3)];
|
|||
|
|
dH_dQD=[sparse(size(Loadi,1),Busnum*3) sparse(1:size(Loadi,1),Loadi,-ones(size(Loadi,1),1),size(Loadi,1),Busnum*3)];
|
|||
|
|
dH_dx = jacobian_M(Busnum,Volt,Y,Angle,UAngel,r,c); %<EFBFBD>γ<EFBFBD><EFBFBD>ſ˱Ⱦ<EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
deltH=[dH_dPD;dH_dQD;dH_dx']';
|
|||
|
|
|
|||
|
|
end
|