Mathematica绘制彩色圆盘

  • A+
所属分类:美丽的图像
摘要这一篇文章会介绍一下如何使用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的图标。

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: