Re: Recurrence Equation RSolve, no error shown, no solution?

*To*: mathgroup at smc.vnet.net*Subject*: [mg129079] Re: Recurrence Equation RSolve, no error shown, no solution?*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Thu, 13 Dec 2012 04:07:17 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20121212005457.44487690E@smc.vnet.net>

If RSolve cannot solve the recurrence equation, use a recursive definition of the function. Clear[w] w[0] = 2; w[n_Integer?Positive] := w[n] = w[n - 1] - 0.02/w[n - 1]; data = Table[{n, w[n]}, {n, 0, 50}]; ListPlot[data] Bob Hanlon On Tue, Dec 11, 2012 at 7:54 PM, Fran Alvarez <skitarna at gmail.com> wrote: > Hi all! > I'm looking for the solution of: > > RSolve[{w[n + 1] == w[n] - 0.02/w[n], w[0] == 2}, w[n], n] > > but the output is the same on the input and no error is shown. I've read the help that comes with Mathematica (I'm using 7.01 version for Mac) but no way. It seems to me that the main difference with the majority of examples shown in the help is the w[n] that appears as a denominator at the equation's RHS. I've seen complex rational examples at the help though, and RSolve manages to give a solution. > > Could someone tell me if there is possible to solve this and what's my error? > Thank you! > Fran =C1lvarez >

**References**:**Recurrence Equation RSolve, no error shown, no solution?***From:*Fran Alvarez <skitarna@gmail.com>