周长代数问题

GeoGebra 命令及参数

1. Point(Circle[A, abs(p)]) → B
2. Segment(A, B) → a
3. Polygon(A, B, 5) → poly1, b, c, d, e, f, C, D, E
4. Point(Circle[F, abs(t)]) → G
5. Segment(F, G) → g
6. Polygon(G, F, 4) → poly2, h, i, j, k, H, I
7. Point(Circle[J, abs(t + p)]) → K
8. Segment(J, K) → l
9. Point(Circle[K, abs((2 * p))]) → L
10. Segment(K, L) → m
11. Line(L, l) → n
12. Line(J, m) → q
13. Intersect(q, n) → M
14. Polygon(J, K, L, M) → poly3, j_1, k_1, l_1, m_1
15. Point(Circle[N, abs(p - t)]) → O
16. Segment(N, O) → r
17. Point(Circle[N, abs((3 * t))]) → P
18. Segment(N, P) → s
19. Line(P, r) → a_1
20. Line(O, s) → b_1
21. Intersect(b_1, a_1) → Q
22. Polygon(O, Q, P, N) → poly4, o, q_1, p_1, n_1
23. Point(Circle[R, abs((2 * t) - p)]) → S
24. Segment(R, S) → c_1
25. Point(Circle[S, abs(t)]) → T
26. Segment(S, T) → d_1
27. Polygon(R, S, T) → poly5, t_1, r_1, s_1
28. Angle(T, S, R) → α