【Mathematica】绘制辐散状的色相图

1、首先，构造如下点阵，相应点用其坐标代替。

2、算出每一个点与原点的连线，与向量{1,0}的夹角：

3、绘制上面矩阵的色相图：

4、这并不是文章开始的那种色相图，反而是轴对称的。这是因为向量{m,n}与{1,0}的夹角，等于向量{m,-n}与{1,0}的夹角。需要进一步整理：

5、进一步提高精度：

6、把精度在提高10倍，运行时间长达一分钟：