93 lines
3.3 KiB
Plaintext
93 lines
3.3 KiB
Plaintext
|
function ddg=func_ddg(AngleIJMat,GB,Volt,Init_W,Init_Z,Busnum,indexi,indexj,PVi,RestraintCount)
|
|||
|
|
c=Init_W+Init_Z;
|
|||
|
|
%% dg4_dTdT <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
%t1=-Volt'*Volt;
|
|||
|
|
t1=Volt'*Volt;
|
|||
|
|
t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
|
|||
|
|
t3=t1.*t2;
|
|||
|
|
t4=t3(sub2ind(size(t3),indexi,indexj));
|
|||
|
|
t5=zeros(Busnum);
|
|||
|
|
offset=2*size(PVi,1)+Busnum;
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
t5(indexi(I),indexi(I))=t4(I)*c(offset+I);
|
|||
|
|
t5(indexj(I),indexj(I))=t4(I)*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdTidTi=t5; %@@@
|
|||
|
|
%% dg4_dTdT <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
%t1=Volt'*Volt;
|
|||
|
|
t1=-Volt'*Volt;
|
|||
|
|
t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
|
|||
|
|
t3=t1.*t2;
|
|||
|
|
t5=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
t5(indexi(I),indexj(I))=t3(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t5(indexj(I),indexi(I))=t3(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdTidTj=t5;% @@@
|
|||
|
|
%% dg4_dVdV <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=real(GB)*2;
|
|||
|
|
%dPijdVidVi=t1;
|
|||
|
|
t2=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
t2(indexi(I),indexi(I))=t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdVidVi=t2; % @
|
|||
|
|
%% dg4_dVdV <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
|
|||
|
|
t4=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
%t4(indexi(I),indexj(I))=t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t4(indexi(I),indexj(I))=-t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
%t4(indexj(I),indexi(I))=t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t4(indexj(I),indexi(I))=-t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdVidVj=t4; %@@
|
|||
|
|
%% dg4_dTdV <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
|
|||
|
|
t4=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
%t4(indexi(I),indexi(I))=-Volt(indexj(I))*t2(indexi(I),indexi(I))*c(offset+I);
|
|||
|
|
t4(indexi(I),indexi(I))=Volt(indexj(I))*t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
%t4(indexj(I),indexj(I))=Volt(indexi(I))*t2(indexj(I),indexj(I))*c(offset+I);
|
|||
|
|
t4(indexj(I),indexj(I))=-Volt(indexi(I))*t2(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdTidVi=t4; % @@
|
|||
|
|
%% dg4_dTdV <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
|
|||
|
|
t2=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
%t2(indexi(I),indexj(I))=-Volt(indexi(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t2(indexi(I),indexj(I))=Volt(indexi(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
%t2(indexj(I),indexi(I))=Volt(indexj(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t2(indexj(I),indexi(I))=-Volt(indexj(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdTidVj=t2; % @@
|
|||
|
|
%% dg4_dVdT <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
dPdVidTi=dPdTidVi;
|
|||
|
|
%% dg4_dVdT <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
|
|||
|
|
t2=zeros(Busnum);
|
|||
|
|
for I=1:size(indexi,2)
|
|||
|
|
%t2(indexi(I),indexj(I))=Volt(indexj(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t2(indexi(I),indexj(I))=-Volt(indexj(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
%t2(indexj(I),indexi(I))=Volt(indexi(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
t2(indexj(I),indexi(I))=Volt(indexi(I))*t1(indexi(I),indexj(I))*c(offset+I);
|
|||
|
|
end
|
|||
|
|
dPdVidTj=t2; % @
|
|||
|
|
%% <20><><EFBFBD><EFBFBD>ddg4ddx
|
|||
|
|
ddg4ddx=zeros(2*Busnum,2*Busnum);
|
|||
|
|
ddg4ddx(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%<25>ǶԽ<C7B6> TT
|
|||
|
|
ddg4ddx(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%<25>ǶԽ<C7B6> TV
|
|||
|
|
ddg4ddx(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%<25>ǶԽ<C7B6> VT
|
|||
|
|
ddg4ddx(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%<25>ǶԽ<C7B6> VV
|
|||
|
|
ddg4ddx(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
ddg4ddx(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
ddg4ddx(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
ddg4ddx(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
%% <20><><EFBFBD><EFBFBD>ddg
|
|||
|
|
t=[zeros(2*size(PVi,1),RestraintCount);
|
|||
|
|
zeros(2*Busnum,RestraintCount-size(PVi,1)-2*Busnum),ddg4ddx;
|
|||
|
|
];
|
|||
|
|
|
|||
|
|
ddg=t;
|
|||
|
|
end
|