两数组通过转移、交换数据使得差值最接近固定数值

王守恩

王守恩 发表于 2019-11-12 19:23
我只能做具体的题目。
1，15个数的和=100+92+76+71+63+50+45+33+20+15+13+10+9+6+4=607
2，较小一组的和 ...

2楼说得好：说白了，就是将一组数据，取一部分出来，使之总和尽可能接近某个确定值。
15个数总和=100+92+76+71+63+50+45+33+20+15+13+10+9+6+4=607
较小确定值=(607-K)/2=(607-17)/2=295，较大确定值=607-295=312
主帖可分解为以下8道题。
1，15个数中取4个数，4个数的和=295(无解)；
2，15个数中取5个数，5个数的和=295；
3，15个数中取6个数，6个数的和=295；
4，15个数中取7个数，7个数的和=295；
5，15个数中取4个数，4个数的和=312(无解)；
6，15个数中取5个数，5个数的和=312；
7，15个数中取6个数，6个数的和=312；
8，15个数中取7个数，7个数的和=312。

zeroieme

1. {{100,92,76,63,50,10},{71,45,33,20,15,13,9,6,4},17}//Function[{S1,S2,\[CapitalDelta]},S1~Join~S2//{#//Sort//Reverse,Solve[{Subscript[x, 1]+Subscript[x, 2]==Total[#],Subscript[x, 1]-Subscript[x, 2]==\[CapitalDelta]}]//First//Subscript[x, 2]/.#&}&]@@#&//Function[{AllDataList,Part1Total},Fold[Function[{SearchingList,i},Select[SearchingList,Total[#]==Part1Total&]//If[#!={},#[[1;;1]],{#,Append[#,AllDataList[[i]]]}&/@SearchingList//Join@@#&//GatherBy[#,Total][[All,1]]&//SortBy[#,Total]&//{Select[#,Total[#]+Total[AllDataList[[i+1;;-1]]]<Part1Total&],#,(Select[#,Total[#]>Part1Total&])}&//Join[If[#[[1]]=={},{},#[[1,-1;;-1]]],Complement[#[[2]],#[[1]],#[[3]]],If[#[[3]]=={},{},#[[3,1;;1]]]]&]&],{{}},Range[Length[AllDataList]]]//SortBy[#,Abs[Total[#]-Part1Total]&]&//First//{#//Sort,Complement[AllDataList,#]}&]@@#&//(Print[Total[#[[2]]]-Total[#[[1]]]];#)&

复制代码

王守恩

王守恩 发表于 2019-11-14 06:04
2楼说得好：说白了，就是将一组数据，取一部分出来，使之总和尽可能接近某个确定值。
15个数总和=100+ ...

2楼说得好：说白了，就是将一组数据，取一部分出来，使之总和尽可能接近某个确定值。
15个数总和=100+92+76+71+63+50+45+33+20+15+13+10+9+6+4=607
较小确定值=(607-K)/2=(607-17)/2=295，较大确定值=607-295=312
把15个数分成两组，总有1组的个数是1,2,3,4,5,6,7个数，
1,2,3,4个数明显无解，5,6,7个数的解还是蛮多的。
1，15个数中取5个数，5个数的和=295；
2，15个数中取6个数，6个数的和=295；
3，15个数中取7个数，7个数的和=295；
4，15个数中取5个数，5个数的和=312；
5，15个数中取6个数，6个数的和=312；
6，15个数中取7个数，7个数的和=312。