MMA有虫口模型的相关代码吗？

Question

在网页http://wiki.swarma.net/index.php/Logistic%E6%98%A0%E5%B0%84

看到Logistic映射（也叫虫口模型）涉及混沌，想知道谁有这方面的代码，最好有可以放大某个区域的细节代码，涉及分形混沌，放大局部更具说服力

附网页上的代码

interval = 0.001;
results = 
  Reverse[Transpose[
    Table[logisticValues = 
      Table[Nest[a # (1 - #) &, RandomReal[], 2000], {1000}];
     intervals = Table[i, {i, 0, 1 - interval, interval}];
     result = BinCounts[logisticValues, {0, 1, interval}]/1000;
     Log[result + 0.001], {a, 2.9, 4, 0.001}]]];
gradraft = 
 ArrayPlot[70 + 10 results, FrameLabel -> {"x(T)", "\[Mu]"}, 
  FrameTicks -> {Table[{i, N[(i - 1)/(Length[results] - 1)]}, {i, 

      0.1*(Length[results] - 1) + 1, 
      0.9 (Length[results] - 1) + 1, (Length[results] - 1)/4}], 
    Table[{i, 
      N[2.9 + (i - 1)*(4 - 2.9)/(Length[results[[1]]] - 1), 
       1]}, {i, (3 - 2.9) (Length[results[[1]]] - 1)/(4 - 2.9) + 1, 
      Length[results[[1]]], (Length[results[[1]]] - 1)/5}]}]

Comments

好多天过去了。其实你如果仔细研究一下你的代码，就会发现，你的代码不过就是两段，第一段是计算得到数据，第二段是根据数据画图。最初级的“放大某个区域”，直接把第二段画图范围改了不就得了。不过这样可能放大倍数太大，图片就不清晰了。那么这时候就需要考虑怎么修改第一段计算得到的数据了。