Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*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 2002

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

Search the Archive

Re: Simple Recursive Map

  • To: mathgroup at smc.vnet.net
  • Subject: [mg35425] Re: [mg35398] Simple Recursive Map
  • From: "Johannes Ludsteck" <johannes.ludsteck at wiwi.uni-regensburg.de>
  • Date: Fri, 12 Jul 2002 04:28:38 -0400 (EDT)
  • Organization: Universitaet Regensburg
  • Sender: owner-wri-mathgroup at wolfram.com

Dear Reuben,
use

Nest[{#[[2]]-a #[[1]]^2-1, b #[[1]]}&,{x0,y0},50]

or (easier to read)

rec[{x_,y_}]:= {y-a x^2-1, b x}

Nest[rec,{x0,y0},50]

Best regards,
	Johannes

On 11 Jul 2002, at 5:24, Reuben wrote:

> I have the map
> 
> x_n+1=y_n-a*(x_n)^2 - 1
> y_n+1=b*x_n
> 
> If I specify a,b, x_0 and y_0, how can I make Mathematica iterate
> through this numerically to give me x_50 and y_50?
> 
> Thanks
> Reuben
> 



<><><><><><><><><><><><><><><><><><>
Johannes Ludsteck
Institut fuer Volkswirtschaftslehre
Lehrstuhl Prof. Dr. Moeller
Universitaet Regensburg
Universitaetsstrasse 31
93053 Regensburg
Tel +49/0941/943-2741


  • Prev by Date: Re: Simple Recursive Map
  • Next by Date: Re: Exporting \[Micro] character tp EPS
  • Previous by thread: Re: Simple Recursive Map
  • Next by thread: RE: Simple Recursive Map