Job-shop-MATLAB

用matlab编写的车间作业调度的遗传算法程序

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

 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1986  2007-07-25 10:52  车间调度\MATLAB\caltime.m

     文件        487  2007-07-14 14:48  车间调度\MATLAB\plotRec.m

     文件       4009  2007-07-27 14:47  车间调度\MATLAB\JSP.m

     文件        742  2007-07-27 14:34  车间调度\MATLAB\calP.m

     文件       1133  2007-07-14 14:02  车间调度\MATLAB\cal.m

     文件       2144  2007-07-26 16:35  车间调度\MATLAB\across.m

     文件        760  2007-07-24 09:42  车间调度\MATLAB\aberrance.m

     目录          0  2007-07-27 14:53  车间调度\MATLAB

     文件      87552  2007-07-26 15:51  车间调度\车间调度遗传算法的研究.doc

     目录          0  2007-07-27 14:50  车间调度

     文件        760  2007-07-24 09:42  车间调度MATLAB\MATLAB\aberrance.m

     文件       2144  2007-07-26 16:35  车间调度MATLAB\MATLAB\across.m

     文件       1133  2007-07-14 14:02  车间调度MATLAB\MATLAB\cal.m

     文件        742  2007-07-27 14:34  车间调度MATLAB\MATLAB\calP.m

     文件       1986  2007-07-25 10:52  车间调度MATLAB\MATLAB\caltime.m

     文件       4009  2007-07-27 14:47  车间调度MATLAB\MATLAB\JSP.m

     文件        487  2007-07-14 14:48  车间调度MATLAB\MATLAB\plotRec.m

     文件      87552  2007-07-26 15:51  车间调度MATLAB\车间调度遗传算法的研究.doc

     目录          0  2011-04-09 20:47  车间调度MATLAB\MATLAB

     目录          0  2011-04-10 11:39  车间调度MATLAB

----------- ---------  ---------- -----  ----

               197626                    20