电脑
Mathematica
Julia分形,有专门的函数:JuliaSetPlot[-0.9]生成z^2-0.9对应的Julia分形图。
MandelbrotSetPlot[]生成一个完整的Mandelbrot分形图。
对Julia分形图着色:JuliaSetPlot[-1, Method -> 'EscapeTime', ColorFunction -> 'GreenPinkTones']JuliaSetPlot[-0.9, Method -> 'EscapeTime', ColorFunction -> Hue]
对Mandelbrot分形图着色:MandelbrotSetPlot[ ColorFunction -> (If[#3 == 1, Blue, GrayLevel[5 #3]] &)]MandelbrotSetPlot[ColorFunction -> 'GreenPinkTones']
放大某个Julia分形的局部高质量图像,并用图例显示迭代次数:JuliaSetPlot[-0.77 + 0.36 I, PlotRange -> {{-0.2, 0.8}, {-0.8, 0.2}}, PlotLegends -> Automatic, PerformanceGoal -> 'Quality']
用其它规则产生的分形:Graphics[Line[AnglePath[N@Range[10000]]]]Graphics[Line[AnglePath[N@Range[100000]]]]Graphics[Line[AnglePath[N@Range[1000000]]]]
产生分形的方法多种多样,这里的Julia分形和Mandelbrot分形仅仅是其中的典型案例。