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

如何解决如何使用 mathemathica 在圆的周长上生成 6 个点？

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

解决方法

这是您要找的吗？

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

或者你想像这样显示那些？

Graphics[Point[Table[{t=RandomReal[{0,{6}]]]

或

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