目的
下面这个简单方程的迭代结果非常有趣,如下图所示。正像世界上没有两片完全相同的雪花一样,这个方程的图像也是变化多端,大自然是位艺术大师。
代码如下:
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}]
多个吸引子。