original.not modified.

Initial.m

@@ -0,0 +1,13 @@
+function [P0,Q0,U,Uangle] = Initial(PG,PD,PQstandard,Pointpoweri,QG,QD,Busnum)
+%**************************************************************************
+%    程序功能 : 子函数——计算功率不平衡分量等
+%    编    者： 
+%    编制时间 ：2010.12    
+%**************************************************************************
+%% 计算功率的不平衡分量               
+P0 = sparse(1, Pointpoweri,(PG-PD)/PQstandard);                         % 求取节点注入有功功率的标幺值
+Q0 = sparse(1, Pointpoweri,(QG-QD)/PQstandard);                       % 求取节点注入无功功率的标幺值
+%% 平启动赋电压初值
+U = ones(1,Busnum);                                  % 按照平启动给电压幅值赋值
+Uangle = zeros(1,Busnum);                       % 按照平启动给电压相角赋值
+end