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