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]]