jay = sqrt(-1);
exp_ang = exp(jay*ang);
% Voltage rectangular coordinates
V_rect = V.*exp_ang;
CV_rect=conj(V_rect);
Y_con = conj(Y);
%vector of conjugate currents
i_c=Y_con*CV_rect;
% complex power vector
S=V_rect.*i_c;
S=sparse(diag(S));
Vdia=sparse(diag(V_rect));
CVdia=conj(Vdia);
Vmag=sparse(diag(abs(V)));
S1=Vdia*Y_con*CVdia;
t1=((S+S1)/Vmag)*volt_red';
t2=(S-S1)*ang_red';
J11=-ang_red*imag(t2);
J12=ang_red*real(t1);
J21=volt_red*real(t2);
J22=volt_red*imag(t1);
if nargout > 3
Jac11 = J11; clear J11
Jac12 = J12; clear J12
Jac21 = J21; clear J21
Jac22 = J22; clear J22
else
Jac11 = [J11 J12;
J21 J22];
end 一部分关于雅克比矩阵的,实在不懂,希望大侠们帮帮忙……
jay = sqrt(-1);
exp_ang = exp(jay*ang);
% Voltage rectangular coordinates
V_rect = V.*exp_ang;
CV_rect=conj(V_rect);
Y_con = conj(Y);
%vector of conjugate currents
i_c=Y_con*CV_rect;
% complex power vector
S=V_rect.*i_c;
S=sparse(diag(S));
Vdia=sparse(diag(V_rect));
CVdia=conj(Vdia);
Vmag=sparse(diag(abs(V)));
S1=Vdia*Y_con*CVdia;
t1=((S+S1)/Vmag)*volt_red';
t2=(S-S1)*ang_red';
J11=-ang_red*imag(t2);
J12=ang_red*real(t1);
J21=volt_red*real(t2);
J22=volt_red*imag(t1);
if nargout > 3
Jac11 = J11; clear J11
Jac12 = J12; clear J12
Jac21 = J21; clear J21
Jac22 = J22; clear J22
else
Jac11 = [J11 J12;
J21 J22];
end 谢分享的资料,3Q :shutup:好东西啊 楼主可以把那个发我吗?下不了,谢谢了wjdf1234@163.com 谢谢楼主,顶,学习下 该文献有硬伤啊。。牛顿拉夫逊法不是Newtown-Raphson 么。。。。 貌似不错啊!!! 谢谢了 学习了
页:
1
[2]