ch1绪论03人口模型与混沌.pptVIP

MATHEMATICA程序 a = 3.2; f1[x_] := a*x - a*x^2; gg = {{0, x[0]}}; For[n = 0; x[0] = 0.3, n 200, n++, x[n + 1] = f1[x[n]]; AppendTo[gg, {n + 1, x[n + 1]}];] hh = Take[gg, -20]; MatrixForm[hh] sawline = Line[hh]; sawgraph = Show[Graphics[sawline], Axes - True] MATHEMATICA程序 IterGeo[u_, x0_] := Module[{p1, p2, i, pointlist = {}, var = x0, fvar = u*x0*(1 - x0)}, p1 = Plot[{u*x*(1 - x), x}, {x, 0, 1}, DisplayFunction - Identity]; AppendTo[pointlist, {x0, 0}]; For[i = 1, i 200, i++, AppendTo[pointlist, {var, fvar}]; AppendTo[pointlist, {fvar, fvar}]; Print[var, -, fvar