多边形问题12, 3, 9

GeoGebra 命令及参数

1. Circle(A, 12) → c
2. Point(c) → P
3. Tangent(P, c) → f,
4. Circle(P, 3) → d
5. Intersect(d, f) → F, D_1
6. If(0 ≤ k ≤ (1 / 6 * π), 0, k - (1 / 6 * π)) → μ
7. If(0 ≤ k ≤ (1 / 6 * π), k, (1 / 6 * π)) → λ
8. Rotate(F, (-λ), A) → F'
9. Rotate(P, (-λ), A) → P'
10. Vector(F', P') → v
11. Tangent(F, d) → g,
12. Circle(F, 9) → e
13. Intersect(e, g) → E, D
14. Segment(A, P) → h
15. Segment(P, F) → i
16. Segment(F, D) → j
17. Polygon(A, B, D, C) → c1, a, g_1, f_1, h_1
18. Angle(F, P, A) → α
19. Angle(P, F, D) → β_1
20. Polygon(A, B, D, C) → c2, a_1, g_2, f_2, h_2
21. Segment(A, D) → m
22. Rotate(D, (-λ), A) → D'
23. Segment(A, P') → h'
24. Segment(F', P') → i'
25. Segment(F', D') → j'
26. Segment(A, D') → m'
27. Translate(F', Vector[(λ / 3 * (0, -1))]) → F''_1
28. Vector(F', D') → u
29. Translate(F', Vector[((1.5 * μ) * u)]) → P'_1
30. Translate(F', Vector[((1.5 * μ) * v)]) → F''
31. Translate(D', Vector[((1.5 * μ) * v)]) → D''
32. Segment(F'', D'') → q
33. Translate(P', Vector[((1.5 * μ) * u)]) → P''
34. Segment(P'_1, P'') → n
35. LineBisector(A, D') → p
36. Intersect(p, m') → G
37. Circle(G, A) → r
38. Intersect(r, p) → H, I
39. Polygon(I, D', H, A) → c3, i_1, d', h_3, a_2