如何用mathematica在圆的周长上生成6个点？

【问题标题】：How to generate 6 points on the perimeter of the circle with mathemathica?如何用mathematica在圆的周长上生成6个点？
【发布时间】：2021-04-11 09:04:58
【问题描述】：

如何用mathematica在圆的周长上生成6个点？积分不应平均分配。非常感谢

【问题讨论】：

数学专家可以在这里回答您的问题：math.stackexchange.com.

标签： geometry wolfram-mathematica points mathematica-8

【解决方案1】：

这是你要找的吗？

Table[{t=RandomReal[{0,2Pi}];Cos[t],Sin[t]},{6}]

或者你想显示这样的？

Graphics[Point[Table[{t=RandomReal[{0,2Pi}];Cos[t],Sin[t]},{6}]]]

或

points=Table[p=RandomReal[{0,2Pi}];{Cos[p],Sin[p]},{6}];
Print[points]
ParametricPlot[{Cos[phi],Sin[phi]},{phi,0,2Pi},
  Epilog->{PointSize[Large],Map[Point,points]}]

【讨论】：

谢谢。第二个版本看起来像我需要的。但他们必须在一个圆圈上。我不知道如何查看这些点的坐标