Re: help working with functions
- To: mathgroup at smc.vnet.net
- Subject: [mg60000] Re: [mg59987] help working with functions
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 28 Aug 2005 03:07:36 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
f[i_,j_,n_]:= Module[{k=0}, Nest[ Append[#,#[[-2]]+#[[-1]]+i*j^(k++)]&, {0,1}, n-2]]; f[0,4,10] {0,1,1,2,3,5,8,13,21,34} Bob Hanlon > > From: "hawkmoon269" <rson at new.rr.com> To: mathgroup at smc.vnet.net > Date: 2005/08/27 Sat AM 04:11:20 EDT > Subject: [mg60000] [mg59987] help working with functions > > I have the following program written: > > Clear[a]; Clear[seq]; > seq = Array[a,10,0]; a[0]=0; a[1]=1; > Do[a[k] = a[k-1] + a[k-2] + 0 4^(k-2), {k,2,10}]; > seq > > It works fine and correctly outputs > > {0, 1, 1, 2, 3, 5, 8, 13, 21, 34} > > My sense,though, is that this is inelegant newbie code and am > interested in hearing alternative ways to program with the same output. > Also, I would like to generalize this as a callable function with > arguments i,j,n...something like: > > f[i_,j_,n_]:= > Clear[a]; Clear[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 > > So that > > f[0,4,10] > > would output > > {0, 1, 1, 2, 3, 5, 8, 13, 21, 34} > > I've tried variants of the foregoing, but can't get it to work > correctly... > > Many thanks in advance for ideas and assistance etc. > > h > >