数学实验实验报告(4)

divi[[2]]*(Im[z]-shrange[[1]][[2]])/(shrange[[2]][[2]]- shrange[[1]][[2]])]+1;mu[temp1,temp2]++;z= w[z];];

For[i=a,i>=1,i--,

For[j=b,j>=1,j--,mumax=Max[mumax,mu[i,j]]]];

mu1=Table[GrayLevel[1-N[mu[j,i]]/mumax],{i,a},{j,b}]; Show[Graphics[RasterArray[mu1]]]]

showIFS[0+I 0,{{-0.1,-0.1},{1.1,1.1}},{150,150},100000] 实验结果：

3、

Feigenbaum[n_Integer,x0_]:=

Module[{A ={},a,i,temp,B={}}, For[a=1,a<=n,a++,temp=x0;A={};

For[i=1,i<=50,i++,temp=4*a*temp*(1-temp)/n]; For[i=51,i<=100,i++,temp=4*a*temp*(1-temp)/n; AppendTo[A,{4*a/n,temp}]]; AppendTo[B,

ListPlot[A,PlotStyle->{PointSize[0.005]}, DisplayFunction->Identity]]];

Show[B,DisplayFunction->$DisplayFunction]]; Feigenbaum[1000,0.5] 实验结果：

10.80.60.40.2 4、分形：分形具有无限嵌套层次的精细结构，并且在不同尺度下保持相似属性。 混沌：对初值非常敏感，不是随机的。

1234