MathGroup Archive 2001

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

Search the Archive

Re: Cobweb Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg27544] Re: Cobweb Plot
  • From: bghiggins at ucdavis.edu (Brian Higgins)
  • Date: Sat, 3 Mar 2001 03:40:29 -0500 (EST)
  • References: <97l3cs$jfm@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Jon, 

There is a nice discussion about how to do this is Theo Gray and Jerry
Glynn's book on Exploring Mathematics with Mathematica. Here is a
variation on their method for 1-D maps:

g[x_] := x + 3 - Exp[.6 x]

GraphIterate[x0_, y_, n_] := 
  Module[{iterate}, 
    iterate = 
      Map[{Line[{{#, #}, {#, y[#]}}], Line[{{#, y[#]}, {y[#], y[#]}}]}
&,
		NestList[y, x0, n]]]

Plot[g[x], {x, 0, 6}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 6}, {0,
4}}, 
  Epilog -> {Line[{{0, 0}, {8, 8}}], GraphIterate[2.6, g, 10]}]

Cheers,

Brian


  • Prev by Date: Re: PostScript
  • Next by Date: Re: Filled Ellipsoid
  • Previous by thread: Re: Cobweb Plot
  • Next by thread: Re: Cobweb Plot