我正在尝试将项目附加到循环中的空列表：
pointList = {};
For[n = 1, n <= 10, n++, Append[pointList, {n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)! / n!, {i, 1, n}]}]];
但是for循环之后的pointList是空的。我究竟做错了什么？:(
问问题
622 次
2 回答
1
你想要 AppendTo[]，但是你可以在这里用一个表格做得更好：
pointlist=Table[{n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)! / n!, {i, 1, n}]},{n,10}]
于 2013-02-16T22:46:43.970 回答
1
请注意，根据二项式函数的定义Binomial[n,i]*(n-i)!/n!=1/i!。FullSimplify[Sum[(-1)^(i+1)/i!,{i,1,n}],Assumptions->n>0]此外，总和通过到简化1-Subfactorial[n]/n!。因此，
pointlist=Table[{n,1-Subfactorial[n]/n!},{n,1,10}]
于 2013-02-19T23:20:15.583 回答