Mathematica基础——绘制分形

1、Julia分形，有专门的函数：

JuliaSetPlot[-0.9]

生成特祝攀z^2-0.9对应的Julia分形图。

2、MandelbrotSetPlot[]

生成一个完整的Mandelbrot分形图。

3、对Julia分形图着色：

JuliaSetPlot[-1, Method -> "EscapeTime",  

    ColorFunction -> "GreenPinkTones"]

JuliaSetPlot[-0.9, Method -> "EscapeTime",  ColorFunction -> Hue]

4、对Mandelbrot分形图着色：

MandelbrotSetPlot[ 

     ColorFunction -> (If[#3 == 1, Blue, GrayLevel[5 #3]] &)]

MandelbrotSetPlot[ColorFunction -> "GreenPinkTones"]

5、放大某个Julia分形的局部高质量图像，并用图例轿蚊显示迭代次数：

JuliaSetPlot[-0.77 + 0.36 I, PlotRange -> {{-0.2, 0.8}, {-0.8, 0.2}}, 

      PlotLegends -> Automatic, PerformanceGoal -> "Quality"]

6、局部放大Mandelbrot的分形图：

MandelbrotSetPlot[{0.2 + 0.45 I, 0.4 + 0.65 I}, 

     ColorFunction -> "GreenPinkTones"]

7、用其薪毙它规则产生的分形：

Graphics[Line[AnglePath[N@Range[10000]]]]

Graphics[Line[AnglePath[N@Range[100000]]]]

Graphics[Line[AnglePath[N@Range[1000000]]]]