добавляющих элементов в список в течение цикла

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 после того, как цикл пуст. Что я делаю не так? :(

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