13 lines
482 B
Matlab
13 lines
482 B
Matlab
function[Uangle,U] = solvefun(Busnum,Jacob,PQ,Uangle,U)
|
||
%**************************************************************************
|
||
% 程序功能 : 子函数——求解修正方程
|
||
% 编 者：
|
||
% 编制时间：2010.12
|
||
%**************************************************************************
|
||
%% 计算修正方程
|
||
PQ = sparse(PQ);
|
||
X = (Jacob\-PQ')';
|
||
%% 更新电压变量
|
||
Uangle = Uangle+X(1:Busnum); % 更新电压相角
|
||
U = U+U.*X(Busnum+1:end); % 更新电压幅值
|
||
end |