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