Question

用matlab做遗传算法，解决作业车间调度问题，我从网上下载了大概的程序

主要的代码都有。现在缺少ranking.m和select.m，做过这个东西的人应该很快就能编出来，求助，知道分数我可以给100分。
我的QQ:759148360.谢谢！
附一部分的主程序代码：
% 初始化群
Chrom=zeros(NIND,WNumber);
for i=1:NIND
Chrom(i,:)=randperm(WNumber);
end

%计算目标函数值
[PVal ObjV P]=cal(Chrom,NIND,T,M,PNumber,MNumber,WPNumber);

while gen<MAXGEN

FitnV=ranking(ObjV); %分配适应度值(Assign fitness values)
SelCh=select('sus', Chrom, FitnV, GGAP); %选择
SelCh=across(SelCh,NIND*GGAP,XOVR,WNumber); %交叉
SelCh=aberrance(SelCh,NIND*GGAP,MUTR,WNumber); %变异

[PVal ObjVSel P]=cal(SelCh,NIND*GGAP,T,M,PNumber,MNumber,WPNumber); %计算目标函数值
[Chrom ObjV] =reins(Chrom, SelCh,1, 1, ObjV, ObjVSel); %重插入子代的新种群
[PVal ObjVl P]=cal(Chrom,NIND,T,M,PNumber,MNumber,WPNumber); %计算目标函数值
gen=gen+1; %代计数器增加

% %输出最优解及其序号，并在目标函数图像中标出，Y为最优解,I为种群的序号
trace(1, gen)=min(ObjV); %遗传算法性能跟踪
trace(2, gen)=sum(ObjV)/length(ObjV);

% 初始化
if gen==1
Val1=PVal;
Val2=P;
MinVal=min(ObjV);
end

%记录 最小的工序
if MinVal> trace(1,gen)
Val1=PVal;
Val2=P;
MinVal=trace(1,gen);
end

end

PVal=Val1; %工序时间
P=Val2; %工序
MinVal=MinVal %最小时间

%计算解的变化
hold on;
plot([0,0],[0,0]);
plot(trace(1,:));
hold on;
plot(trace(2,:),'-.');grid;
legend('解的变化','种群均值的变化');

Answer 1

已加QQ，看我能不能帮到你什么。