original.not modified.

solvefun.m

@@ -0,0 +1,13 @@
+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