math

为什么不把源文件一起给大家欣赏呢？文字说明参数调整很难领会的。

math

90# xuefeiyang


坐标原点。

math

92# xuefeiyang

math

这个得不到与原图一致的效果，确实参数不同效果不一。这个也蛮好看的：

math

102# xyj200909


mathematica运行的结果：

math

101# xiaongxp


xiaongxp老师能否给出资料的出处。

math

107# xiaongxp


原来又是这是软件中的范例，只有changxde老师能看得懂了。这里应该又是经过变换后得来的吧：

math

可以先做这个：
chains = {N[Append[Table[{{2E^(I theta), Sqrt[3]}}, {theta, Pi/6, 9Pi/6, 2Pi/3}], {{0, 2 - Sqrt[3]}}]]};
Reflect[{z2_, r2_}, {z1_, r1_}] := Module[{a = r1^2/((z2 -z1)Conjugate[z2 - z1] - r2^2)}, {z1 + a (z2 - z1), a r2}];
Do[chains = Append[chains, Table[Map[Reflect[#, chains[[1, j, 1]]] &, Flatten[Delete[chains[], j], 1]], {j, 1, 4}]], {i, 1, 6}];
Show[Graphics[Table[{GrayLevel[i/6], Map[Disk[{Re[#[[1]]], Im[#[[1]]]}, #[[2]]] &, chains[], {2}]}, {i, 1, 6}], AspectRatio -> 1, PlotRange -> {{-1, 1}, {-1, 1}}]];