Incenter and Incircle Action (V2)

GeoGebra Commands & Parameters

1. Rotate(A, (a * π / 180), B) → A'
2. Angle(A, B, A') → α
3. Segment(B, A) → f
4. Ray(B, A') → g
5. Point(g) → C
6. Segment(A, C) → h
7. Segment(B, C) → i
8. Polygon(B, A, C) → t1, c, b, a_1
9. Angle(C, A, B) → β
10. Angle(B, C, A) → γ
11. Rotate(C, β / 2, A) → C'
12. Angle(C, A, C') → δ
13. Rotate(A, α / 2, B) → A'_1
14. Angle(A, B, A'_1) → ε
15. Rotate(B, γ / 2, C) → B'
16. Angle(B, C, B') → ζ
17. Ray(B, A'_1) → j
18. Ray(A, C') → k
19. Ray(C, B') → l
20. Intersect(j, k) → D
21. Min({i, f, h}) → d
22. Circle(B, (0.2 * d)) → e
23. Circle(A, (0.2 * d)) → p
24. Circle(C, (0.2 * d)) → q
25. OrthogonalLine(D, f) → m
26. OrthogonalLine(D, h) → n
27. OrthogonalLine(D, i) → r
28. Intersect(m, f) → E
29. Intersect(n, h) → F
30. Intersect(r, i) → G
31. Intersect(e, j, 1) → H
32. Intersect(p, k, 1) → I
33. Intersect(p, h, 1) → J
34. Intersect(e, f, 1) → K
35. Intersect(q, i) → L,
36. Intersect(q, l, 1) → M
37. Rotate(K, If[1 < o ≤ 2, ((o - 1) * ε), ε], B) → K'
38. Dilate(B, If[0 < o ≤ 1, 1 - o, 0], D) → B'_1
39. Segment(B, B'_1) → s
40. CircleSector(B, K, K') → t
41. Rotate(t, If[3 < o ≤ 4, ((o - 3) * ε), ε], B) → t'
42. Dilate(A, If[4 < o ≤ 5, 5 - o, 0], D) → A'_2
43. Segment(A, A'_2) → f_1
44. Rotate(J, If[5 < o ≤ 6, ((o - 5) * δ), δ], A) → J'
45. CircleSector(A, J, J') → c_1
46. Rotate(c_1, If[7 < o ≤ 8, ((o - 7) * δ), δ], A) → d_1
47. Dilate(C, If[8 < o ≤ 9, 9 - o, 0], D) → C'_1
48. Segment(C, C'_1) → h_1
49. Rotate(L, If[9 < o ≤ 10, ((o - 9) * ζ), ζ], C) → L'
50. CircleSector(C, L, L') → e_1
51. Rotate(e_1, If[11 < o ≤ 12, ((o - 11) * ζ), ζ], C) → k_1
52. Dilate(D, If[13 < o ≤ 14, 14 - o, 0], E) → D'
53. Dilate(D, If[14 < o ≤ 15, 15 - o, 0], F) → D'_1
54. Dilate(D, If[15 < o ≤ 16, 16 - o, 0], G) → D'_2
55. Segment(D, D') → i_1
56. Segment(D, D'_1) → j_1
57. Segment(D, D'_2) → l_1
58. Angle(D, E, B) → η
59. Angle(D, F, A) → θ
60. Angle(D, G, C) → ι
61. Angle(E, D, F) → κ
62. Angle(F, D, G) → λ
63. Rotate(D, If[17 < o ≤ 18, ((o - 17) * κ), κ], D) → D'_3
64. Rotate(D', If[17 < o ≤ 18, ((o - 17) * κ), κ], D) → D''
65. Segment(D'_3, D'') → m_1
66. Rotate(D'_3, If[18 < o ≤ 19, ((o - 18) * λ), λ], D) → P
67. Rotate(D'', If[18 < o ≤ 19, ((o - 18) * λ), λ], D) → D'''
68. Segment(P, D''') → n_1
69. Rotate(G, If[19 < o ≤ 21, ((o - 19) * π), (2 * π)], D) → G'
70. CircleArc(D, G, G') → p_1
71. Circle(D, E) → q_1