如何用 Mathematica 制作如下晶体点阵

2026年09月26日 13:38
有1个网友回答
网友(1):

ListPlot[WeightedData[{2, 3, 5, 7, 11, 13, 17, 19, 23, 29}, {1, 2, 3,
4, 5, 6, 7, 8, 9, 10}]]