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