Mathematica绘制彩色圆盘

今天再看Graphics的帮助文档的时候，看到里面有一个数字花的例子，然后想着能不能把里面的Circle换成Disk，最后调了一下透明度，就有了下面的图。

数字花

我们先看一下帮助文档里举的例子

Graphics[Table[{Hue[t/20], Circle[{Cos[2 Pi t/20], Sin[2 Pi t/20]}]}, {t, 20}]]

上面的代码可以画出下面的图来

下面我们尝试使用Circle换成Disk。

彩色圆盘

我们首先尝试直接替换

Graphics[Table[{Hue[t/20], Disk[{Cos[2 Pi t/20], Sin[2 Pi t/20]}]}, {t, 20}]]

上面的图可以得到下面的图来

可以看到不是很好看，应该需要加一点透明度。

Graphics[Table[{Hue[t/20, 1, .9, .3],Disk[{Cos[2 Pi t/20], Sin[2 Pi t/20]}]}, {t, 20}]]

最后就画出了下面的图来。

感觉有点想一个app的图标。