漂亮的分形：数学函数模式图像（Mathematica）

1、画出复平面上，-6-6i到6+6i之间的矩形图像：

z = x + I y;

ArrayPlot[Table[z, {y, -6, 6, .01}, {x, -6, 6, .01}],  Frame -> False,

  ColorFunction -> Hue]

本文，所花图像都介于这个范围之间。

2、Abs[z]的图像。

3、Re[z]和Im[z]的图像。

4、Abs[1/z]的图像。

5、Abs[1/(z + 12)]的图像。

6、Abs[E^z]的图像。

7、令f[z_]:=Abs[Log[Sin[Log[Cos[z]]]]]，那么，下图是f[z]的图像。

8、f[z^2]的图像。

9、f[z^3]的图像。

10、g[z_] := Im[Log[Sin[Log[Cos[z]]]]]

g[z]的图像。

11、g[z^2]的图像。

12、g[z^3]的图像。