变量(p)的递归实现解决方案

时间:2013-09-01 01:04:05

标签: wolfram-mathematica

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]的价值mn的不同价值一样。

1 个答案:

答案 0 :(得分:0)

如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