目的
下面這個簡單方程的迭代結果非常有趣,如下圖所示。正像世界上沒有兩片完全相同的雪花一樣,這個方程的圖像也是變化多端,大自然是位藝術大師。
代碼如下:
Table[{a, b, c} = RandomReal[{-10, 10}, 3];
f[{x_, y_}] := {y - 1 - Sqrt[Abs[b*x - 1.0 - c]]*Sign[x - 2], a - x - 1.0};
Graphics[{PointSize[0.003], Point[NestList[f, {0, 0}, 50000]]}], {i, 16}]
多個吸引子。