       Re: NestList

• To: mathgroup at smc.vnet.net
• Subject: [mg95718] Re: NestList
• From: Francesco <b.gatessucks at gmail.com>
• Date: Sun, 25 Jan 2009 21:47:01 -0500 (EST)
• References: <glhjo9\$ja\$1@smc.vnet.net>

```You got the hard bit already; now, with x={x_1,...x_50}, y={y_1,...,y_50} :

either
ListPlot[{x,y},Joined->True]

or

xdata=Transpose[{Range,x}]
ydata=Transpose[{Range,y}]
ListPlot[{xdata,ydata},Joined->True]

-Francesco

matt wrote:
> How to find x_(n+1)=(a*x_n+b*y_n)/c*x_n , y_(n+1)=d*x_n*y_n?
> I want to find a list of x and y when n=1,2,...,50
> so I defined the function as f[{x_,y_}]:={a*x_n+b*y_n)/c*x_n,d*x_n*y_... }
> and then use the function NestList[f,{2,5},50] with initial value of x is 2 and y is 5
> with this, I got the list of 50 values of (x,y).
> The problem is I want to plot graphs of x against n and y against n, n from 1 to 50 because I want to see what happened if n goes to infinity. But if use the method I just mentioned, I can only plot x against y.
> So do anyone have a clever method??
> Btw...a,b,c and d are constants and given and x_n is supposed to be x (subscript n)...same case with x_(n+1) and the others
>

```

• Prev by Date: VectorPlot3D and VectorStyle
• Next by Date: Re: iterative method?