用Mathematica制作Mandelbrot分形的放大动画

2024-10-11 20:14:49

1、完整的Mandelbrot分形如下。MandelbrotSetPlot[{}, ColorFunction -> "Rainbow", Frame -> False]

3、在Mathematica里面的图片上敲击鼠标右键，有一个获取坐标的选项。

5、以上面选中的点为中心，查看局部放大的图片。MandelbrotSetPlot[-0.5599 + 0.6356 I + {-1 - I, 1 + I}/10,ColorFunction -> "Rainbow", Frame -> False]

7、增加迭代次数：MandelbrotSetPlot[-0.5599 + 0.6356 I + {-1 - I, 1 + I}/10,ColorFunction -> "Rainbow", MaxIterations -> 365, Frame -> False]

9、再放大10倍：MandelbrotSetPlot[-0.5599 + 0.6356 I + {-1 - I, 1 + I}/1000,ColorFunction -> "Rainbow", MaxIterations -> 365, Frame -> False]

11、这个放大过程，可以制作成为动画。Manipulate[MandelbrotSetPlot[-0.5599 + 0.6356 I + {-1 - I, 1 + I}/10^n, ColorFunction -> "Rainbow", MaxIterations -> 365, Frame -> False], {n, 0, 4, 0.1}]