Re: Stuck solving recurrence formula
- To: mathgroup at smc.vnet.net
- Subject: [mg125945] Re: Stuck solving recurrence formula
- From: Dana DeLouis <dana01 at me.com>
- Date: Sun, 8 Apr 2012 04:18:04 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Hi. I don't have a solution, but just an idea.
I might break the problem up like this...
equ = {alpha[n + 1, j] == Sum[alpha[n, m]*Gamma[c*j - c*m + 1]/Gamma[j - m + 1], {m, n, j - 1}],
alpha[0, j] == Gamma[c*j + 1]/Gamma[j + 1]}
Then...
RecurrenceTable[equ, alpha, {n, 0, Nmax}, {j, n + 1, Nmax + 1}]
According to Help, a RecurrenceTable generates a list of values.
I may be wrong, but I don't think you can generate values, as both variables c and Nmax are undefined.
Perhaps you meant to use RSolve, and then generate a table?
= = = = = = = = = =
HTH :>)
Dana DeLouis
Mac & Math 8
= = = = = = = = = =
On Apr 6, 6:03 am, Jean <ebegr... at free.fr> wrote:
> Hi there,
>
> I am stuck with the following recurrence problem to solve in Mathematica. I have tried various ways and most recently RecurrenceTable[] but I have not been successful and I can't figure out why.
> Any help would be vastly appreciated. I am open to a solution involving iterators and lists of course beyond RecurrenceTable.
>
> Thanks in advance to the community.
>
> RecurrenceTable[{alpha[n + 1, j] ==
> Sum[alpha[n, m]*Gamma[c*j - c*m + 1]/Gamma[j - m + 1], {m, n,
> j - 1}], alpha[0, j] == Gamma[c*j + 1]/Gamma[j + 1]}, alpha, {n,
> 0, Nmax}, {j, n + 1, Nmax + 1}]