删除多余的函数文件。

Signed-off-by: facat <dmy@dmy-PC.(none)>

AssignXX.m

@@ -1,9 +1,23 @@
-function [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX(XX)
+function [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX1(XX,ContrlCount,RestraintCount,Busnum)
-deltZ=XX(1:14);
+% deltX=XX(1:14);
-deltL=XX(15:28);
+% deltY=XX(15:24);
-deltW=XX(29:42);
+% deltZ=XX(25:38);
-deltU=XX(43:56);
+% deltW=XX(39:52);
-deltX=XX(57:70);
+% deltL=XX(53:66);
-deltY=XX(71:80);
+% deltU=XX(67:80);
-
+deltX=XX(1:ContrlCount);
+k1=ContrlCount+2*Busnum;
+deltY=XX(ContrlCount+1:k1);
+k2=k1;
+k1=k2+RestraintCount;
+deltZ=XX(k2+1:k1);
+k2=k1;
+k1=k2+RestraintCount;
+deltW=XX(k2+1:k1);
+k2=k1;
+k1=k2+RestraintCount;
+deltL=XX(k2+1:k1);
+k2=k1;
+k1=k2+RestraintCount;
+deltU=XX(k2+1:k1);
 end

AssignXX1.asv

@@ -1,23 +0,0 @@
-function [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX1(XX,ContrlCount,RestraintCount,Busnum)
-% deltX=XX(1:14);
-% deltY=XX(15:24);
-% deltZ=XX(25:38);
-% deltW=XX(39:52);
-% deltL=XX(53:66);
-% deltU=XX(67:80);
-k1=0;
-k2=0;
-deltX=XX(1:ContrlCount);
-k1=ContrlCount+2*Busnum;
-deltY=XX(ContrlCount+1:,k1);
-k2=k1;
-k1=k2+RestraintCount
-deltZ=XX(k2+1,k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltW=XX(k2+1:k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltL=XX(53:66);
-deltU=XX(67:80);
-end

AssignXX1.m

@@ -1,23 +0,0 @@
-function [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX1(XX,ContrlCount,RestraintCount,Busnum)
-% deltX=XX(1:14);
-% deltY=XX(15:24);
-% deltZ=XX(25:38);
-% deltW=XX(39:52);
-% deltL=XX(53:66);
-% deltU=XX(67:80);
-deltX=XX(1:ContrlCount);
-k1=ContrlCount+2*Busnum;
-deltY=XX(ContrlCount+1:k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltZ=XX(k2+1:k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltW=XX(k2+1:k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltL=XX(k2+1:k1);
-k2=k1;
-k1=k2+RestraintCount;
-deltU=XX(k2+1:k1);
-end

FormAA.m

@@ -1,12 +0,0 @@
-function AA=FormAA(L_1Z,deltG,U_1W,Hcoma,deltH)
-tOnes=eye(14);
-tZeros=zeros(14);
-AA=[
-    tOnes,L_1Z,tZeros,tZeros,tZeros,zeros(14,10);
-    tZeros,tOnes,tZeros,tZeros,-deltG',zeros(14,10);
-    tZeros,tZeros,tOnes,U_1W,tZeros,zeros(14,10);
-    tZeros,tZeros,tZeros,tOnes,deltG',zeros(14,10);
-    tZeros,tZeros,tZeros,tZeros,Hcoma,deltH;
-    zeros(10,14),zeros(10,14),zeros(10,14),zeros(10,14),deltH',zeros(10,10);
-    ];
-end

FormAA1.m

@@ -1,17 +0,0 @@
-function AA=FormAA1(deltG,deltdeltF,ddh,ddg,deltH,Init_L,Init_U,Init_W,Init_Z,Busnum,PVi,PGi,RestraintCount,Balance)
-ContrlCount=size(PVi,1)+size(PGi,1)+Busnum*2;
-H=-deltdeltF+ddh;%+ddg;
-AA=[
-    H,deltH,deltG,deltG,zeros(ContrlCount,RestraintCount),zeros(ContrlCount,RestraintCount);
-    deltH',zeros(2*Busnum,2*Busnum),zeros(2*Busnum,RestraintCount),zeros(2*Busnum,RestraintCount),zeros(2*Busnum,RestraintCount),zeros(2*Busnum,RestraintCount);
-    deltG',zeros(RestraintCount,2*Busnum),zeros(RestraintCount,RestraintCount),zeros(RestraintCount,RestraintCount),-eye(RestraintCount,RestraintCount),zeros(RestraintCount,RestraintCount);
-    deltG',zeros(RestraintCount,2*Busnum),zeros(RestraintCount),zeros(RestraintCount),zeros(RestraintCount),eye(RestraintCount);
-    zeros(RestraintCount,ContrlCount),zeros(RestraintCount,2*Busnum),diag(Init_L),zeros(RestraintCount),diag(Init_Z),zeros(RestraintCount);
-    zeros(RestraintCount,ContrlCount),zeros(RestraintCount,2*Busnum),zeros(RestraintCount),diag(Init_U),zeros(RestraintCount),diag(Init_W);
-    ];
-%´¦Àíƽºâ½Úµã
-t=size(PVi,1)+size(PGi,1);
-AA(t+2*Balance-1,:)=0;
-AA(:,t+2*Balance-1)=0;
-AA(t+2*Balance-1,t+2*Balance-1)=1;
-end

FormYY.m

@@ -1,11 +1,10 @@
-function YY=FormYY(Init_L,Lul,Lz,Ly,Init_U,Luu,Lw,LxComa)
+function YY=FormYY1(Lul,Lz,Ly,Luu,Lw,Lx)
-t=[
+YY=[
-   -inv(diag(Init_L))*Lul;
+  Lx;
-   Lz;
-   -inv(diag(Init_U))*Luu;
-   -Lw;
-   LxComa;
   -Ly;
+  -Lz;
+  -Lw;
+  -Lul;
+  -Luu;  
 ];
-YY=t;
 end

FormYY1.m

@@ -1,10 +0,0 @@
-function YY=FormYY1(Lul,Lz,Ly,Luu,Lw,Lx)
-YY=[
-  Lx;
-  -Ly;
-  -Lz;
-  -Lw;
-  -Lul;
-  -Luu;  
-];
-end

OPF.m

@@ -36,7 +36,7 @@ while(abs(Gap)>Precision)
     %% 形成海森阵
     deltdeltF=func_deltdeltF(PVi,wG,wD,ContrlCount);
     %% 形成ddHy
-    ddh=func_ddh3(Volt,Init_Y,Busnum,PVi,PGi,Y,UAngel,r,c,Angle,Loadi,ContrlCount);
+    ddh=func_ddh(Volt,Init_Y,Busnum,PVi,PGi,Y,UAngel,r,c,Angle,Loadi,ContrlCount);
     %%  开始构建ddg
     ddg=func_ddg(PGi,PVi,Busnum,RestraintCount,Loadi);
     %%  开始构建deltF
@@ -51,11 +51,11 @@ while(abs(Gap)>Precision)
     Lz=FormLz(Mat_G,Init_L,GenL,Busnum,PVQL,PD0,Loadi);
     Lw=FormLw(Mat_G,Init_U,GenU,Busnum,PVQU,PD0,Loadi);
     Lx=FormLx(deltF,deltH,Init_Y,deltG,Init_Z,Init_W);
-    YY=FormYY1(Lul,Lz,Ly,Luu,Lw,Lx);
+    YY=FormYY(Lul,Lz,Ly,Luu,Lw,Lx);
     %% 开始解方程
     XX=SolveIt(deltF,deltG,Init_L,Init_Z,Init_U,Init_W,deltdeltF,ddh,ddg,deltH,Init_Y,Ly,Lz,ContrlCount,Lw,Lul,Luu,RestraintCount,Lx,Balance,PVi,PGi,Busnum,Loadi);
     %%取各分量
-    [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX1(XX,ContrlCount,RestraintCount,Busnum);
+    [deltZ,deltL,deltW,deltU,deltX,deltY]=AssignXX(XX,ContrlCount,RestraintCount,Busnum);
     [Init_Z,Init_L,Init_W,Init_U,Init_Y,PG,QG,Volt,UAngel,PD]=Modification(Init_Z,Init_L,Init_W,Init_U,Init_Y,deltZ,deltL,deltW,deltU,deltX,deltY,PG,QG,Volt,UAngel,PVi,ContrlCount,Balance,Busnum,PGi,PD,Loadi);
     Gap=(Init_L*Init_Z'-Init_U*Init_W');
     KK=KK+1;

func_ddh.asv

@@ -1,185 +0,0 @@
-function ddh=func_ddh(AngleIJMat,GB,Volt,Init_Y,Busnum)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
-t1=-Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
-t3=repmat(Init_Y,size(Init_Y,2),1);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@
-%% deltaP/deltaThyta_deltaThyta 对角元素
-t1=sum(-dPidTidTj_2,2);
-t2=diag(t1'.*Init_Y(1:2:size(Init_Y,2)));%乘y的系数
-t3=sum(-dPidTidTj_2,1);
-t4=diag(t3.*Init_Y(1:2:size(Init_Y,2)));%乘y的系数
-dPdTidTi=t2+t4;%%最终对角元素 @@@
-%% deltaP/deltaThytai_dVi 对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t1-diag(t2);%去掉了对角元素的
-t4=sum(t3,2);
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidVi=diag(t4);
-dPidTjdVj=-t3;
-t6=sum(dPidTjdVj,1);
-t6=t6.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@
-%% deltaP/deltaThytai_dVj 非对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=t2';
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@
-%% deltaP/dVi_deltaThytaj 非对角元素
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidVidTj=t1-diag(diag(t1));
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(diag(t0));
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-%t1=-Volt'*Volt;
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=dQidTidTj-diag(diag(dQidTidTj));%去对角元素
-t2=sum(t1,2);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-%dQidTidTi=diag(t3);
-dQidTidTi=-diag(t3);
-t1=-Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t6=t4.*t5;
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-%t1=-Volt;
-t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=-Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*t
-t2=t1'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t2);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=sum(t2,1);
-t4=t3.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQjdTidVi=diag(t4);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=-real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(4,14);
-    zeros(2*5,4),AQi+APi;
-];
-ddh=t;
-end

func_ddh.m

@@ -1,187 +1,55 @@
-function ddh=func_ddh(AngleIJMat,GB,Volt,Init_Y,Busnum)
+function ddh=func_ddh3(Volt,Init_Y,Busnum,PVi,PGi,Y,UAngel,r,c,Angle,Loadi,ContrlCount)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
+%决定用循环重写
-t1=-Volt'*Volt;
+%ContrlCount=size(PVi,1)+size(PGi,1)+size(Loadi,1)+Busnum*2;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
+
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
+%AngleIJ=AngleIJMat-angle(GB);
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
+mat_AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
+mat_INV_AngleIJ=mat_AngleIJ';
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
+yP=Init_Y(1:size(Init_Y,2)/2);%暂时改这里  20111227
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
+yQ=Init_Y(size(Init_Y,2)/2+1:size(Init_Y,2));%暂时改这里  20111227
-t3=t1.*t2;
+t1=-sparse(1:Busnum,1:Busnum,Y.*cos(mat_INV_AngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
+t2=sparse(1:Busnum,1:Busnum,sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum)*Y.*cos(mat_AngleIJ);
-t3=repmat(Init_Y,size(Init_Y,2),1);
+t3=(t1+t2)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
+t4=-(sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum) -sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*cos(mat_INV_AngleIJ) )*sparse(1:Busnum,1:Busnum,sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@
+ddPdTdT=t3+t4;%ok1
-%% deltaP/deltaThyta_deltaThyta 对角元素
+t1=(-sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)+sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*sin(mat_INV_AngleIJ) )*sparse(1:Busnum,1:Busnum,yP,Busnum,Busnum);
-t1=sum(-dPidTidTj_2,2);
+t2= -sparse(1:Busnum,1:Busnum, sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP' ,Busnum,Busnum)*Y.*sin(mat_AngleIJ)+sparse(1:Busnum,1:Busnum,Y.*sin(mat_INV_AngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-t2=diag(t1'.*Init_Y(1:2:size(Init_Y,2)));%乘y的系数
+ddPdVdT=t1+t2;%ok1
-t3=sum(-dPidTidTj_2,1);
+t1=diag( Y.*sin(mat_INV_AngleIJ)*diag(Volt)*yP');
-t4=diag(t3.*Init_Y(1:2:size(Init_Y,2)));%乘y的系数
+t2=diag(yP)*Y.*sin(mat_AngleIJ)*diag(Volt);
-dPdTidTi=t2+t4;%%最终对角元素 @@@
+t3=-diag(yP)*diag(Y.*sin(mat_AngleIJ)*Volt');
-%% deltaP/deltaThytai_dVi 对角元素
+t4=-Y.*sin(mat_INV_AngleIJ)*diag( diag(Volt)*yP' );
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
+ddPdTdV=t1+t2+t3+t4;%存疑与我的不一样
-t2=diag(t1);
+t1=Y.*cos(mat_INV_AngleIJ)*diag(yP);
-t3=t1-diag(t2);%去掉了对角元素的
+t2=diag(yP)*Y.*cos(mat_AngleIJ);
-t4=sum(t3,2);
+ddPdVdV=t1+t2;
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
+t1=-diag(Y.*sin(mat_AngleIJ)*Volt');
-dPidTidVi=diag(t4);
+t2=diag(Volt)*Y.*sin(mat_INV_AngleIJ);
-dPidTjdVj=-t3;
+t3=(t1+t2)*diag( diag(Volt)*yQ' );
-t6=sum(dPidTjdVj,1);
+t4=-diag( diag(Volt)*yQ' )*Y.*sin(mat_AngleIJ);
-t6=t6.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
+
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@
+t5=diag(Y.*sin(mat_INV_AngleIJ)*diag(Volt)*yQ');
-%% deltaP/deltaThytai_dVj 非对角元素
+t6=-(t4+t5)*diag(Volt);
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
+ddQdTdT=t3+t6;%ok1
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
+t1=(diag(Y.*cos(mat_AngleIJ)*Volt')-diag(Volt)*Y.*cos(mat_INV_AngleIJ) )*diag(yQ);
-t2=repmat(Init_Y',1,size(Init_Y,2));
+t2=+diag( diag(Volt)*yQ' )*Y.*cos(mat_AngleIJ)-diag(Y.*cos(mat_INV_AngleIJ)*diag(Volt)*yQ');
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
+ddQdVdT=t1+t2;
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
+t1=Y.*cos(mat_INV_AngleIJ)*diag(diag(Volt)*yQ');
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
+t2=diag(yQ)*diag(Y.*cos(mat_AngleIJ)*Volt');
-t2=t2';
+t3=-diag(Y.*cos(mat_INV_AngleIJ)*diag(Volt)*yQ');
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
+t4=-diag(yQ)*Y.*cos(mat_AngleIJ)*diag(Volt);
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@
+ddQdTdV=t1+t2+t3+t4;
-%% deltaP/dVi_deltaThytaj 非对角元素
+t1=Y.*sin(mat_INV_AngleIJ)*diag(yQ);
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
+t2=diag(yQ)*Y.*sin(mat_AngleIJ);
-dPidVidTj=t1-diag(diag(t1));
+ddQdVdV=t1+t2;
-t2=repmat(Init_Y',1,size(Init_Y,2));
+t=[ddPdVdV+ddQdVdV,ddPdTdV+ddQdTdV ;
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
+   ddPdVdT+ddQdVdT,ddPdTdT+ddQdTdT;
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(t0);
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-%t1=-Volt'*Volt;
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=dQidTidTj-diag(diag(dQidTidTj));%去对角元素
-t2=sum(t1,2);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-%dQidTidTi=diag(t3);
-dQidTidTi=-diag(t3);
-t1=-Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-%t1=-Volt;
-t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=-Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*t1;
-t3=sum(t2,2);
-t4=t3'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t4);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t5=sum(t4,1);
-dQjdTidVi=diag(t5);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(4,14);
-    zeros(2*5,4),AQi+APi;
 ];
-ddh=t;
+sizePGi=size(PGi,1);
+sizePVi=size(PVi,1);
+sizeLoadi=size(Loadi,1);
+ddh=[
+    sparse(sizePGi+sizePVi+sizeLoadi,ContrlCount);
+    sparse(2*Busnum,sizePVi+sizePGi+sizeLoadi),-t;
+    ];
 end

func_ddh1.asv

@@ -1,203 +0,0 @@
-function ddh=func_ddh1(AngleIJMat,GB,Volt,Init_Y,Busnum)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
-t1=-Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
-t3=repmat(Init_Y,size(Init_Y,2),1);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@@@@
-%% deltaP/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=sum(t4,2);
-t6=t5'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidTi=diag(t6);
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=t2-diag(diag(t2));
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t4=t1.*t2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t5=sum(t4,1);
-dPidTjdTj=diag(t5);
-dPdTidTi=dPidTidTi+dPidTjdTj;%%最终对角元素 @@@@@@ 
-%% deltaP/deltaThytai_dVi 对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t1-diag(t2);%去掉了对角元素的
-t4=sum(t3,2);
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidVi=diag(t4);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t1=t1-diag(diag(t1));%去掉对角元素
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t6=sum(t3,1);
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@@@@
-%% deltaP/deltaThytai_dVj 非对角元素
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=t2';
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@@@
-%% deltaP/dVi_deltaThytaj 非对角元素
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidVidTj=t1-diag(diag(t1));
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(t0);
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-t1=-Volt'*Volt;
-%t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,2);
-dQidTidTi=diag(t7);
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-%t5=t5';
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-t1=-Volt;
-%t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*t1;
-t2=t2-diag(diag(t2));
-t3=sum(t2,2);
-t4=t3'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t4);
-t1=Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t5=sum(t4,1);
-dQjdTidVi=diag(t5);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@@@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=-t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@@@@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=-2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@@@
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @@@
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(4,14);
-    zeros(2*Busnum,2*size(PVi,1)),AQi+APi;
-];
-ddh=t;
-end

func_ddh1.m

@@ -1,204 +0,0 @@
-function ddh=func_ddh1(AngleIJMat,GB,Volt,Init_Y,Busnum,PVi)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
-ContrlCount=size(PVi,1)*2+Busnum*2;
-t1=-Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
-t3=repmat(Init_Y,size(Init_Y,2),1);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@@@@
-%% deltaP/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=sum(t4,2);
-t6=t5'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidTi=diag(t6);
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=t2-diag(diag(t2));
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t4=t1.*t2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t5=sum(t4,1);
-dPidTjdTj=diag(t5);
-dPdTidTi=dPidTidTi+dPidTjdTj;%%最终对角元素 @@@@@@ 
-%% deltaP/deltaThytai_dVi 对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t1-diag(t2);%去掉了对角元素的
-t4=sum(t3,2);
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidVi=diag(t4);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t1=t1-diag(diag(t1));%去掉对角元素
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t6=sum(t3,1);
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@@@@
-%% deltaP/deltaThytai_dVj 非对角元素
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=t2';
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@@@
-%% deltaP/dVi_deltaThytaj 非对角元素
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidVidTj=t1-diag(diag(t1));
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(t0);
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-t1=-Volt'*Volt;
-%t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,2);
-dQidTidTi=diag(t7);
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-%t5=t5';
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-t1=-Volt;
-%t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*t1;
-t2=t2-diag(diag(t2));
-t3=sum(t2,2);
-t4=t3'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t4);
-t1=Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t5=sum(t4,1);
-dQjdTidVi=diag(t5);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@@@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=-t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@@@@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=-2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@@@
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @@@
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(2*size(PVi,1),ContrlCount);
-    zeros(2*Busnum,2*size(PVi,1)),AQi+APi;
-];
-ddh=t;
-end

func_ddh2.asv

@@ -1,205 +0,0 @@
-function ddh=func_ddh2(AngleIJMat,GB,Volt,Init_Y,Busnum,PVi,PGi)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
-ContrlCount=size(PVi,1)+size(PGi,1)+Busnum*2;
-t1=-Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
-t3=repmat(Init_Y,size(Init_Y,2),1);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@@@@@
-%% deltaP/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=sum(t4,2);
-t6=t5'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidTi=diag(t6);
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=t1.*t2;
-t2=t2-diag(diag(t2));
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t4=t2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t5=sum(t4,1);
-dPidTjdTj=diag(t5);
-dPdTidTi=dPidTidTi+dPidTjdTj;%%最终对角元素 @@@@@@@ 
-%% deltaP/deltaThytai_dVi 对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t1-diag(t2);%去掉了对角元素的
-t4=sum(t3,2);
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidVi=diag(t4);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t1=t1-diag(diag(t1));%去掉对角元素
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t6=sum(t3,1);
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@@@@
-%% deltaP/deltaThytai_dVj 非对角元素
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=t2';
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@@@@
-%% deltaP/dVi_deltaThytaj 非对角元素
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidVidTj=t1-diag(diag(t1));
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(t0);
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-t1=-Volt'*Volt;
-%t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,2);
-dQidTidTi=diag(t7);
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-%t5=t5';
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-t1=-Volt;
-%t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@@@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*t1;
-t2=t2-diag(diag(t2));
-t3=sum(t2,2);
-t4=t3'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t4);
-t1=Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t5=sum(t4,1);
-dQjdTidVi=diag(t5);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@@@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=-t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@@@@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=-2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@@@
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @@@
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(size(PGi,1)+size(PVi,1),ContrlCount);
-    zeros(2*Busnum,size(PVi,1)+size(PGi,1)),AQi+APi;
-];
-ddh=t;
-end

func_ddh2.m

@@ -1,206 +0,0 @@
-function ddh=func_ddh2(AngleIJMat,GB,Volt,Init_Y,Busnum,PVi,PGi)
-%% deltaPi/deltaThytai_deltaThytaj 非对角元素
-ContrlCount=size(PVi,1)+size(PGi,1)+Busnum*2;
-t1=-Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-dPdTidTj=t1.*t2; %%(保留了对角元素的)
-dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%去掉了对角元素的
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-dPidTidTj_2=dPidTidTj_2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-dPjdTidTj=t3-diag(diag(t3));%去掉了对角元素的
-t3=repmat(Init_Y,size(Init_Y,2),1);
-dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidTj=dPidTidTj_2+dPjdTidTj;%最终非对角元素 @@@@@@@
-%% deltaP/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=sum(t4,2);
-t6=t5'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidTi=diag(t6);
-t1=Volt'*Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=t1.*t2;
-t2=t2-diag(diag(t2));
-t3=repmat(Init_Y',1,size(Init_Y,2));%乘y的系数
-t4=t2.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));
-t5=sum(t4,1);
-dPidTjdTj=diag(t5);
-dPdTidTi=dPidTidTi+dPidTjdTj;%%最终对角元素 @@@@@@@ 
-%% deltaP/deltaThytai_dVi 对角元素
-t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t1-diag(t2);%去掉了对角元素的
-t4=sum(t3,2);
-t4=t4'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidTidVi=diag(t4);
-t1=-Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t1=t1-diag(diag(t1));%去掉对角元素
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=t1.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t6=sum(t3,1);
-dPdTidVi=dPidTidVi+diag(t6);%%最终对角元素 @@@@@@
-%% deltaP/deltaThytai_dVj 非对角元素
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidTidVj=t1-diag(diag(t1));%%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdTidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=t2';
-dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdTidVj=dPidTidVj+dPjdTidVj;%最终非对角元素 @@@@@@
-%% deltaP/dVi_deltaThytaj 非对角元素
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-dPidVidTj=t1-diag(diag(t1));
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidTj=dPidVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
-dPjdVidTj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidTj=dPjdVidTj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidTj=dPidVidTj+dPjdVidTj;%最终非对角元素 @@@@@
-%% deltaPi/dVi_deltaThyta 对角元素
-dPdVidTi=dPdTidVi;%最终对角元素 @@
-%% deltaP/dVi_dVj 非对角元素
-t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-dPidVidVj=t1-diag(diag(t1));%去掉对角元素的
-t2=repmat(Init_Y',1,size(Init_Y,2));
-dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-t1=-(real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat));
-dPjdVidVj=t1-diag(diag(t1));
-t2=t2';
-dPjdVidVj=dPjdVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%乘y的系数
-dPdVidVj=dPidVidVj+dPjdVidVj;%最终非对角元素 @@@@@@
-%% deltaP/dVi_dVi 对角元素
-t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t1=diag(t0);
-t2=t1'.*Init_Y(1:2:size(Init_Y,2));%乘y的系数
-dPidVidVi=-2*diag(t2);
-dPidVjdVj=0;
-dPdVidVi=dPidVidVi+dPidVjdVj;%最终对角元素 @@@@@
-%% 生成APi
-APi=zeros(2*Busnum,2*Busnum);
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%非对角 TT
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%非对角 TV
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%非对角 VT
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%非对角 VV
-APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%对角
-APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%对角
-APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%对角
-APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%对角
-%% deltaQ/deltaThyta_deltaThyta 非对角元素
-t1=-Volt'*Volt;
-%t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-dQidTidTj=t1.*t2;%不去掉对角元素了，反正最后是要修正的
-t3=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-dQjdTidTj=-t1.*t2;
-t3=t3';
-dQjdTidTj=dQjdTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidTj=dQidTidTj+dQjdTidTj;%最终非对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaThyta 对角元素
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-t5=repmat(Init_Y',1,size(Init_Y,2));
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,2);
-dQidTidTi=diag(t7);
-t1=Volt'*Volt;
-t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t3=t1.*t2;
-t4=t3-diag(diag(t3));
-%t5=t5';
-t6=t4.*t5(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t7=sum(t6,1);
-dQjdTidTi=diag(t7);
-dQdTidTi=dQjdTidTi+dQidTidTi;%最终对角元素 @@@@@
-%% deltaQ/deltaThyta_deltaV 非对角元素
-t1=-Volt;
-%t1=Volt;
-t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t3=t1'*ones(1,Busnum).*t2;
-t4=repmat(Init_Y',1,size(Init_Y,2));
-dQidTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t2=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t3=Volt'*ones(1,Busnum).*t2;
-t4=t4';
-dQjdTidVj=t3.*t4(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQdTidVj=dQidTidVj+dQjdTidVj;%最终非对角元素 @@@@@@
-%% deltaQ/deltaThyta_deltaV 对角元素
-%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%去掉对角元素
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*t1;
-t2=t2-diag(diag(t2));
-t3=sum(t2,2);
-t4=t3'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidTidVi=diag(t4);
-t1=Volt'*ones(1,Busnum).*(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
-t2=t1-diag(diag(t1));
-t3=repmat(Init_Y',1,size(Init_Y,2));
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t5=sum(t4,1);
-dQjdTidVi=diag(t5);
-dQdTidVi=dQidTidVi+dQjdTidVi;% @@@@
-%% deltaQ/deltaV_deltaV 非对角元素
-t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-t2=repmat(Init_Y',1,size(Init_Y,2));
-t3=-t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidVj=t3;
-t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t2=t2';
-t3=t1.*t2(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidVj=t3;
-dQdVidVj=dQidVidVj+dQjdVidVj;% @@@@@@
-%% deltaQ/deltaV_deltaV 对角元素
-t1=-2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
-t2=diag(t1);
-t3=t2'.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-dQidVidVi=diag(t3);
-% t1=-real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
-% t2=diag(t1);
-% t3=t1-diag(t2);
-% t4=sum(t3,1);
-% t5=t4.*Init_Y(2:2:size(Init_Y,2));%乘y的系数
-% dQjdVidVi=diag(t5);
-dQjdVidVi=0;
-dQdVidVi=dQidVidVi+dQjdVidVi; % @@@@@ 
-%% deltaQ/deltaV_deltaThyta 非对角元素
-%t1=real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat);
-t1=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
-t2=ones(Busnum,1)*Volt.*(t1);
-t3=repmat(Init_Y',1,size(Init_Y,2));
-%t4=t2'.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQidVidTj=t4;
-t1=real(GB).*cos(AngleIJMat)-imag(GB).*sin(AngleIJMat);
-t2=-ones(Busnum,1)*Volt.*(t1);
-t3=t3';
-t4=t2.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%乘y的系数
-dQjdVidTj=t4;
-dQdVidTj=dQidVidTj+dQjdVidTj;% @@@@
-%% deltaQ/deltaV_deltaThyta 对角元素
-dQdVidTi=dQdTidVi;% @
-%% 生成AQi
-AQi=zeros(2*Busnum,2*Busnum);
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%非对角 TT
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%非对角 TV
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%非对角 VT
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%非对角 VV
-AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%对角
-AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%对角
-AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%对角
-AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%对角
-%% 生成ddh
-t=[zeros(size(PGi,1)+size(PVi,1),ContrlCount);
-    zeros(2*Busnum,size(PVi,1)+size(PGi,1)),AQi+APi;
-];
-ddh=t;
-end

func_ddh3.asv

@@ -1,52 +0,0 @@
-function ddh=func_ddh3(AngleIJMat,GB,Volt,Init_Y,Busnum,PVi,PGi,Y)
-%决定用循环重写
-ContrlCount=size(PVi,1)+size(PGi,1)+Busnum*3;
-
-AngleIJ=AngleIJMat-angle(GB);
-yP=Init_Y(1:size(Init_Y,2)/2);%暂时改这里  20111227
-yQ=Init_Y(size(Init_Y,2)/2+1:size(Init_Y,2));%暂时改这里  20111227
-t1=-diag(Y.*cos(AngleIJ')*diag(Volt)*yP');
-t2=diag(diag(Volt)*yP')*Y.*cos(AngleIJ);
-t3=(t1+t2)*diag(Volt);
-t4=-(diag(Y.*cos(AngleIJ)*Volt') -diag(Volt)*Y.*cos(AngleIJ') )*diag(diag(Volt)*yP');
-ddPdTdT=t3+t4;%ok1
-t1=(-diag(Y.*sin(AngleIJ)*Volt')+diag(Volt)*Y.*sin(AngleIJ') )*diag(yP);
-t2= -diag( diag(Volt)*yP' )*Y.*sin(AngleIJ)+diag(Y.*sin(AngleIJ')*diag(Volt)*yP');
-ddPdVdT=t1+t2;%ok1
-t1=diag( Y.*sin(AngleIJ')*diag(Volt)*yP');
-t2=diag(yP)*Y.*sin(AngleIJ)*diag(Volt);
-t3=-diag(yP)*diag(Y.*sin(AngleIJ)*Volt');
-t4=-Y.*sin(AngleIJ')*diag( diag(Volt)*yP' );
-ddPdTdV=t1+t2+t3+t4;%存疑与我的不一样
-t1=Y.*cos(AngleIJ')*diag(yP);
-t2=diag(yP)*Y.*cos(AngleIJ);
-ddPdVdV=t1+t2;
-t1=-diag(Y.*sin(AngleIJ)*Volt');
-t2=diag(Volt)*Y.*sin(AngleIJ');
-t3=(t1+t2)*diag( diag(Volt)*yQ' );
-t4=-diag( diag(Volt)*yQ' )*Y.*sin(AngleIJ);
-
-t5=diag(Y.*sin(AngleIJ')*diag(Volt)*yQ');
-t6=-(t4+t5)*diag(Volt);
-ddQdTdT=t3+t6;%ok1
-t1=(diag(Y.*cos(AngleIJ)*Volt')-diag(Volt)*Y.*cos(AngleIJ') )*diag(yQ);
-t2=+diag( diag(Volt)*yQ' )*Y.*cos(AngleIJ)-diag(Y.*cos(AngleIJ')*diag(Volt)*yQ');
-ddQdVdT=t1+t2;
-t1=Y.*cos(AngleIJ')*diag(diag(Volt)*yQ');
-t2=diag(yQ)*diag(Y.*cos(AngleIJ)*Volt');
-t3=-diag(Y.*cos(AngleIJ')*diag(Volt)*yQ');
-t4=-diag(yQ)*Y.*cos(AngleIJ)*diag(Volt);
-ddQdTdV=t1+t2+t3+t4;
-t1=Y.*sin(AngleIJ')*diag(yQ);
-t2=diag(yQ)*Y.*sin(AngleIJ);
-ddQdVdV=t1+t2;
-%% %%
-
-t=[ddPdVdV+ddQdVdV,ddPdTdV+ddQdTdV ;
-   ddPdVdT+ddQdVdT,ddPdTdT+ddQdTdT;
-];
-t=[zeros(size(PGi,1)+size(PVi,1)+Busnum,ContrlCount);
-    zeros(2*Busnum,size(PVi,1)+size(PGi,1)+Busnum),-t;
-];
-ddh=t;
-end

func_ddh3.m

@@ -1,55 +0,0 @@
-function ddh=func_ddh3(Volt,Init_Y,Busnum,PVi,PGi,Y,UAngel,r,c,Angle,Loadi,ContrlCount)
-%决定用循环重写
-%ContrlCount=size(PVi,1)+size(PGi,1)+size(Loadi,1)+Busnum*2;
-
-%AngleIJ=AngleIJMat-angle(GB);
-mat_AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
-mat_INV_AngleIJ=mat_AngleIJ';
-yP=Init_Y(1:size(Init_Y,2)/2);%暂时改这里  20111227
-yQ=Init_Y(size(Init_Y,2)/2+1:size(Init_Y,2));%暂时改这里  20111227
-t1=-sparse(1:Busnum,1:Busnum,Y.*cos(mat_INV_AngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-t2=sparse(1:Busnum,1:Busnum,sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum)*Y.*cos(mat_AngleIJ);
-t3=(t1+t2)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-t4=-(sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum) -sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*cos(mat_INV_AngleIJ) )*sparse(1:Busnum,1:Busnum,sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-ddPdTdT=t3+t4;%ok1
-t1=(-sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)+sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*sin(mat_INV_AngleIJ) )*sparse(1:Busnum,1:Busnum,yP,Busnum,Busnum);
-t2= -sparse(1:Busnum,1:Busnum, sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP' ,Busnum,Busnum)*Y.*sin(mat_AngleIJ)+sparse(1:Busnum,1:Busnum,Y.*sin(mat_INV_AngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*yP',Busnum,Busnum);
-ddPdVdT=t1+t2;%ok1
-t1=diag( Y.*sin(mat_INV_AngleIJ)*diag(Volt)*yP');
-t2=diag(yP)*Y.*sin(mat_AngleIJ)*diag(Volt);
-t3=-diag(yP)*diag(Y.*sin(mat_AngleIJ)*Volt');
-t4=-Y.*sin(mat_INV_AngleIJ)*diag( diag(Volt)*yP' );
-ddPdTdV=t1+t2+t3+t4;%存疑与我的不一样
-t1=Y.*cos(mat_INV_AngleIJ)*diag(yP);
-t2=diag(yP)*Y.*cos(mat_AngleIJ);
-ddPdVdV=t1+t2;
-t1=-diag(Y.*sin(mat_AngleIJ)*Volt');
-t2=diag(Volt)*Y.*sin(mat_INV_AngleIJ);
-t3=(t1+t2)*diag( diag(Volt)*yQ' );
-t4=-diag( diag(Volt)*yQ' )*Y.*sin(mat_AngleIJ);
-
-t5=diag(Y.*sin(mat_INV_AngleIJ)*diag(Volt)*yQ');
-t6=-(t4+t5)*diag(Volt);
-ddQdTdT=t3+t6;%ok1
-t1=(diag(Y.*cos(mat_AngleIJ)*Volt')-diag(Volt)*Y.*cos(mat_INV_AngleIJ) )*diag(yQ);
-t2=+diag( diag(Volt)*yQ' )*Y.*cos(mat_AngleIJ)-diag(Y.*cos(mat_INV_AngleIJ)*diag(Volt)*yQ');
-ddQdVdT=t1+t2;
-t1=Y.*cos(mat_INV_AngleIJ)*diag(diag(Volt)*yQ');
-t2=diag(yQ)*diag(Y.*cos(mat_AngleIJ)*Volt');
-t3=-diag(Y.*cos(mat_INV_AngleIJ)*diag(Volt)*yQ');
-t4=-diag(yQ)*Y.*cos(mat_AngleIJ)*diag(Volt);
-ddQdTdV=t1+t2+t3+t4;
-t1=Y.*sin(mat_INV_AngleIJ)*diag(yQ);
-t2=diag(yQ)*Y.*sin(mat_AngleIJ);
-ddQdVdV=t1+t2;
-t=[ddPdVdV+ddQdVdV,ddPdTdV+ddQdTdV ;
-   ddPdVdT+ddQdVdT,ddPdTdT+ddQdTdT;
-];
-sizePGi=size(PGi,1);
-sizePVi=size(PVi,1);
-sizeLoadi=size(Loadi,1);
-ddh=[
-    sparse(sizePGi+sizePVi+sizeLoadi,ContrlCount);
-    sparse(2*Busnum,sizePVi+sizePGi+sizeLoadi),-t;
-    ];
-end

func_deltH.m

@@ -3,6 +3,6 @@ function deltH=func_deltH(Busnum,Volt,PVi,Y,PGi,UAngel,r,c,Angle,Loadi)
 dH_dPg=sparse(1:size(PGi,1),PGi,ones(size(PGi,1),1),size(PGi,1),2*Busnum);
 dH_dQr=sparse(1:size(PVi,1),PVi+Busnum,ones(size(PVi,1),1),size(PVi,1),2*Busnum);
 dH_dPD=[sparse(1:size(Loadi,1),Loadi,-ones(size(Loadi,1),1),size(Loadi,1),Busnum) sparse(size(Loadi,1),Busnum)];
-dH_dx = jacobian_M3(Busnum,Volt,Y,Angle,UAngel,r,c);  %形成雅克比矩阵
+dH_dx = jacobian_M(Busnum,Volt,Y,Angle,UAngel,r,c);  %形成雅克比矩阵
 deltH=[dH_dPg;dH_dQr;dH_dPD;dH_dx'];
 end

jacobian_M.asv

@@ -1,60 +0,0 @@
-function Jacob=jacobian_M(Busnum,Volt,Y,Angle,AngleIJMat)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-temp1=-Volt'*Volt.*Y;
-AngleIJ=AngleIJMat-Angle;
-temp11=Volt'*ones(1,Busnum).*Y; 
-temp2=sum(temp1.*sin(AngleIJ),2); 
-temp22 = sum(temp11.*sin(AngleIJ),2); 
-temp3 = sum(temp1.*cos(AngleIJ),2);
-temp33 = sum(temp11.*cos(AngleIJ),2);
-temp4=diag(temp2);
-temp44=diag(temp22);
-temp5=diag(temp3);
-temp55=diag(temp33);
-%计算Lii的累加项
-t1=ones(Busnum,1)*Volt.*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-
-t4=diag(t2);
-H = temp1.*sin(AngleIJ)-temp4;%
-L = -temp11.*sin(AngleIJ);%
-%L(1:Busnum,1:Busnum)=-temp44+;
-L=L-t3.*
-N=-temp11.*cos(AngleIJ);%
-N(1:Busnum,1:Busnum)=-temp55-diag(diag(temp11.*cos(Angle) ) );
-J = -temp1.*cos(AngleIJ)+temp5;%
-%%
-
-
-%Q = Q0+temp2';                                                                              %求有功分量P
-%P = P0+temp3';                                                                               %求无功分量Q
-%% 处理平衡节点和pv节点
-% H(:,Balance) = 0;                                                     
-% H(Balance,:) = 0;
-% H(Balance,Balance) = 100;                                                           % 平衡节点对应的对角元素置一个有限数
-% L(:,PVi) = 0;
-% L(PVi,:) = 0;
-% L = L+sparse(PVi,PVi,ones(1,length(PVi)),Busnum,Busnum); % PV节点对应的对角元素置为1
-% J(:,Balance) = 0;
-% J(PVi,:) = 0;
-% N(:,PVi) = 0;
-% N(Balance,:) = 0; 
-% Q(PVi) = 0;                                                                                       % 将pv节点的无功不平衡分量置零   
-% P(Balance) = 0;                                                                               % 平衡节点的有功功率不平衡分量置零
-%% 合成PQ和雅可比矩阵
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% t1(1:)
-% PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-%Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-Jacob=t1;
-end

jacobian_M.m

@@ -1,61 +1,20 @@
-function Jacob=jacobian_M(Busnum,Volt,Y,Angle,AngleIJMat)   
+function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,UAngel,r,c)   
 %**************************************************************************
 %  程序功能 : 子函数——形成雅可比矩阵Jacobian
 %  编    者： 
 %  编制时间：2010.12
 %**************************************************************************
+%%²ÎÕÕͼÊé¹İ6Â¥µÄÊé±àĞ´
 %% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-temp1=-Volt'*Volt.*Y;
+AngleIJ=UAngel(r)-UAngel(c)-Angle';
-AngleIJ=AngleIJMat-Angle;
+mat_AngleIJ=sparse(r,c,AngleIJ,Busnum,Busnum);
-temp11=Volt'*ones(1,Busnum).*Y; 
+mat_IvAngleIJ=mat_AngleIJ';
-temp2=sum(temp1.*sin(AngleIJ),2); 
+H=sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)-sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-temp22 = sum(temp11.*sin(AngleIJ),2); 
+N=-sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)+sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-temp3 = sum(temp1.*cos(AngleIJ),2);
+J=sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-temp33 = sum(temp11.*cos(AngleIJ),2);
+L=sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-temp4=diag(temp2);
+t1=[J,L;
-temp44=diag(temp22);
+    H,N;
-temp5=diag(temp3);
+]';
-temp55=diag(temp33);
+Jacob=-t1;
-%计算Lii的累加项
-t1=ones(Busnum,1)*Volt.*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-t4=diag(t2);
-t5=diag(t3);
-H = temp1.*sin(AngleIJ)-temp4;%
-L = -temp11.*sin(AngleIJ);%
-%L(1:Busnum,1:Busnum)=-temp44+;
-L=L-t4;
-N=-temp11.*cos(AngleIJ);%
-%N(1:Busnum,1:Busnum)=-temp55-diag(diag(temp11.*cos(Angle) ) );
-N=N-t5;
-J = -temp1.*cos(AngleIJ)+temp5;%
-%%
-
-
-%Q = Q0+temp2';                                                                              %求有功分量P
-%P = P0+temp3';                                                                               %求无功分量Q
-%% 处理平衡节点和pv节点
-% H(:,Balance) = 0;                                                     
-% H(Balance,:) = 0;
-% H(Balance,Balance) = 100;                                                           % 平衡节点对应的对角元素置一个有限数
-% L(:,PVi) = 0;
-% L(PVi,:) = 0;
-% L = L+sparse(PVi,PVi,ones(1,length(PVi)),Busnum,Busnum); % PV节点对应的对角元素置为1
-% J(:,Balance) = 0;
-% J(PVi,:) = 0;
-% N(:,PVi) = 0;
-% N(Balance,:) = 0; 
-% Q(PVi) = 0;                                                                                       % 将pv节点的无功不平衡分量置零   
-% P(Balance) = 0;                                                                               % 平衡节点的有功功率不平衡分量置零
-%% 合成PQ和雅可比矩阵
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% t1(1:)
-% PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-%Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-Jacob=t1;
 end

jacobian_M1.m

@@ -1,84 +0,0 @@
-function [Jacob]=jacobian_M1(Busnum,Volt,Y,Angle,AngleIJMat)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-%Volt(PVi) = PVu;
-temp1=Volt'*Volt.*Y;
-AngleIJ=AngleIJMat-Angle;
-temp2=sum(temp1.*sin(AngleIJ),2); 
-temp3 = sum(temp1.*cos(AngleIJ),2);
-temp4=diag(temp2);
-temp5=diag(temp3);
-%t1=Volt'*ones(1,Busnum).*Y;
-t1=ones(Busnum,1)*Volt.*Y;
-%t1=Volt'*Volt.*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-t4=diag(t2);
-t5=diag(t3);
-H = -temp1.*sin(AngleIJ)+temp4;%
-L = -t1.*sin(AngleIJ);%
-%L(1:Busnum,1:Busnum)=-temp44+;
-L=L-t4;
-N=-t1.*cos(AngleIJ);%
-%N(1:Busnum,1:Busnum)=-temp55-diag(diag(temp11.*cos(Angle) ) );
-N=N-t5;
-J = temp1.*cos(AngleIJ)-temp5;%
-
-
-%%%%
-%t=diag(Volt);
-%N=t*N;%*t;
-%L=t*L;%*t;
-
-
-%%%%
-%%
-                                                                             %求无功分量Q
-                                                                             % 平衡节点的有功功率不平衡分量置零
-%% 合成PQ和雅可比矩阵
-
-% t1(1:)
-                                                                           % 形成功率不平衡分量列向量
-%Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-
-
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-Jacob=t1;
-end
-
-
-
-
-% function Jacob=jacobian_M1(Busnum,PVi,PVu,U,Uangle,Y,Angle,r,c) 
-% AngleIJ = Uangle(r) - Uangle(c)- Angle';
-% U(PVi) = PVu;
-% temp1= -sparse(1:Busnum,1:Busnum,U,Busnum,Busnum)*Y*sparse(1:Busnum,1:Busnum,U,Busnum,Busnum);                                                          % 计算雅克比矩阵可利用的中间变量
-% temp2 = sum(temp1.*sparse(r,c,sin(AngleIJ)),2);                     
-% temp3 = sum(temp1.*sparse(r,c,cos(AngleIJ)),2);
-% temp4=sparse(1:Busnum,1:Busnum,temp2,Busnum,Busnum);
-% temp5=sparse(1:Busnum,1:Busnum,temp3,Busnum,Busnum);
-% H = temp1.*sparse(r,c,sin(AngleIJ))-temp4;
-% L = temp1.*sparse(r,c,sin(AngleIJ))+temp4;
-% N = temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% J = -temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% 
-% 
-% t1=zeros(2*Busnum);
-% t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-% t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-% t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-% t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% % t1(1:)
-% % PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-% %Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-% Jacob=t1;
-% 
-% end

jacobian_M2.m

@@ -1,84 +0,0 @@
-function [Jacob]=jacobian_M2(Busnum,Volt,Y,Angle,AngleIJMat)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-temp1=Volt'*Volt.*Y;
-AngleIJ=AngleIJMat-Angle;
-temp2=sum(temp1.*sin(AngleIJ),2); 
-temp3 = sum(temp1.*cos(AngleIJ),2);
-temp4=diag(temp2);
-temp5=diag(temp3);
-%t1=Volt'*ones(1,Busnum).*Y;
-t1=ones(Busnum,1)*Volt.*Y;
-t11=Volt'*ones(1,Busnum).*Y;
-%t1=Volt'*Volt.*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-t4=diag(t2);
-t5=diag(t3);
-H = -temp1.*sin(AngleIJ)+temp4;%
-L = -t11.*sin(AngleIJ);%
-%L(1:Busnum,1:Busnum)=-temp44+;
-L=L-t4;
-N=-t11.*cos(AngleIJ);%
-%N(1:Busnum,1:Busnum)=-temp55-diag(diag(temp11.*cos(Angle) ) );
-N=N-t5;
-J = temp1.*cos(AngleIJ)-temp5;%
-
-
-%%%%
-%t=diag(Volt);
-%N=t*N;%*t;
-%L=t*L;%*t;
-
-
-%%%%
-%%
-                                                                             %求无功分量Q
-                                                                             % 平衡节点的有功功率不平衡分量置零
-%% 合成PQ和雅可比矩阵
-
-% t1(1:)
-                                                                           % 形成功率不平衡分量列向量
-%Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-
-
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-Jacob=t1;
-end
-
-
-
-
-% function Jacob=jacobian_M1(Busnum,PVi,PVu,U,Uangle,Y,Angle,r,c) 
-% AngleIJ = Uangle(r) - Uangle(c)- Angle';
-% U(PVi) = PVu;
-% temp1= -sparse(1:Busnum,1:Busnum,U,Busnum,Busnum)*Y*sparse(1:Busnum,1:Busnum,U,Busnum,Busnum);                                                          % 计算雅克比矩阵可利用的中间变量
-% temp2 = sum(temp1.*sparse(r,c,sin(AngleIJ)),2);                     
-% temp3 = sum(temp1.*sparse(r,c,cos(AngleIJ)),2);
-% temp4=sparse(1:Busnum,1:Busnum,temp2,Busnum,Busnum);
-% temp5=sparse(1:Busnum,1:Busnum,temp3,Busnum,Busnum);
-% H = temp1.*sparse(r,c,sin(AngleIJ))-temp4;
-% L = temp1.*sparse(r,c,sin(AngleIJ))+temp4;
-% N = temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% J = -temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% 
-% 
-% t1=zeros(2*Busnum);
-% t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-% t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-% t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-% t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% % t1(1:)
-% % PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-% %Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-% Jacob=t1;
-% 
-% end

jacobian_M3.asv

@@ -1,20 +0,0 @@
-function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat,UAngel,r,c)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%%参照图书馆6楼的书编写
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-AngleIJ=UAngel(r)-UAngel(c)-Angle';
-mat_AngleIJ=sparse(r,c,AngleIJ,Busnum,Busnum);
-mat_IvAngleIJ=mat_AngleIJ';
-H=sparse(1:Volt)*Y.*sin(mat_IvAngleIJ)*diag(Volt)-diag(Y.*sin(mat_AngleIJ)*Volt')*diag(Volt);
-N=-diag(Volt)*Y.*cos(mat_IvAngleIJ)*diag(Volt)+diag(Y.*cos(mat_AngleIJ)*Volt')*diag(Volt);
-J=diag(Y.*cos(mat_AngleIJ)*Volt')+Y.*cos(mat_IvAngleIJ)*diag(Volt);
-L=diag(Y.*sin(mat_AngleIJ)*Volt')+Y.*sin(mat_IvAngleIJ)*diag(Volt);
-t1=[J,L;
-    H,N;
-]';
-Jacob=-t1;
-end

jacobian_M3.m

@@ -1,20 +0,0 @@
-function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,UAngel,r,c)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%%参照图书馆6楼的书编写
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-AngleIJ=UAngel(r)-UAngel(c)-Angle';
-mat_AngleIJ=sparse(r,c,AngleIJ,Busnum,Busnum);
-mat_IvAngleIJ=mat_AngleIJ';
-H=sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)-sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-N=-sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)+sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-J=sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-L=sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
-t1=[J,L;
-    H,N;
-]';
-Jacob=-t1;
-end

jacobian_M4.asv

@@ -1,77 +0,0 @@
-function [Jacob]=jacobian_M4(Busnum,Volt,Y,Angle,AngleIJMat)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-temp1=Volt'*Volt.*Y;
-AngleIJ=AngleIJMat-Angle;
-tt1=temp1.*sin(AngleIJ);
-tt2=temp1.*cos(AngleIJ);
-tt3=diag(tt1);
-tt4=diag(tt2);
-tt5=tt1-diag(tt3);
-tt6=tt2-diag(tt4);
-temp2=sum(tt5,2); 
-temp3 = sum(tt6,2);
-HH=temp2;
-JJ=temp3;
-t1=ones(Busnum,1)*Volt.*Y;
-t11=Volt'*ones(1,Busnum).*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-t4=diag(t1.*sin(AngleIJ));
-t5=diag(t1.*cos(AngleIJ));
-NN=-diag(t3)-diag(t5);
-LL=-diag(t2)+diag(t4);
-H = -temp1.*sin(AngleIJ);
-L = -t11.*sin(AngleIJ);%
-N=-t11.*cos(AngleIJ);%
-J = temp1.*cos(AngleIJ);%
-H=H-diag(diag(H));
-N=N-diag(N));
-J=J-diag(J);
-L=L-diag(L);
-H=H+diag(HH);
-N=N+diag(NN);
-J=J+diag(JJ);
-L=L+diag(LL);
-
-
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-Jacob=t1;
-end
-
-
-
-
-% function Jacob=jacobian_M1(Busnum,PVi,PVu,U,Uangle,Y,Angle,r,c) 
-% AngleIJ = Uangle(r) - Uangle(c)- Angle';
-% U(PVi) = PVu;
-% temp1= -sparse(1:Busnum,1:Busnum,U,Busnum,Busnum)*Y*sparse(1:Busnum,1:Busnum,U,Busnum,Busnum);                                                          % 计算雅克比矩阵可利用的中间变量
-% temp2 = sum(temp1.*sparse(r,c,sin(AngleIJ)),2);                     
-% temp3 = sum(temp1.*sparse(r,c,cos(AngleIJ)),2);
-% temp4=sparse(1:Busnum,1:Busnum,temp2,Busnum,Busnum);
-% temp5=sparse(1:Busnum,1:Busnum,temp3,Busnum,Busnum);
-% H = temp1.*sparse(r,c,sin(AngleIJ))-temp4;
-% L = temp1.*sparse(r,c,sin(AngleIJ))+temp4;
-% N = temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% J = -temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% 
-% 
-% t1=zeros(2*Busnum);
-% t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-% t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-% t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-% t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% % t1(1:)
-% % PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-% %Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-% Jacob=t1;
-% 
-% end

jacobian_M4.m

@@ -1,77 +0,0 @@
-function [Jacob]=jacobian_M4(Busnum,Volt,Y,Angle,AngleIJMat)   
-%**************************************************************************
-%  程序功能 : 子函数——形成雅可比矩阵Jacobian
-%  编    者： 
-%  编制时间：2010.12
-%**************************************************************************
-%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
-temp1=Volt'*Volt.*Y;
-AngleIJ=AngleIJMat-Angle;
-tt1=temp1.*sin(AngleIJ);
-tt2=temp1.*cos(AngleIJ);
-tt3=diag(tt1);
-tt4=diag(tt2);
-tt5=tt1-diag(tt3);
-tt6=tt2-diag(tt4);
-temp2=sum(tt5,2); 
-temp3 = sum(tt6,2);
-HH=temp2;
-JJ=-temp3;
-t1=ones(Busnum,1)*Volt.*Y;
-t11=Volt'*ones(1,Busnum).*Y;
-t2=sum(t1.*sin(AngleIJ),2);
-t3=sum(t1.*cos(AngleIJ),2);
-t4=diag(t1.*sin(AngleIJ));
-t5=diag(t1.*cos(AngleIJ));
-NN=-diag(t3)-diag(t5);
-LL=-diag(t2)+diag(t4);
-H = -temp1.*sin(AngleIJ);
-L = -t11.*sin(AngleIJ);%
-N=-t11.*cos(AngleIJ);%
-J = temp1.*cos(AngleIJ);%
-H=H-diag(diag(H));
-N=N-diag(diag(N));
-J=J-diag(diag(J));
-L=L-diag(diag(L));
-H=H+diag(HH);
-N=N+NN;
-J=J+diag(JJ);
-L=L+LL;
-
-
-t1=zeros(2*Busnum);
-t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-Jacob=t1;
-end
-
-
-
-
-% function Jacob=jacobian_M1(Busnum,PVi,PVu,U,Uangle,Y,Angle,r,c) 
-% AngleIJ = Uangle(r) - Uangle(c)- Angle';
-% U(PVi) = PVu;
-% temp1= -sparse(1:Busnum,1:Busnum,U,Busnum,Busnum)*Y*sparse(1:Busnum,1:Busnum,U,Busnum,Busnum);                                                          % 计算雅克比矩阵可利用的中间变量
-% temp2 = sum(temp1.*sparse(r,c,sin(AngleIJ)),2);                     
-% temp3 = sum(temp1.*sparse(r,c,cos(AngleIJ)),2);
-% temp4=sparse(1:Busnum,1:Busnum,temp2,Busnum,Busnum);
-% temp5=sparse(1:Busnum,1:Busnum,temp3,Busnum,Busnum);
-% H = temp1.*sparse(r,c,sin(AngleIJ))-temp4;
-% L = temp1.*sparse(r,c,sin(AngleIJ))+temp4;
-% N = temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% J = -temp1.*sparse(r,c,cos(AngleIJ))+temp5;
-% 
-% 
-% t1=zeros(2*Busnum);
-% t1(1:2:2*Busnum,1:2:2*Busnum)=H;
-% t1(1:2:2*Busnum,2:2:2*Busnum)=N;
-% t1(2:2:2*Busnum,1:2:2*Busnum)=J;
-% t1(2:2:2*Busnum,2:2:2*Busnum)=L;
-% % t1(1:)
-% % PQ = cat(2,P,Q);                                                                             % 形成功率不平衡分量列向量
-% %Jacob = cat(1,cat(2,H,N),cat(2,J,L));                                            % 形成Jacobian矩阵
-% Jacob=t1;
-% 
-% end

sy.m

@@ -1,14 +0,0 @@
-clear
-clc
-syms T11 T12 T21 T22;
-syms V1 V2;
-syms Y11 Y12 Y21 Y22;
-yP=ones(1,2);
-AngleIJ=[T11,T12;T21,T22];
-Volt=[V1,V2];
-Y=[Y11,Y12;Y21,Y22];
-t1=-diag(Y.*cos(AngleIJ')*diag(Volt)*yP');
-t2=diag(diag(Volt)*yP')*Y.*cos(AngleIJ);
-t3=(t1+t2)*diag(Volt);
-t4=-(diag(Y.*cos(AngleIJ)*Volt') -diag(Volt)*Y.*cos(AngleIJ') )*diag(diag(Volt)*yP');
-ddPdTdT=t1+t2+t3+t4