Re: Plot a recurrence relation

*To*: mathgroup at smc.vnet.net*Subject*: [mg40167] Re: Plot a recurrence relation*From*: bobhanlon at aol.com (Bob Hanlon)*Date*: Tue, 25 Mar 2003 03:01:40 -0500 (EST)*References*: <b5mj14$rsa$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Clear[a]; a[0] =6; a[n_Integer?Positive] := a[n] = a[n-1]/(2n-9); pts = Table[{n,a[n]}, {n,0,10}]; ListPlot[pts, PlotStyle -> {AbsoluteDashing[{5,5,2,5}], RGBColor[1, 0, 0]}, Frame->True, Axes->False, PlotJoined->True, Epilog->{AbsolutePointSize[4],RGBColor[0, 0, 1],Point /@ pts}]; Bob Hanlon In article <b5mj14$rsa$1 at smc.vnet.net>, "David" <davidol at hushmail.com> wrote: << Subject: Plot a recurrence relation From: "David" <davidol at hushmail.com> To: mathgroup at smc.vnet.net Date: Mon, 24 Mar 2003 09:27:00 +0000 (UTC) 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) >><BR><BR>