双层编码的遗传算法优化Flowshop调度程序JSP也可以

网上很多不完整的，不能用的，修改半天还是出错是因为发布的人改了几句。本人结果修改，整理出的这个程序是完整的、运行通过，分享给大家~！节省时间，共同进步！

function ChromNew=aberranceJm（ChromMUTRJmT）

%初始化
[NINDWNumber]=size（Chrom）;
WNumber=WNumber/2;

ChromNew=Chrom;

[PNumber MNumber]=size（Jm）;
Number=zeros（1PNumber）;
for i=1:PNumber
  Number（i）=1;
end

for i=1:NIND    
                
    %取一个个体
    S=Chrom（i:）;
            
       WPNumberTemp=Number; 
        
       for j=1:WNumber
           
          JMTemp=Jm{S（j） WPNumberTemp（S（j））};
          SizeTemp=length（JMTemp）;
          
            %是否变异
          if MUTR>rand;
              
%               选择机器（随机选择）
%                S（j+WNumber）=unidrnd（SizeTemp）; 
          
                %选择机器（ 加工时间少的选择几率大）
                if SizeTemp==1      
                       S（j+WNumber）=1;
                else
                    S（j+WNumber）=selectJm（S（j++WNumber）T{S（j）WPNumberTemp（S（j））}）;
                end
          end
          
            WPNumberTemp（S（j））=WPNumberTemp（S（j））+1;
        end         
   
  
    %数据放入新群
    ChromNew（i:）=S;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-04-10 18:50  1\
     文件         178  2007-08-22 15:17  1\Find.m
     文件        5574  1998-04-22 10:44  1\REINS.M
     文件        1090  1998-04-22 10:44  1\RWS.M
     文件        2401  1998-04-22 10:44  1\SELECT.M
     文件        1067  2007-09-24 14:52  1\aberranceJm.m
     文件        2329  2007-09-17 16:11  1\across.m
     文件        1325  2007-09-17 16:05  1\cal.m
     文件         555  2007-09-17 16:01  1\calP.m
     文件        1276  2007-09-17 16:05  1\caltime.m
     文件        2835  2018-04-10 18:51  1\main.m
     文件         487  2007-07-14 14:48  1\plotRec.m
     文件        4708  2010-12-23 16:38  1\ranking.M
     文件         527  2010-12-23 16:31  1\scheduleData.mat
     文件         398  2007-09-24 14:03  1\selectJm.m