Wolfram mathematica 用Mathematica求解递推关系

晚上好，专家们

我想用mathematica来解递推方程

x(n) = x(n − 1) + n 
for n > 0, 
    x(0) = 0

我需要找到x（1），x（2），x，（3）

这是我的输入，它给了我错误

n > 0
a[0] := 0
RSolve[x == a[n - 1] + n, a[n], n]

我怎样才能用mathematica重写方程？ 提前感谢

只需使用

RSolve[{a[n] == a[n - 1] + n, a[0] == 0}, a[n], n]

删除以下内容：

n > 0
a[0] := 0

---

a[0]：=0

是一个函数定义<代码>a必须没有相关的定义才能在

RSolve

中工作此模式的一个示例是：

包括一个边界条件：

In[1]:= RSolve[{a[n + 1] - 2 a[n] == 1, a[0] == 1}, a[n], n]

Out[1]= {{a[n] -> -1 + 2^(1 + n)}}

对于你的问题，那就是：

In[1]:= RSolve[{a[n] == a[n - 1] + n, a[0] == 0}, a[n], n]

Out[1]= {{a[n] -> 1/2 n (1 + n)}}    

如果要查找x（1）、x（2）、x（3），可以使用

RecurrenceTable

：

RecurrenceTable[{x[n] == x[n - 1] + n, x[0] == 0}, x[n], {n, 3}]

{0,1,3,6}

---

x（1）=1，x（2）=3，x（3）=6

谢谢你的回复，怎么能写出n>0？或者，如果想要指定n>2，Mathematica通常会根据提供的边界条件自动推断。如果你得到了一个不可能的实例（基本上不太可能再发生），你应该发布一个关于这个的新问题。谢谢你的回复，如何写n>0？或者如果要指定n>2？@mydreamadsl为什么需要它？这不会改变解决方案。