基于粒子群算法的无功优化MATLAB源代码，IEEE30节点

基于粒子群算法的无功优化MATLAB源代码，IEEE30节点。

function pop = Add_Weight（）
tic
pop_numb = 600;
Step_lanbda = 1 / pop_numb;
SumQg = [];
Only_PLoss = [];
setMinDistance = 0.0001;
setMaxDistance = 0.0003;
lanbda = 0 ;
k = 2;
  [SumQg（1）Only_PLoss（1）] = IPM_MainCalculation（lanbda）;
while lanbda <= 1
   lanbda = lanbda + Step_lanbda;
   [SumQg（k）Only_PLoss（k）] = IPM_MainCalculation（lanbda）;
   pop = [SumQg‘Only_PLoss‘];
   if sqrt（ （SumQg（k） - SumQg（k-1））^2 + （ Only_PLoss（k） - Only_PLoss（k-1））^2 ） < setMinDistance  
    k = k - 1;
   elseif sqrt（ （SumQg（k） - SumQg（k-1））^2 + （ Only_PLoss（k） - Only_PLoss（k-1））^2 ） > setMaxDistance      
        k = k - 1;            
   end  
   k = k + 1;        
end
[ab] = size（pop）
figure （3）;
plot（SumQgOnly_PLoss ‘o-‘）;
xlabel（‘发电机无功出力‘）;ylabel（‘网损‘）;
toc

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        792  2012-11-14 15:06  切线逼近法\Add_Weight.m

     文件       6169  2012-01-07 21:49  切线逼近法\EqualHeisenMatrix.m

     文件       2063  2012-10-28 17:11  切线逼近法\EqualJacobiMatrix.m

     文件       1538  2012-01-07 21:49  切线逼近法\FormGB_former.m

     文件       3081  2012-10-28 23:18  切线逼近法\Form_IPM_data14.m

     文件       2380  2012-10-28 23:18  切线逼近法\GradsHeisenMatrix.m

     文件        893  2012-10-28 21:48  切线逼近法\GradsMatrix.m

     文件        195  2012-01-07 21:49  切线逼近法\InequalJacobiMatrix.m

     文件       8456  2012-10-29 09:54  切线逼近法\IPM_MainCalculation.m

     文件        508  2012-01-07 21:49  切线逼近法\ModifyNodeValue.m

     文件        563  2012-10-28 22:12  切线逼近法\PLoss_Calculation.m

     文件       5915  2012-10-28 15:22  切线逼近法\Power_Calculation.m

     文件       3115  2012-10-28 15:00  切线逼近法\RE_IEEE14_data.m

     文件        625  2012-01-07 21:49  切线逼近法\v14.m

     目录          0  2012-11-02 09:57  切线逼近法

----------- ---------  ---------- -----  ----

                36293                    15