p[r_] := Flatten[
Table[t + # & /@ (ReIm[r*E^(I*#*Pi/10)] & /@ Range[20]), {t,
Flatten[Table[2 {m, n}, {m, 0, 5, 1}, {n, 0, 5, 1}], 1]}], 1];
Manipulate[
Graphics[{Green, PointSize[0.02], Point[p[r][[1 ;; n]]]},
PlotRange -> {{-2.2, 12.2}, {-2.2, 12.2}},
ImageSize -> {300, 300}], {n, 1, Length[p[r]], 1}, {r, 0.1, 2}]
Mathematica代码
最新推荐文章于 2024-08-01 09:36:26 发布