追加项目列出在周期

Question

我试图将项附加到一个空的列表在循环：

pointList = {}; 
For[n = 1, n <= 10, n++, Append[pointList, {n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)!/n!, {i, 1, n}]}]]; 

但pointList后的for循环是空的。我究竟做错了什么？ :(

Answer 1

你想AppendTo []，但是你可以用一个台做的更好位置：

pointlist=Table[{n, Sum[(-1)^(i + 1) * Binomial[n, i] * (n - i)!/n!, {i, 1, n}]},{n,10}] 

Answer 2

请注意，二项分布函数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}]