2012-05-24 10:34:04 +08:00
|
|
|
|
function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat,UAngel,r,c)
|
2012-05-22 11:33:21 +08:00
|
|
|
|
%**************************************************************************
|
|
|
|
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> : <EFBFBD>Ӻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>γ<EFBFBD><EFBFBD>ſɱȾ<EFBFBD><EFBFBD><EFBFBD>Jacobian
|
|
|
|
|
|
% <EFBFBD><EFBFBD> <EFBFBD>ߣ<EFBFBD>
|
|
|
|
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>䣺2010.12
|
|
|
|
|
|
%**************************************************************************
|
|
|
|
|
|
%%<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>6¥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д
|
|
|
|
|
|
%% <EFBFBD>ֱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ſ˱Ⱦ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>H,L,N,J<EFBFBD><EFBFBD><EFBFBD>й<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>P,Q
|
2012-05-24 10:34:04 +08:00
|
|
|
|
AngleIJ=UAngel(r)-UAngel(c)-Angle';
|
|
|
|
|
|
mat_AngleIJ=sparse(r,c,AngleIJ,Busnum,Busnum);
|
|
|
|
|
|
mat_IvAngleIJ=mat_AngleIJ';
|
|
|
|
|
|
H=diag(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);
|
2012-05-22 11:33:21 +08:00
|
|
|
|
t1=[J,L;
|
|
|
|
|
|
H,N;
|
|
|
|
|
|
]';
|
|
|
|
|
|
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); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ſ˱Ⱦ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><EFBFBD>м<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
% 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); % <EFBFBD>γɹ<EFBFBD><EFBFBD>ʲ<EFBFBD>ƽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
% %Jacob = cat(1,cat(2,H,N),cat(2,J,L)); % <EFBFBD>γ<EFBFBD>Jacobian<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
% Jacob=t1;
|
|
|
|
|
|
%
|
|
|
|
|
|
% end
|
