遗传算法车间布局源程序代码

用遗传算法解决车间布局问题的MATLAB程序代码，很好很强大！

function [soleval]=f554（soloptions）
x（1:5）=sol（1:5）;
y（1:5）=sol（6:10）;
%传输次数矩阵
a=[0  572 1559 157 0;
   15 0   26   0   2;
   6  54  0    64  36;
   0  14  37   0   38;
   7  4   0    22  0];
%x方向尺寸向量
S=[3 1 1.5 1.5 0.8];
%y方向尺寸向量
L=[3 0.8 0.8 0.8 0.7];
%设备xy在x方向上的最小间距
dxijmin=0.8;
%设备xy在y方向上的最小间距
dyijmin=0.5;
%车间尺寸
H=5;
G=5;

for i=1:5
  for j=1:5
    delta1（ij）=abs（x（i）-x（j））-（S（i）+S（j））/2-dxijmin;
    delta2（ij）=abs（y（i）-y（j））-（L（i）+L（j））/2-dyijmin;
    %设备i，j之间的距离
    d（ij）=sqrt（（x（i）-x（j））.^2+（y（i）-y（j））.^2）;
  end
end

%约束1
delta11=min（min（delta1））;
%约束2
delta22=min（min（delta2））;
summ1=0;
for i=1:4
summ1=summ1+abs（abs（x（i）-x（i+1））+（S（i）+S（i+1））/2）;
end
%约束3
summ11=H-summ1;

summ2=0;
for i=1:4
  summ2=summ2+abs（abs（y（i）-y（i+1））+（L（i）+L（i+1））/2）;
end
%约束4
summ22=G-summ2;

if （（delta11>=0）&（delta22>=0）&（summ11>=0）&（summ22>=0））
  fsum=0;
  for i=1:5
      for j=1:5
        fsum=fsum+a（ij）*d（ij）;
      end
  end
  eval=fsum;
else
  %惩罚项
  eval=-500;
end

eval=-eval;

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

    .CA....      1419  1998-04-14 13:26  用到的遗传工具箱\adjswapMutation.m

    .CA....      1487  1998-04-15 08:46  用到的遗传工具箱\arithXover.m

    .CA....      1495  1998-04-14 13:26  用到的遗传工具箱\b2f.m

    .CA....      2080  1998-04-14 13:26  用到的遗传工具箱\binaryExample.m

    .CA....      1504  1998-04-15 08:48  用到的遗传工具箱\binaryMutation.m

    .CA....      1639  1998-04-14 13:26  用到的遗传工具箱\boundaryMutation.m

    .CA....      1382  1998-04-14 13:26  用到的遗传工具箱\calcbits.m

    .CA....      4761  1998-04-17 09:46  用到的遗传工具箱\Contents.m

    .CA....      1451  1998-04-14 13:26  用到的遗传工具箱\coranaEval.m

    .CA....      1538  1998-04-14 13:26  用到的遗传工具箱\coranaFeval.m

    .CA....      1222  1998-04-14 13:26  用到的遗传工具箱\coranaMin.m

    .CA....      1654  1998-04-14 13:26  用到的遗传工具箱\cyclicXover.m

    .CA....      1471  1998-04-14 13:26  用到的遗传工具箱\delta.m

    .CA....      6837  1998-04-28 08:17  用到的遗传工具箱\dists.m

    .CA....      1586  1998-04-14 13:26  用到的遗传工具箱\EER.m

    .CA....      2348  1998-04-14 13:26  用到的遗传工具箱\enhancederXover.m

    .CA....      2118  1998-04-14 13:26  用到的遗传工具箱\erXover.m

    .CA....      1501  1998-04-14 13:26  用到的遗传工具箱\f2b.m

    .CA....      2322  1998-04-14 13:26  用到的遗传工具箱\floatExample.m

    .CA....      2137  1998-04-14 13:26  用到的遗传工具箱\floatGradExample.m

    .CA....     10805  1998-04-14 13:26  用到的遗传工具箱\ga.m

    .CA....      4253  2001-05-27 22:05  用到的遗传工具箱\gademo.m

    .CA....      3887  1998-04-14 13:26  用到的遗传工具箱\gademo1.m

    .CA....      1275  1998-04-14 13:26  用到的遗传工具箱\gademo1eval1.m

    .CA....      2840  1998-09-08 09:17  用到的遗传工具箱\gademo2.m

    .CA....      6262  1998-04-14 13:26  用到的遗传工具箱\gademo3.m

    .CA....       193  1998-04-14 13:26  用到的遗传工具箱\gaMichEval.m

    .CA....    132728  1998-09-08 09:28  用到的遗传工具箱\gaotv5.ps

    .CA....       174  1998-04-14 13:26  用到的遗传工具箱\gaZBGrad.m

    .CA....       684  1998-04-14 13:26  用到的遗传工具箱\gaZBGradEval.m

............此处省略35个文件信息