RE: Plot a recurrence relation
- To: mathgroup at smc.vnet.net
- Subject: [mg40173] RE: Plot a recurrence relation
- From: "tgarza01 at prodigy.net.mx" <tgarza01 at prodigy.net.mx>
- Date: Tue, 25 Mar 2003 03:02:55 -0500 (EST)
- Reply-to: tgarza01 at prodigy.net.mx
- Sender: owner-wri-mathgroup at wolfram.com
In[1]:=
<< DiscreteMath`RSolve`
In[2]:=
sol = RSolve[{a[n + 1] ==
a[n]/(2*n - 7), a[0] == 6},
a[n], n]
Out[2]=
{{a[n] -> (3*2^(1 - n))/
Pochhammer[-(7/2), n]}}
In[3]:=
ListPlot[Table[{n, a[n] /.
sol[[1]]}, {n, 0, 10}],
PlotStyle -> {Hue[1],
PointSize[0.0125]}];
Tomas Garza
Mexico City
Original Message:
-----------------
From: David davidol at hushmail.com
To: mathgroup at smc.vnet.net
Subject: [mg40173] Plot a recurrence relation
How can I get mathematica to plot a sequence that's defined recursively e.g.
a_0 = 6
a_(n+1) = a_n / (2n - 7)
Cheers.
--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .