选择性的多边形

GeoGebra 命令及参数

1. Point(y = y(A)) → B
2. Circle(A, B) → c
3. Sequence(Rotate[B, ((i / n * 360) + 180 / n)°, A], i, 1, n) → list1
4. Sequence((i / n * 360) + 180 / n, i, 1, n) → list1num
5. Sort(Take[Shuffle[list1num], 1, k]) → list1sub
6. Sequence(Rotate[B, Element[list1sub, i]°, A], i, 1, k) → list1poly
7. Polygon(list1poly) → poly1, , , ,
8. Textfield(guess) → inputBox1
9. If(b ∧ (k > 2), ((n! / ((k! * (n - k)!)) * 0.5) * (k - 1)!), n! / ((k! * (n - k)!))) → ans
10. Shuffle(list1poly) → list1poly2
11. Polygon(list1poly2) → poly2, , , ,