Mathematica已经有了专门绘制Mandelbrot分形的函数——MandelbrotSetPlot,不仅可以绘制出完整的Mandelbrot分形,还可以实现分形的局部放大。
工具/原料
电脑
Mathematica11.2
方法/步骤
1、完整的Mandelbrot分形如下。MandelbrotSetPlot[{},ColorFunction->"Rainbow",Frame->False]
2、绘制一定范围内的Mandelbrot分形。MandelbrotSetPlot[-0.5615+0.6436I+{-1-I,1+I},ColorFunction->"Rainbow",Frame->False]
3、在Mathematica里面的图片上敲击鼠标右键,有一个获取坐标的选项。
4、获取某个点的坐标。
5、以上面选中的点为中心,查看局部放大的图片。MandelbrotSetPlot[-0.5599+0.6356I+{-1-I,1+I}/10,ColorFunction->"Rainbow",Frame->False]
6、减少迭代次数,图像就不再那么细致踮碚牢邗了:MandelbrotSetPlot[-0.5599+0.6356I+{-1-I,1+I}/10,ColorFuncti泠贾高框on->"Rainbow",MaxIterations->36,Frame->False]
7、增加迭代次数:MandelbrotSetPlot[-0.5599+0.6356I+{-1-I,1+I}/10,ColorFunction->"Rainbow",MaxIterations->365,Frame->False]
8、再放大10倍:MandelbrotSetPlot[-0.5599+0.6356I+{-1-I,1+I}/100,ColorFunction->"Rainbow",MaxIterations->365,Frame->False]
9、再放大10倍:MandelbrotSetPlot[-0.5599+0.6356I+{-1-I,1+I}/1000,ColorFunction->"Rainbow",MaxIterations->365,Frame->False]
10、放大10000倍的效果图:MandelbrotSetPlot[-0.5599+0.6356咯悝滩镞I+{-1-I,1+I}/10000,ColorFu荏鱿胫协nction->"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}]
12、另一个局部放大的动画:Manipulate[M瞢铍库祢andelbrotSetPlot[-0.5572+扉钛笆哇0.6355I+{-1-I,1+I}/10^n,ColorFunction->"Rainbow",MaxIterations->365,Frame->False],{n,0,5,0.1}]