【学习记录】Mathematica 一种类似遗传算法暴力解优化问题的算法
程序员文章站
2022-03-31 15:25:28
...
问题来自群友：
94 77 67 72
8 95 61 87
24 36 47 69
100 38 43 57
这样一个矩阵
重新排列，使每个元素与相邻（上下左右）的元素差的绝对值求和，不重复计算这个差
问一种算法让最后的总和最小
我的算法
当时没多想，用第一想法解决了，还意外的比别人快。。。
准备
org = {94, 77, 67, 72, 8, 95, 61, 87, 24, 36, 47, 69, 100, 38, 43, 57};
index = [email protected]~Partition~4;
sum[l_] =
[email protected][{f = Part},
Total[Abs[f[l, #] - f[l, # + 1]] & /@
[email protected][[;; , ;; 3]]] +
Total[Abs[f[l, #] - f[l, # + 4]] & /@ [email protected][[;; 3]]]];
rep[l_] := Permute[l, [email protected]{RandomSample[[email protected], 2]}]
求解
group = rep /@ ConstantArray[org, 100];
Table[group = SortBy[group, sum][[;; 100]];
group = group~Join~(rep /@ RandomChoice[group, 100]);
[email protected][[1]], {100}]
最后得到多种解，最优值为341