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]];

展开阅读全文

没有更多推荐了,返回首页