求助帖:从给定集合中选出子集，子集之和=N

自己做了一下，感觉穷举没办法解决，能用Excel解决，但想用mathematica编程写出来，求帮助

你的例子，可以这么用IntegerPartitions和Select函数来实现，如下图：

有221中情况，不知道你excel做出的是不是这么多种情况

In[7]:=
s = {34, 6, 8, 17, 16, 5, 13, 21, 25, 31, 14, 13, 33, 9, 25,
25};
n = 100;
Sort /@ Select[Subsets@s, Total@# == n &] // DeleteDuplicates //
Length // Timing
Out[9]= {1.482, 127}
我也很想知道用Excel的代码是什么？

A1:A16分别输入34 6 8 17 16 5 13 21 25 31 14 13 33 9 25 25
C1输入
=SUMPRODUCT(A1:A16,B1:B16)回车
D1输入
=IF(ROW(A1)>SUM($B$1:$B$16),"",INDEX(A:A,SMALL(IF($B$1:$B$16=1,ROW($1:$5),4^8),ROW(A1))))
数组公式，输入公式后先不要回车，按Ctrl+Shift+Enter结束计算。
再向下填充至D16菜单栏——工具——规划求解——出现“规划求解参数”对话框
——设置目标单元格：$C$1——值为：16
——可变单元格：$B$1:$B$16
——约束：
添加：单元格引用位置：$B$1:$B$16，下拉选“<=”——约束值：1——确定
添加：单元格引用位置：$B$1:$B$16，下拉选“int”——确定
添加：单元格引用位置：$B$1:$B$16，下拉选“>=”——约束值：0
——确定自动生成：$B$1:$B$16<=1$B$1:$B$16=整数$B$1:$B$16>=0
最后，点“求解”——确定。
D列出现的数值就是结果。 34 6 5 13 33 9