2012-05-24 21:06:34 +08:00
|
|
|
|
function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat,UAngel,r,c)
|
2012-05-22 11:33:21 +08:00
|
|
|
|
%**************************************************************************
|
|
|
|
|
|
% <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> : <20>Ӻ<EFBFBD><D3BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>γ<EFBFBD><CEB3>ſɱȾ<C9B1><C8BE><EFBFBD>Jacobian
|
|
|
|
|
|
% <20><> <20>ߣ<EFBFBD>
|
|
|
|
|
|
% <20><><EFBFBD><EFBFBD>ʱ<EFBFBD>䣺2010.12
|
|
|
|
|
|
%**************************************************************************
|
|
|
|
|
|
%%<25><><EFBFBD><EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD><EFBFBD>6¥<36><C2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д
|
|
|
|
|
|
%% <20>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD>ſ˱Ⱦ<CBB1><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>H,L,N,J<><4A><EFBFBD>й<EFBFBD><D0B9><EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD>P,Q
|
2012-05-24 21:06:34 +08:00
|
|
|
|
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);
|
2012-05-22 11:33:21 +08:00
|
|
|
|
t1=[J,L;
|
|
|
|
|
|
H,N;
|
|
|
|
|
|
]';
|
|
|
|
|
|
Jacob=-t1;
|
2012-05-24 21:06:34 +08:00
|
|
|
|
end
|
