original.not modified.

func_deltH.m

@@ -0,0 +1,20 @@
+function deltH=func_deltH(Busnum,Volt,PVi,AngleIJMat,Y,GB,PGi)
+dH_dPg=zeros(size(PGi,1),2*Busnum);
+
+for I=1:size(PGi,1)
+    %dH_dPg(I,2*PVi(I)-1)=-1;王锡凡书上的公式
+    %dH_dPg(I,2*PGi(I)-1)=1;暂时改一下20111227
+    dH_dPg(I,PGi(I))=1;
+end
+
+dH_dQr=zeros(size(PVi,1),2*Busnum);
+for I=1:size(PVi,1)
+    %dH_dQr(I,2*PVi(I))=-1;王锡凡书上的公式
+    %dH_dQr(I,2*PVi(I))=1;暂时改一下20111227
+    dH_dQr(I,PVi(I)+Busnum)=1;
+end
+Angle=angle(GB);
+dH_dx = jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat);  %形成雅克比矩阵
+%deltH=[dH_dPg;dH_dQr;dH_dx'];%dH_dx 需要使用一下转置 暂时改一下
+deltH=[dH_dPg;dH_dQr;dH_dx'];
+end