资源描述：
《7.分叉与混沌》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、分叉与混沌实验实验目的实验指导p[x_]:=2x-0.001x^2data1=NestList[p,0,30]ListPlot[data1,PlotStyle->{PointSize[0.02]}]Note:横坐标为数据表的位序（索引号）RSolve[{a[n+1]==2a[n]-0.001a[n]^2,a[0]==0},a[n],n]结论：p0=0时，迭代恒等于0，0是迭代的不动点。p[x_]:=2x-0.001x^2data1=NestList[p,1,30]ListPlot[data1,PlotStyle->{PointSize[0.0
2、2]}]结论：0{PointSize[0.02]}]结论：p0=1000时，迭代恒等于1000，为迭代的不动点。p[x_]:=2x-0.001x^2data1=NestList[p,1500,30]ListPlot[data1,PlotStyle->{PointSize[0.02]}]结论：p0>1000时，迭代仍收敛于1000。Note:p[x_]:=2x-0.00
3、1x^2data1=NestList[p,1500,30]ListPlot[data1,PlotStyle->PointSize[0.02]]ListPlot[data1,PlotJoined->True]Show[%,%%]p[x_]:=x+0.002x(400-x)data=NestList[p,2,14]ListPlot[data,PlotStyle->{PointSize[0.02]}]g[x_]:=0.7x(1-x);data=NestList[g,0.2,30];llg1=ListPlot[data,PlotStyle->Poin
4、tSize[0.02]];llg2=ListPlot[data,PlotJoined->True];Show[llg1,llg2];g0=Plot[{g[x],x},{x,0,1.1},PlotRange->{0,1}]a=0.2;n=5;ll={Line[{{a,0},{a,g[a]}}]};Do[b=g[a];c=g[b];ll=Append[ll,{Line[{{a,b},{b,b}}],Line[{{b,b},{b,c}}],Line[{{b,c},{c,c}}],Line[{{c,c},{c,g[c]}}]}];a=c,{k,1,n
5、}];g1=Show[g0,Graphics[{ll}]];g[x_]:=2.9(x-x^2);data=NestList[g,0.2,30];llg1=ListPlot[data,PlotStyle->PointSize[0.02]];llg2=ListPlot[data,PlotJoined->True];Show[llg1,llg2];g0=Plot[{g[x],x},{x,0,1.1},PlotRange->{0,1}]a=0.2;n=5;ll={Line[{{a,0},{a,g[a]}}]};Do[b=g[a];c=g[b];ll=
6、Append[ll,{Line[{{a,b},{b,b}}],Line[{{b,b},{b,c}}],Line[{{b,c},{c,c}}],Line[{{c,c},{c,g[c]}}]}];a=c,{k,1,n}];g1=Show[g0,Graphics[{ll}]];g[x_]:=3.4(x-x^2);data=NestList[g,0.02,30];llg1=ListPlot[data,PlotStyle->PointSize[0.02]];llg2=ListPlot[data,PlotJoined->True];Show[llg1,l
7、lg2];g0=Plot[{g[x],x},{x,0,1.1},PlotRange->{0,1}]a=0.2;n=5;ll={Line[{{a,0},{a,g[a]}}]};Do[b=g[a];c=g[b];ll=Append[ll,{Line[{{a,b},{b,b}}],Line[{{b,b},{b,c}}],Line[{{b,c},{c,c}}],Line[{{c,c},{c,g[c]}}]}];a=c,{k,1,n}];g1=Show[g0,Graphics[{ll}]];g[x_]:=3.55(x-x^2);data=NestLis
8、t[g,0.02,30];llg1=ListPlot[data,PlotStyle->PointSize[0.02]];llg2=ListPlot[data,Plo
