original.not modified.

func_deltG.m

@@ -0,0 +1,21 @@
+function deltG=func_deltG(Busnum,PVi,PGi)
+dg1_dPg=eye(size(PGi,1));
+dg2_dPg=zeros(size(PGi,1),size(PVi,1));
+dg3_dPg=zeros(size(PGi,1),Busnum);
+%% 
+dg1_dQr=zeros(size(PVi,1),size(PGi,1));
+dg2_dQr=eye(size(PVi,1));
+dg3_dQr=zeros(size(PVi,1),Busnum);
+%% 
+dg1_dx=zeros(2*Busnum,size(PGi,1));
+dg2_dx=zeros(2*Busnum,size(PVi,1));
+dg3_dx=zeros(2*Busnum,Busnum);
+for I=1:Busnum
+    %dg3_dx(2*I,I)=1;ÔÝĘą¸ÄŇťĎÂ
+    dg3_dx(I,I)=1;
+end
+%% 
+deltG=[dg1_dPg,dg2_dPg,dg3_dPg;
+       dg1_dQr,dg2_dQr,dg3_dQr;
+       dg1_dx,dg2_dx,dg3_dx;
+];