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}]
版权声明：本文为qq_34040902原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。