多边形与弦：综合版

GeoGebra 命令及参数

1. Sequence((R1; 2 * π / N * i), i, 1, N) → l1a
2. Append(l1a, Element[l1a, 1]) → p0a
3. Sequence(Element[p0a, 1] + (Element[p0a, 2] - Element[p0a, 1]) * (1 - i / n), i, 0, n) → p6
4. Sequence((R2; π / N * (2 * i + 1)), i, 1, N) → p0b
5. Sequence(Element[p0a, 2] + (Element[p0b, 1] - Element[p0a, 2]) * (1 - i / n), i, 0, n) → p2
6. Sequence(Element[p0a, 2] * (1 - i / n), i, 0, n) → p5
7. Sequence(Element[p0b, 1] * (1 - i / n), i, 0, n) → p3
8. Sequence(Element[p0a, 1] * (1 - i / n), i, 0, n) → p4
9. Sequence(Element[p0a, 1] + (Element[p0b, 1] - Element[p0a, 1]) * (1 - i / n), i, 0, n) → p1
10. Circle(A, R1) → c
11. Circle(A, R2) → d
12. Sequence(Segment[Element[l1a, i], Element[p0b, i]], i, 1, N) → l2a
13. Sequence(Segment[Element[p1, i], Element[p2, n12 - i + 1]], i, 1, n12) → s0_{12}
14. Sequence(Segment[Element[p0a, i + 1], Element[p0b, i]], i, 1, N) → l2b
15. Sequence(Segment[Element[p4, i], Element[p3, n34 - i + 1]], i, 1, n34) → s0_{34}
16. Sequence(Rotate[s0_{12}, 2 * π / N * i], i, 1, N) → ss_{12}
17. Mirror(s0_{34}, Line[A, Element[p0a, 1]]) → s0'_{34}
18. Sequence(Segment[Element[p2, i], Element[p3, n23 - i + 1]], i, 1, n23) → s0_{23}
19. Mirror(s0_{23}, Line[A, Element[p0b, 1]]) → s0'_{23}
20. Sequence(Segment[Element[p4, i], Element[p5, n45 - i + 1]], i, 1, n45) → s0_{45}
21. Mirror(s0_{45}, Line[A, Element[p0b, 1]]) → s0'_{45}
22. Sequence(Rotate[ss0_{13}, 2 * π / N * i], i, 1, N) → ss_{45}
23. Sequence(Rotate[ss0_{34}, 2 * π / N * i], i, 1, N) → ss_{34}
24. Sequence(Rotate[ss0_{23}, 2 * π / N * i], i, 1, N) → ss_{23}
25. Sequence(Segment[Element[p4, i], Element[p1, i]], i, 1, n14) → s0_{14}
26. Mirror(s0_{14}, Line[A, Element[p0b, 1]]) → s0'_{14}
27. Sequence(Rotate[ss0_{14}, 2 * π / N * i], i, 1, N) → ss_{14}
28. Sequence(Segment[Element[p1, i], Element[p5, n15 - i + 1]], i, 1, n15) → s0_{15}
29. Mirror(s0_{15}, Line[A, Element[p0b, 1]]) → s0'_{15}
30. Sequence(Rotate[ss0_{15}, 2 * π / N * i], i, 1, N) → ss_{15}
31. Sequence(Segment[Element[p2, i], Element[p6, i]], i, 1, n26) → s0_{26}
32. Mirror(s0_{26}, Line[A, Element[p0b, 1]]) → s0'_{26}
33. Sequence(Rotate[ss0_{26}, 2 * π / N * i], i, 1, N) → ss_{26}
34. Sequence(Segment[Element[p2, i], Element[p5, i]], i, 1, n56) → s0_{25}
35. Sequence(Segment[Element[p5, i], Element[p6, n56 + 1 - i]], i, 1, n56) → s0_{56}
36. Mirror(s0_{56}, Line[A, Element[p0b, 1]]) → s0'_{56}
37. Sequence(Rotate[ss0_{56}, 2 * π / N * i], i, 1, N) → ss_{56}
38. Sequence(Segment[Element[p3, i], Element[p6, i]], i, 1, n36) → s0_{36}
39. Sequence(Rotate[s0_{36}, 2 * π / N * i], i, 1, N) → ss_{36}