Re: help working with functions
- To: mathgroup at smc.vnet.net
- Subject: [mg60014] Re: help working with functions
- From: cjs <cjs5212000 at sina.com>
- Date: Sun, 28 Aug 2005 03:07:55 -0400 (EDT)
- References: <dep7us$f1s$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I think you can get correct result if you run the following: Clear[a]; Clear[seq]; f[i_, j_, n_] := Module[{k, seq}, seq = Array[a, n, 0]; a[0] = 0; a[1] = 1; Do[a[k] = a[k - 1] + a[k - 2] + i j^(k - 2), {k, 2, n}]; seq ] f[0, 4, 20]