Mathematica基础——球面上均匀分布的点阵

1、画出球面上均匀的若干点：

Graphics3D[Point[SpherePoints[365]]]

2、球面上均匀分布的四个点的一种特例的坐标：

SpherePoints[4]

返回的结果是浮点数的形式。

3、球面上均匀分布的3、2个点是什么样子呢？

Show[Graphics3D[{Green,Opacity[0.5],Sphere[]}],

     Graphics3D[{Red,PointSize[0.03],Point[SpherePoints[3]]}]]

Show[Graphics3D[{Green,Opacity[0.5],Sphere[]}],

      Graphics3D[{Red,PointSize[0.03],Point[SpherePoints[2]]}]]

4、圆上均匀分布的点：

CirclePoints[6]

5、画出正六边形中心到各顶点的箭头：

Graphics[Arrow[{{0,0},#}]&/@CirclePoints[6]]