mathematica 7.0画图问题

我在Wolfram的网站上找到了几个，不知道符不符合你的要求：
http://demonstrations.wolfram.com/IteratesCyclesAndBifurcationsOfTheLogisticMap/
http://demonstrations.wolfram.com/BifurcationDiagramOfTheHenonMap/
这个是搜索的结果：
http://demonstrations.wolfram.com/search.html?query=bifurcation
你可以修改关键词。
还有一个是洛伦兹吸引子的：
http://demonstrations.wolfram.com/LorenzAttractor/

NDSolve[{x'[t] == -10(x[t] - y[t]), y'[t] == -x[t] z[t] + 28 x[t] - y[ t], z'[t] == x[t] y[ t] - (8/3)z[t], x[0] == z[0] == 0, y[0] == 1}, {x, y, z}, {t, 0, 200}, MaxSteps -> Infinity]
ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. %], {t, 0, 200}, PlotPoints -> 50000]