反射复合：几何变换与函数图像

GeoGebra 命令及参数

1. Line(A_3, A_4) → t
2. Line(A_1, A_2) → m
3. Intersect(m, t) → corte
4. Element(puntos, n) → P
5. Mirror(Mirror[P, m], t) → punto
6. Element(vectores, n) → v
7. If(n > 16, "R", "T") → mov
8. Element(ángulos, n - 16) → α
9. Element(centros, n - 16) → O
10. If(mov ≟ "T", Translate[P, v], Rotate[P, α, O]) → P'
11. Polygon(A_5, B, C, D) → fig1, a, b, c, d
12. Point(yAxis) → H
13. Point(yAxis) → I
14. Polygon(E, F, G, H, I) → fig2, e, f, g, h, i
15. Point(xAxis) → J
16. Polygon(J, K, L, M, N, O_1) → fig3, j, k, l, m_1, n_1, o
17. Polygon(P_1, Q, R, S, T) → fig4, p, q, r, s, fig4_1
18. Element(figuras, If[n < 17, Div[n - 1, 4] + 1, Div[n - 17, 4] + 1]) → fig
19. Translate(A_5, v) → A'
20. Translate(B, v) → B'
21. Translate(C, v) → C'
22. If(mov ≟ "T", Translate[fig, v], Rotate[fig, α, O]) → imagen
23. Translate(D, v) → D'
24. Vector(P, P') → u
25. PolyLine(P, O, P') → lados
26. If(mov ≟ "R", cond1 ∧ cond2, cond1) → pronto
27. Angle(P, O, P') → β
28. Mirror(fig, m) → fig'
29. Mirror(fig', t) → fig''