求助各位大神怎么计算这个递推方程
mathematica吧
全部回复
仅看楼主
level 3
ACE啧啧啧
楼主
S[n_]:=Sum[a[i],{i,1,n}];
RSolve[1/S[n]+1/a[n]==1,a[n],n]
2022年11月30日 07点11分
1
level 4
贴吧用户_aJAJeEJ
RSolve[{1/a[n] + 1/s[n] == 1, s[n] == s[n - 1] + a[n],
s[1] == a[1]}, {a[n], s[n]}, n]
mma无法直接解
2022年11月30日 08点11分
2
ACE啧啧啧
谢谢大佬，我试试
2022年12月02日 23点12分
1
