Mathematica 如何提取多个多项式的系数
问题描述：
Mathematica 如何提取多个多项式的系数
如何提取多个多项式的系数
例如：
s1含有3个多项式
输入：s1={ab+2a+3c,4a+5bc+6c,10abc}
现在,需要把每个多项式系数提出来
输出：s2={{1,2,3},{4,5,6},{10}}
答
去掉加号,令所有变量等于1,就可以了
s1 /. Plus -> List /. {a -> 1, b -> 1, c -> 1}若是有成千上万个变量及组合关系，这个替换表怎么得到？{a -> 1, b -> 1, c -> 1,ab->1,abc->1}谢谢！
话说你能碰到实际有成千上万个变量的情况吗？只需要令所有的变量等于 1，与变量的组合有关系吗？自己想想吧！
# -> 1 & /@ Variables[s1]