随机递增序列- Wolfram Mathematica

Question

下午好，我在制作随机递增序列的递归表时遇到了问题。我希望它返回一个增加的序列，两个元素之间的随机差异。现在我有：

RecurrenceTable[{a[k+1]==a[k] + RandomInteger[{0,4}], a[1]==-12},a,{k,1,5}]

但是它为所有k返回一个选择d的算术级数(例如{-12，-8，-4,0,4,8,12,16,20,24})。

此外，如果我用n替换代码中的每一个k，我将非常感激地解释为什么：

RecurrenceTable[{4+a[n] == a[n],a[1] == -12},a,{n,1,10}]

非常感谢您的时间！

Answer 1

我不相信RecurrenceTable是你要找的东西。

试一试这个

FoldList[Plus,-12,RandomInteger[{0,4},5]]

这回，这次，

{-12,-8,-7,-3,1,2}

然后回来，这次，

{-12,-9,-5,-3,0,1}