粒子群法经济调度

应用粒子群法解决电力系统中经济调度问题，减少了代码的长度，适合仿真使用。

function [P Fcost Pl]=eld（dataBPd）
if nargin ~= 3
     error（‘Wrong number of input arguments‘）
end
ss=size（data）;
if ss（2）~=5
    P=‘data is wrong the matrix should have six columns‘;
    Fcost=‘verify your data‘;
     Pl=‘verify your data‘;
else
end
warning off
n=length（data（:1））;
     Aeq=ones（1n）;
     a=data（:1）;
          b=data（:2）;
               c=data（:3）;
                    l=data（:4）;
                         u=data（:5）;
                           P=l;
                         for i=1:10
                             Pl=P‘*B*P;
                             Pd1=Pd+Pl;
                             ll=diag（1-2*B*P）;
                             A1=inv（ll）*a;
                              B1=inv（ll）*b;
                              H=2*diag（A1）;
                              P=quadprog（HB1[][]AeqPd1lu）;
                         end
                              Fcost=sum（a.*P.*P+b.*P+c）;

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

     文件        953  2009-03-28 18:16  pso（economic dispatch）\eld.m

     文件        172  2004-04-27 15:05  pso（economic dispatch）\forcecol.m

     文件        181  2004-04-27 15:05  pso（economic dispatch）\forcerow.m

     文件       5788  2006-03-14 10:42  pso（economic dispatch）\goplotpso.m

     文件      28672  2009-03-30 11:29  pso（economic dispatch）\introduction.doc

     文件     126739  2008-05-27 09:54  pso（economic dispatch）\ll1411.pdf

     文件       4588  2006-03-17 10:52  pso（economic dispatch）\normmat.m

     文件        922  2009-03-28 16:03  pso（economic dispatch）\psoeld.m

     文件       1032  2009-03-28 18:22  pso（economic dispatch）\psotest.m

     文件      22221  2008-08-06 00:14  pso（economic dispatch）\pso_Trelea_vectorized.m

     文件        758  2009-03-28 18:15  pso（economic dispatch）\test.m

     目录          0  2009-05-31 08:47  pso（economic dispatch）

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

               192026                    12