tarall.m

遗传算法工具箱

  function [eval]=tarall(chrom)
  [m,n]=size(chrom);
  p=[   .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .87 .52 .11 .78 .72 .69 .94 .72 .36 .28 .27 .74 .24 .78 .45;...
        .62 .87 .70 .22 .80 .42 .43 .90 .13 .95 .18 .19 .12 .61 .35;...
        .48 .20 .42 .16 .43 .58 .69 .03 .34 .72 .15 .24 .29 .30 .75    ];
  w=[.47 .97 .76 .62 .48 .77 .33 .74 .54 .65 .43 .35 .63 .66 .57];
 aa=zeros(m,n);
 for i=1:m    for  j=1:15     chrom(i,j)=p(chrom(i,j),j);end;end 
 eval=chrom*w';