daqi.asv

这是一个基于大气环境评价的PSO程序

function ok=daqi(Swarm)
[SwarmSize, Dim] = size(Swarm);
c=[1,2.5,7.5,12.5,25.0;1,3.33,6.67,10.00,20.0;
    1,2.67,5.33,8.00,16.7;1,2.50,5.00,12.5,25.0;
    1,2.40,6.00,10.00,24.0;1,3.00,8.00,12.00,20.00;
    1,2.75,6.00,12.00,20.00];
 h=1;
 while h>=1&h<=20 
     j=1;
    while j<=7
        k=1;
        while k<=5
    R(j,k)=1/(1+Swarm(h,1)*exp(Swarm(h,2)*c(j,k)));
    k=k+1;end
h=h+1;end
R1=R-[0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99
    0.01,0.0463,0.1284,0.3562,0,99];
R2=sum(R1.^2);
ok(h)=sumR2/(7*5);
h=h+1;
 end
 ok=[ok(1),ok(2),ok(3),ok(4),ok(5),ok(6),ok(7),ok(8),ok(9),ok(10),ok(11),ok(12),ok(13),ok(14),ok(15),ok(16),ok(17),ok(18),ok(19),ok(20)]'
 end