Mathematica

发现用Mathematica研究分形简直就是绝配，可以研究研究。 

image = Import["
  Z:/Fractals/V1.6-x/x62.jpg"][[1, 1]]; n = Length[image]; m = /
Length[image[[1]]];
Show[Graphics[RasterArray[Table[Module[{zc = x + I y, z = 0.0}, Do[z =
     z^2 + zc, {25}]; RGBColor @@ (image[[
    Floor[n Mod[Re[Log[Log[z]]]m/n, 1]] + 1,
        Floor[m Mod[
          2Arg[zc], 1]] + 1]]/255.0)], {y, -1.5, 1.5, 3/275}, {x, -2, 1,
            3.0/275}]], AspectRatio -> 1]];