追加項目列出在週期

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}]