GoGeometry Action 134!

GeoGebra Commands & Parameters

1. Circle(O, B_2) → c
2. Point(c) → A
3. Point(c) → B
4. Line(A, B) → l
5. Point(c) → C
6. Circle(C, 3) → e
7. Line(O, C) → f
8. OrthogonalLine(C, f) → g
9. Intersect(e, g, 2) → D
10. Ray(C, D) → h
11. Intersect(l, h) → F
12. Dilate(F, If[1 < a ≤ 2, 2 - a, 0], C) → F'
13. Circle(F, C) → p
14. Point(p) → P
15. Angle(C, F, P) → β
16. Circle(C, O) → d
17. Polygon(C, B, A) → t1, g_1, c_1, f_1
18. Segment(A, B) → i
19. Segment(B, C) → j
20. Segment(C, A) → k
21. Line(A, P) → m
22. Line(B, P) → n
23. Line(C, P) → q
24. Intersect(c, n, 2) → B_1
25. Intersect(c, m, 2) → A_1
26. Intersect(c, q) → E, C_1
27. Distance(B_1, C_1) → distanceB1C1
28. Distance(C_1, A_1) → distanceC1A1
29. Dilate(B, If[0 < a ≤ 1, 1 - a, 0], F) → B'
30. Segment(B, B') → r
31. Dilate(O, If[1 < a ≤ 2, 2 - a, 0], C) → O'
32. Segment(O, O') → s
33. Segment(F, F') → t
34. Angle(F, C, O) → α
35. Rotate(C, If[2 < a ≤ 4, ((a - 2) * π), (2 * π)], F) → C'
36. Rotate(F, If[2 < a ≤ 4, ((a - 2) * π), (2 * π)], F) → F'_1
37. Rotate(C, If[2 < a ≤ 4, ((a - 2) * β / 2), β], F) → C'_1
38. Segment(F, C'_1) → b
39. CircleArc(F, C, C'_1) → d_1
40. Rotate(P, If[4 < a ≤ 5, ((a - 4) * ((2 * π) - β)), (2 * π) - β], F) → P'
41. Segment(F, P') → h_1
42. CircleArc(F, P, P') → e_1
43. Dilate(A, If[5 < a ≤ 6, 6 - a, 0], P) → A'
44. Segment(A, A') → i_1
45. Dilate(P, If[6 < a ≤ 7, 7 - a, 0], A_1) → P'_1
46. Segment(P, P'_1) → j_1
47. Dilate(B, If[7 < a ≤ 8, 8 - a, 0], P) → B'_1
48. Segment(B, B'_1) → k_1
49. Dilate(P, If[8 < a ≤ 9, 9 - a, 0], B_1) → P'_2
50. Segment(P, P'_2) → l_1
51. Dilate(C, If[9 < a ≤ 10, 10 - a, 0], P) → C'_2
52. Segment(C, C'_2) → m_1
53. Dilate(P, If[10 < a ≤ 11, 11 - a, 0], C_1) → P'_3
54. Segment(P, P'_3) → n_1
55. Angle(B_1, C_1, A_1) → γ
56. Dilate(B_1, If[12 < a ≤ 13, 13 - a, 0], C_1) → G
57. Segment(B_1, G) → p_1
58. Dilate(A_1, If[13 < a ≤ 14, 14 - a, 0], C_1) → H
59. Segment(A_1, H) → q_1
60. Rotate(A_1, If[15 < a ≤ 16, ((-(a - 15)) * γ), (-γ)], C_1) → I
61. Rotate(H, If[15 < a ≤ 16, ((-(a - 15)) * γ), (-γ)], C_1) → H'
62. Segment(I, H') → r_1