targetalloc.m

来自「遗传算法工具箱」· M 代码 · 共 18 行

function [eval]=targetalloc(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];     % 威胁程度评估值
for i=1:m    
for j=1:15  
     chrom (i,j)=p(chrom (i,j),j);
end;
end 
eval=chrom*w';