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