Mathematica中的递归函数定义

Question

Mathematica可以使用RSolve求解递归方程.是否有可能通过重复定义函数,无论是否可以通过分析解决复发？

Answer 1

是.看看RecurrenceTable.还可以通过其递推方程来编程来定义函数,因子是最简单的例子.

In[94]:= fac[1] = 1;
fac[k_Integer?Positive] := k*fac[k - 1]

In[96]:= fac[10]

Out[96]= 3628800

In[97]:= Function[If[#1 == 1, 1, #1*#0[#1 - 1]]][10]

Out[97]= 3628800

In[100]:= RecurrenceTable[
 f[k] == k f[k - 1] && f[1] == 1, f, {k, 1, 10}]

Out[100]= {1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800}