New in Wolfram Mathematica 7: Differential & Difference Roots ◄ previous | next ►
Extend the Scope of RSolve
Almost all difference equations require DifferenceRoot for symbolic solutions.
In[1]:=

Click for copyable input
RSolve[y[n + 2] + 1/( n^2 + 1) y[n + 1] + y[n] == Mod[n, 3] && 

  y[0] == y[1] == 1, y[n], n]
Out[1]=



In[2]:=

Click for copyable input
RSolve[y[n + 2] + 1/( n^2 + 1) y[n + 1] + y[n] == Mod[n, 3] && 

  y[0] == y[1] == 1, y[n], n];

DiscretePlot[Evaluate[y[n] /. First[%]], {n, 0, 50}]
Out[2]=