findabc.m

有关蚁群算法的matlab源码

function Q = FINDabc(A) %给定B1，B2两点坐标计算平面参数a，b，c 
v = 1e-3*[1 1 1 1];r=1.3;l=0;
K=6;
a = RAND;
a = RESHAP_MAX(A,a,K);
while(sum(STAND(A,a(K,:))>v)~=0)
l=0;
[Q,w]=REF(a,r,K);
while((~D_ZONE1(Q))|(COMP(A,Q)>=COMP(A,a(K,:))))
[Q,w]=REF(a,w,K); 
if (w<=eps^12)

a(K,:)=[];
K=K-1; 
l = 1;
end
if(l==1)
break;
end
end
if(~l)
a(K,:)=Q; 
end 
if(K<=1)
a=FINDabc(A);
break;
end 
a = RESHAP_MAX(A,a,K);
end
if(K<=1)
Q = a(1,:);
else Q=sum(a)./K;
end