椭圆的多次反射

GeoGebra 命令及参数

1. Point(xAxis) → A
2. Ellipse(B, A, C) → c
3. Segment(A, C) → f
4. Sequence(Ray[A, Rotate[C, ((2 * π / n) * i), A]], i, 0, n) → L_1
5. Sequence(Intersect[c, Element[L_1, i]], i, 1, n) → L_2
6. Sequence(Segment[A, Element[L_2, i]], i, 1, n) → L_3
7. Sequence(Segment[B, Element[L_2, i]], i, 1, n) → L_4
8. Eccentricity(c) → a
9. Sequence(Vector[A, Element[L_2, i]], i, 1, n) → L_5
10. Sequence(Vector[Element[L_2, i], B], i, 1, n) → L_6
11. Sequence(Length[Element[L_5, i]], i, 1, n) → L_7
12. Sequence(Length[Element[L_6, i]], i, 1, n) → L_8
13. Sequence(Vector[Element[L_5, i] / Element[L_7, i]], i, 1, n) → L_9
14. Sequence(Vector[Element[L_6, i] / Element[L_8, i]], i, 1, n) → L_{10}
15. Sequence(If[d < Element[L_3, i], A + (d * Element[L_9, i])], i, 1, n) → L_{11}
16. Sequence(If[d > Element[L_3, i], Element[L_2, i] + ((d - Element[L_3, i]) * Element[L_{10}, i])], i, 1, n) → L_{12}
17. Sequence(If[d > Element[L_3, i], Segment[A, Element[L_2, i]]], i, 1, n) → L_{14}
18. Sequence(Segment[A, Element[L_{11}, i]], i, 1, n) → L_{13}
19. Sequence(Vector[A, Element[L_{11}, i]], i, 1, n) → L_{16}
20. Sequence(Segment[Element[L_2, i], Element[L_{12}, i]], i, 1, n) → L_{15}
21. Sequence(Vector[Element[L_2, i], Element[L_{12}, i]], i, 1, n) → L_{17}