投影寻踪遗传算法matlab程序.docVIP

clc clear close all Alpha=; X=load(d:\ ); for k=1:21 eval(sprintf( syms a%d,k)); end a=[a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21]; [n,p]=size(X); x=zeros(n,p); Xjmax=max(X); Xjmin=min(X); for i=1:n x(i,:)=(X(i,:)-Xjmin)./(Xjmax-Xjmin); end %构造投影指标 for i=1:n Z(i)=sum(a.*x(i,:)); end %计算投影指标函数 meanZ=mean(Z); Sa=0; for k=1:n sa=(Z(i)-meanZ).^2; Sa=Sa+sa; Sa=sqrt(Sa/n); end R=Alpha*Sa; Da=0; for k=1:n rik=abs(Z(i)-Z(k)); %if Rrik Da=Da+rik; %end end Qa=Sa*Da; %选择操作 function ret =select(individuals,sizepop) =1./; sumfitness=sum; sumf=individuals./fitness; index=[