wolfram-mathematica - 根据变量（p）的递归解决方案

Question

u[0, 0] =1
u[m, n] =(1/(p + m + m^2)) (m*u[(m - 1), n] + n*u[(m + 1), (n - 2)] + m*(m - 1)*u[(m - 2), (n + 2)])

我想要u[m,n]的是p；不希望u[0,2]=2u[1,0]/p仅就p; 就像我想要u[m,n]不同值的值m和n。

Answer 1

正如 Jonie Shih 所说，您的递归不会终止。也许您想终止任何一个小于一个的参数：

u[x_, y_] /; x < 1 || y < 1 = 1;

u[m_, n_] :=
 (1/(p + m + m^2)) (m*u[(m - 1), n] + n*u[(m + 1), (n - 2)] + 
    m*(m - 1)*u[(m - 2), (n + 2)])

p = 4;
u[3, 5]

593037/1392640