Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

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/ .




  • Prev by Date: DSolve and N do not commute
  • Next by Date: Mlink, listen and connect, help
  • Previous by thread: Re: Plot a recurrence relation
  • Next by thread: Re: Plot a recurrence relation