求助大神这种要用什么函数计算,谢谢

level 2

yantonsh 楼主

形如这样n+1项是前面所有n项的和的a倍。
比如1,1/2,(1+1/2)/2,(1+1/2+(1+1/2)/2))/2,……

2018年04月25日 17点04分 1

吧务

level 7

x[1] = 1;
x[n_] := x[n] = Sum[x[i], {i, n - 1}]/2;

2018年04月26日 01点04分 2

yantonsh

多谢指导，原来是酱紫的

2018年04月28日 13点04分

使用 Nest 似乎效率比 memoization 要高一点

2018年04月29日 15点04分

level 10

f[x0_, a0_, n0_] :=
Module[{x = x0, a = a0, n = n0}, l = {x};
Table[l = Append[l, Total@l/a], n] // Last // Last]

2018年04月28日 14点04分 3

level 1

这不就是等比数列吗？干嘛搞这么复杂？

2018年04月30日 00点04分 5

不是等比数列吧？

2018年04月30日 07点04分

level 12

Nest[Append[
#, 1/2 Total[#
]]&, {1}, 5]

2018年04月30日 05点04分 6

2018年05月01日 05点05分

2018年05月01日 06点05分

yantonsh

多谢高人指点迷津

2018年05月10日 11点05分