psojisuankekaodunewmodify.m

来自「粒子群算法用于桥式系统的可靠性优化。算法简单可靠方便。」· M 代码 · 共 17 行

function R=PSOjisuankekaodunewmodify(R)
% R=num+3
kekaodu=R(1)*R(4)+R(2)*R(5)+R(2)*R(3)*R(4)+R(1)*R(3)*R(5)+2*R(1)*R(2)*R(3)*R(4)*R(5)...
    -R(2)*R(3)*R(4)*R(5)-R(1)*R(3)*R(4)*R(5)-R(1)*R(2)*R(4)*R(5)-R(1)*R(2)*R(3)*R(5)-R(1)*R(2)*R(3)*R(4);
while(kekaodu<0.99)
    for i=1:5,
        R(i)=rand;
    end
    kekaodu=R(1)*R(4)+R(2)*R(5)+R(2)*R(3)*R(4)+R(1)*R(3)*R(5)+2*R(1)*R(2)*R(3)*R(4)*R(5)...
    -R(2)*R(3)*R(4)*R(5)-R(1)*R(3)*R(4)*R(5)-R(1)*R(2)*R(4)*R(5)-R(1)*R(2)*R(3)*R(5)-R(1)*R(2)*R(3)*R(4);
end
cost=0;
for i=1:5,
    cost=cost+exp(0.0003/(1-R(i)));
end
eval=10-cost;
R(6)=kekaodu;R(7)=cost;R(8)=eval;