【Mathematica】绘制彩虹

1、先来绘制七彩的圆盘各一个：

2、再来对比它们的色相：

3、画一条长条形的彩虹：

data = (Range[100]*0 + 1)*Hue[h[#]/360] & /@ colors;

4、再来画一个颜色渐变过渡的长条彩虹：

5、重新清洗数据，再次画图：

6、进行图形变换，得到拱形彩虹：