旋转对称的直观演示：风筝形与内切圆

GeoGebra 命令及参数

1. SelectedIndex(Bahasa) → nn
2. Line(O, yAxis) → f
3. Circle(O, Rd) → c
4. Point(c) → C
5. Intersect(c, f, 2) → A
6. Angle(C, O, A) → α
7. If(round(α / ° / (360 / a)) ≟ 0, a, round(α / ° / (360 / a))) → Near
8. Sequence(Rotate[A, (((-n) * 360 / a))°, O], n, 1, a) → Pt0
9. If(Distance[C, Pt0(Near)] < 0.15, Pt0(Near), C) → P
10. DynamicCoordinates(C, x(P), y(P)) → B
11. Circle(Rotate[B, (360 / a)°, O], Jarak) → e
12. Circle(B, Jarak) → d
13. Intersect(d, e) → F, G, ,
14. If(Distance[O, F] < Distance[O, G], F, G) → H
15. If(nn ≟ 1, {"Shape 1", "Shape 2", "Shape 3", "Shape 4", "Shape 5", "Shape 6"}, {"Bentuk 1", "Bentuk 2", "Bentuk 3", "Bentuk 4", "Bentuk 5", "Bentuk 6"}) → Bentuk
16. SelectedIndex(Bentuk) → m
17. Sequence(Rotate[H, ((n * 360 / a))°, O], n, 1, a) → Pt2
18. Sequence(Rotate[B, ((n * 360 / a))°, O], n, 1, a) → Pt1
19. Join(Sequence[{Pt1(n), Pt2(n)}, n, 1, a]) → PolyPtA
20. Polygon(PolyPtA) → Bentuk1
21. Segment(O, A) → h
22. Angle(B, O, A) → β
23. Segment(O, B) → j
24. Join(Sequence[{Pt1(n), Pt1(n + 1), Pt2(n), Pt2(a - n + 1)}, n, 1, a, 2]) → PolyPtC
25. Polygon(PolyPtC) → Bentuk3
26. Join(Sequence[{Pt1(n), Pt1(n + 1), Pt2(n + 1)}, n, 1, a, 2]) → PolyPtB
27. Polygon(PolyPtB) → Bentuk2
28. Join(Sequence[{Pt1(n), Pt2(a - n + 1)}, n, 1, a]) → PolyPtE
29. Polygon(PolyPtE) → Bentuk5
30. Join(Sequence[{Pt1(n), Pt1(n + 1), Pt2(n)}, n, 1, a, 2]) → PolyPtD
31. Polygon(PolyPtD) → Bentuk4
32. If(Distance[O, F] < Distance[O, G], G, F) → J
33. Sequence(Rotate[J, ((n * 360 / a))°, O], n, 1, a) → Pt3
34. Join(Sequence[{Pt1(n), Pt2(n), Pt3(n), Pt2(n + 1)}, n, 1, a, 2]) → PolyPtF
35. Polygon(PolyPtF) → Bentuk6