203 lines
7.6 KiB
Plaintext
203 lines
7.6 KiB
Plaintext
|
function ddh=func_ddh1(AngleIJMat,GB,Volt,Init_Y,Busnum)
|
|||
|
|
%% deltaPi/deltaThytai_deltaThytaj <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=-Volt'*Volt;
|
|||
|
|
t2=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
|
|||
|
|
dPdTidTj=t1.*t2; %%(<28><><EFBFBD><EFBFBD><EFBFBD>˶Խ<CBB6>Ԫ<EFBFBD>ص<EFBFBD>)
|
|||
|
|
dPidTidTj_2=dPdTidTj-diag(diag(dPdTidTj));%ȥ<><C8A5><EFBFBD>˶Խ<CBB6>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t3=repmat(Init_Y',1,size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%ȥ<><C8A5><EFBFBD>˶Խ<CBB6>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t3=repmat(Init_Y,size(Init_Y,2),1);
|
|||
|
|
dPjdTidTj=dPjdTidTj.*t3(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPdTidTj=dPidTidTj_2+dPjdTidTj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@@@
|
|||
|
|
%% deltaP/deltaThyta_deltaThyta <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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;%%<25><><EFBFBD>նԽ<D5B6>Ԫ<EFBFBD><D4AA> @@@@@@
|
|||
|
|
%% deltaP/deltaThytai_dVi <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=ones(Busnum,1)*Volt.*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
|
|||
|
|
t2=diag(t1);
|
|||
|
|
t3=t1-diag(t2);%ȥ<><C8A5><EFBFBD>˶Խ<CBB6>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t4=sum(t3,2);
|
|||
|
|
t4=t4'.*Init_Y(1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPidTidVi=diag(t4);
|
|||
|
|
t1=-Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
|
|||
|
|
t1=t1-diag(diag(t1));%ȥ<><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t2=repmat(Init_Y',1,size(Init_Y,2));
|
|||
|
|
t3=t1.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
t6=sum(t3,1);
|
|||
|
|
dPdTidVi=dPidTidVi+diag(t6);%%<25><><EFBFBD>նԽ<D5B6>Ԫ<EFBFBD><D4AA> @@@@@@
|
|||
|
|
%% deltaP/deltaThytai_dVj <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
|
|||
|
|
dPidTidVj=t1-diag(diag(t1));%%ȥ<><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t2=repmat(Init_Y',1,size(Init_Y,2));
|
|||
|
|
dPidTidVj=dPidTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
t1=Volt'*ones(1,Busnum).*(real(GB).*sin(AngleIJMat)+imag(GB).*cos(AngleIJMat));
|
|||
|
|
dPjdTidVj=t1-diag(diag(t1));%ȥ<><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t2=t2';
|
|||
|
|
dPjdTidVj=dPjdTidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPdTidVj=dPidTidVj+dPjdTidVj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@@
|
|||
|
|
%% deltaP/dVi_deltaThytaj <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPdVidTj=dPidVidTj+dPjdVidTj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@
|
|||
|
|
%% deltaPi/dVi_deltaThyta <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
dPdVidTi=dPdTidVi;%<25><><EFBFBD>նԽ<D5B6>Ԫ<EFBFBD><D4AA> @@
|
|||
|
|
%% deltaP/dVi_dVj <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=-(real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat));
|
|||
|
|
dPidVidVj=t1-diag(diag(t1));%ȥ<><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD>ص<EFBFBD>
|
|||
|
|
t2=repmat(Init_Y',1,size(Init_Y,2));
|
|||
|
|
dPidVidVj=dPidVidVj.*t2(1:2:size(Init_Y,2),1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPdVidVj=dPidVidVj+dPjdVidVj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@@
|
|||
|
|
%% deltaP/dVi_dVi <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t0=real(GB).*cos(AngleIJMat)+imag(GB).*sin(AngleIJMat);
|
|||
|
|
t1=diag(t0);
|
|||
|
|
t2=t1'.*Init_Y(1:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dPidVidVi=-2*diag(t2);
|
|||
|
|
dPidVjdVj=0;
|
|||
|
|
dPdVidVi=dPidVidVi+dPidVjdVj;%<25><><EFBFBD>նԽ<D5B6>Ԫ<EFBFBD><D4AA> @@@@
|
|||
|
|
%% <20><><EFBFBD><EFBFBD>APi
|
|||
|
|
APi=zeros(2*Busnum,2*Busnum);
|
|||
|
|
APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTj;%%<25>ǶԽ<C7B6> TT
|
|||
|
|
APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVj;%%<25>ǶԽ<C7B6> TV
|
|||
|
|
APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTj;%%<25>ǶԽ<C7B6> VT
|
|||
|
|
APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVj;%%<25>ǶԽ<C7B6> VV
|
|||
|
|
APi(1:2:2*Busnum,1:2:2*Busnum)=dPdTidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
APi(1:2:2*Busnum,2:2:2*Busnum)=dPdTidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
APi(2:2:2*Busnum,1:2:2*Busnum)=dPdVidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
APi(2:2:2*Busnum,2:2:2*Busnum)=dPdVidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
%% deltaQ/deltaThyta_deltaThyta <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=-Volt'*Volt;
|
|||
|
|
%t1=Volt'*Volt;
|
|||
|
|
t2=real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat);
|
|||
|
|
dQidTidTj=t1.*t2;%<25><>ȥ<EFBFBD><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD><D4AA><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
t3=repmat(Init_Y',1,size(Init_Y,2));
|
|||
|
|
dQidTidTj=dQidTidTj.*t3(2:2:size(Init_Y,2),2:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dQdTidTj=dQidTidTj+dQjdTidTj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@
|
|||
|
|
%% deltaQ/deltaThyta_deltaThyta <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
t7=sum(t6,1);
|
|||
|
|
dQjdTidTi=diag(t7);
|
|||
|
|
dQdTidTi=dQjdTidTi+dQidTidTi;%<25><><EFBFBD>նԽ<D5B6>Ԫ<EFBFBD><D4AA> @@@@
|
|||
|
|
%% deltaQ/deltaThyta_deltaV <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dQdTidVj=dQidTidVj+dQjdTidVj;%<25><><EFBFBD>շǶԽ<C7B6>Ԫ<EFBFBD><D4AA> @@@@@
|
|||
|
|
%% deltaQ/deltaThyta_deltaV <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
%t1=sum(dQidTidVj,2)-diag(dQidTidVj);%ȥ<><C8A5><EFBFBD>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
t5=sum(t4,1);
|
|||
|
|
dQjdTidVi=diag(t5);
|
|||
|
|
dQdTidVi=dQidTidVi+dQjdTidVi;% @@@@
|
|||
|
|
%% deltaQ/deltaV_deltaV <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dQjdVidVj=t3;
|
|||
|
|
dQdVidVj=dQidVidVj+dQjdVidVj;% @@@@@
|
|||
|
|
%% deltaQ/deltaV_deltaV <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
t1=-2*(real(GB).*sin(AngleIJMat)-imag(GB).*cos(AngleIJMat));
|
|||
|
|
t2=diag(t1);
|
|||
|
|
t3=t2'.*Init_Y(2:2:size(Init_Y,2));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
% dQjdVidVi=diag(t5);
|
|||
|
|
dQjdVidVi=0;
|
|||
|
|
dQdVidVi=dQidVidVi+dQjdVidVi; % @@@@
|
|||
|
|
%% deltaQ/deltaV_deltaThyta <20>ǶԽ<C7B6>Ԫ<EFBFBD><D4AA>
|
|||
|
|
%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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
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));%<25><>y<EFBFBD><79>ϵ<EFBFBD><CFB5>
|
|||
|
|
dQjdVidTj=t4;
|
|||
|
|
dQdVidTj=dQidVidTj+dQjdVidTj;% @@@
|
|||
|
|
%% deltaQ/deltaV_deltaThyta <20>Խ<EFBFBD>Ԫ<EFBFBD><D4AA>
|
|||
|
|
dQdVidTi=dQdTidVi;% @
|
|||
|
|
%% <20><><EFBFBD><EFBFBD>AQi
|
|||
|
|
AQi=zeros(2*Busnum,2*Busnum);
|
|||
|
|
AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTj;%%<25>ǶԽ<C7B6> TT
|
|||
|
|
AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVj;%%<25>ǶԽ<C7B6> TV
|
|||
|
|
AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTj;%%<25>ǶԽ<C7B6> VT
|
|||
|
|
AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVj;%%<25>ǶԽ<C7B6> VV
|
|||
|
|
AQi(1:2:2*Busnum,1:2:2*Busnum)=dQdTidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
AQi(1:2:2*Busnum,2:2:2*Busnum)=dQdTidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
AQi(2:2:2*Busnum,1:2:2*Busnum)=dQdVidTi;%%<25>Խ<EFBFBD>
|
|||
|
|
AQi(2:2:2*Busnum,2:2:2*Busnum)=dQdVidVi;%%<25>Խ<EFBFBD>
|
|||
|
|
%% <20><><EFBFBD><EFBFBD>ddh
|
|||
|
|
t=[zeros(4,14);
|
|||
|
|
zeros(2*Busnum,2*size(PVi,1)),AQi+APi;
|
|||
|
|
];
|
|||
|
|
ddh=t;
|
|||
|
|
end
|