Mathematica中的递归函数

Question

考虑:

dist = Parallelize[
   Table[RandomVariate[NormalDistribution[]], {100000}]];

我怎么能创建一个递归函数,以便:

Subscript[d, 1] = dist[[1]]

Subscript[d, 2] = .95 Subscript[d, 1] + dist[[2]]

Subscript[d, 3] = .95 Subscript[d, 2] + dist[[3]]

直到做到这一点 Subscript[d, 100000]

谢谢.

令人惊讶的是,我第一次碰到这个.

Answer 1

考虑一下:

dist = RandomVariate[NormalDistribution[], {100000}];

dist2 = Rest@FoldList[0.95 # + #2 &, 0, dist];

Subscript[d, x_] := dist2[[x]]

我通常不会这样使用下标; 我不知道这样做会破坏什么.如果您描述了更多问题,我可能会有其他建议.