pes2014/func_deltH.m

function deltH=func_deltH(Busnum,Volt,PVi,AngleIJMat,Y,GB,PGi,UAngel,r,c,Angle)
% dH_dPg=zeros(size(PGi,1),2*Busnum);
% 
% for I=1:size(PGi,1)
%     %dH_dPg(I,2*PVi(I)-1)=-1;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵĹ<EFBFBD>ʽ
%     %dH_dPg(I,2*PGi(I)-1)=1;<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>20111227
%     dH_dPg(I,PGi(I))=1;
% end

dH_dPg=sparse(1:size(PGi,1),PGi,ones(size(PGi,1),1),size(PGi,1),2*Busnum);

% dH_dQr=zeros(size(PVi,1),2*Busnum);
% for I=1:size(PVi,1)
%     %dH_dQr(I,2*PVi(I))=-1;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵĹ<EFBFBD>ʽ
%     %dH_dQr(I,2*PVi(I))=1;<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>20111227
%     dH_dQr(I,PVi(I)+Busnum)=1;
% end
dH_dQr=sparse(1:size(PVi,1),PVi+Busnum,ones(size(PVi,1),1),size(PVi,1),2*Busnum);
dH_dPD=[sparse(1:Busnum,1:Busnum,-ones(Busnum,1),Busnum,Busnum) sparse(Busnum,Busnum)];
%Angle=angle(GB);
dH_dx = jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat,UAngel,r,c);  %<EFBFBD>γ<EFBFBD><EFBFBD>ſ˱Ⱦ<EFBFBD><EFBFBD><EFBFBD>
%deltH=[dH_dPg;dH_dQr;dH_dx'];%dH_dx <EFBFBD><EFBFBD>Ҫʹ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>ת<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>
deltH=[dH_dPg;dH_dQr;dH_dPD;dH_dx'];
end