车间调度算法

亲测可以运行，大家放心下载！，其他的遗传算法库下一篇资源（下一篇：遗传算法库）

function ChromNew=aberrance（ChromNINDMUTRWNumber）

% Chrom=[1 2 3 4 6 7 8 9 5; 
%     3 4 5 6 2 1 8 7 9;
%     3 4 5 6 2 1 8 7 9;
%     1 2 3 4 5 6 8 7 9;
%     3 4 2 6 1 8 5 7 9;
%     8 9 5 4 6 3 2 1 7 ;
%     7 4 5 6 2 3 1 8  9;
%     3 4 5 8 2 1 7 9 6;
%     3 4 1 5 6 9 2 8 7 ;
%     9 4 5 3 6 1 2 8 7 ;
%     ];
%  NIND=10;
%  
%  WNumber=9;
%   MUTR=0.2;
 
 %新群
 ChromNew=Chrom;

for i=1:NIND  
    
 %是否变异
 a=rand;
 if MUTR>a;
     
  %变异位置
 Pos1=unidrnd（WNumber）;
 Pos2=unidrnd（WNumber）;

 %变异位置不相同
 while Pos1==Pos2      
 Pos2=unidrnd（WNumber）;
 end 
 
 %取数据
   S=Chrom（i:）;
    
   %交换
   temp=S（Pos1）;
   S（Pos1）=S（Pos2）;
   S（Pos2）=temp;
  
   ChromNew（i:）=S;
 end
end

 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2007-07-27 14:50  车间调度\
     目录           0  2007-07-27 14:53  车间调度\MATLAB\
     文件         760  2007-07-24 09:42  车间调度\MATLAB\aberrance.m
     文件        2144  2007-07-26 16:35  车间调度\MATLAB\across.m
     文件        1133  2007-07-14 14:02  车间调度\MATLAB\cal.m
     文件         742  2007-07-27 14:34  车间调度\MATLAB\calP.m
     文件        1986  2007-07-25 10:52  车间调度\MATLAB\caltime.m
     文件        4009  2007-07-27 14:47  车间调度\MATLAB\JSP.m
     文件         487  2007-07-14 14:48  车间调度\MATLAB\plotRec.m
     文件       87552  2007-07-26 15:51  车间调度\车间调度遗传算法的研究.doc