两点显著线分形：由几何作图递推出的“Fractal”结构

GeoGebra 命令及参数

1. Polygon(A, B, 6) → poly1, f, F, g, h, i, j, k, C, D, E
2. Random(1, 6) → r
3. Polygon(B, A, 6) → poly2, l, J, m, p, q, t, a, G, H, I
4. Dilate(C, If[b ≤ 1 ∧ b ≥ 0, b, 1], K) → C'
5. Dilate(D, If[b ≤ 1 ∧ b ≥ 0, b, 1], K) → D'
6. Segment(D', K) → c
7. Segment(K, C') → d
8. AngularBisector(C, D, K) → e
9. AngularBisector(D, K, C) → f_1
10. AngularBisector(D, C, K) → g_1
11. Intersect(e, d) → O
12. Intersect(g_1, c) → P
13. Intersect(f_1, h) → Q
14. Dilate(O, If[b ≤ 2 ∧ b ≥ 1, b - 1], D) → O'
15. Dilate(P, If[b ≤ 2 ∧ b ≥ 1, b - 1], C) → P'
16. Segment(P', C) → h_1
17. Segment(O', D) → i_1
18. Intersect(i_1, h_1) → S
19. Dilate(J, If[o ≤ 1 ∧ o ≥ 0, o, 1], L) → J'
20. Dilate(I, If[o ≤ 1 ∧ o ≥ 0, o, 1], L) → I'
21. Segment(L, J') → k_1
22. Segment(L, I') → l_1
23. Midpoint(L, I') → R
24. Midpoint(L, J') → T
25. Midpoint(t) → U
26. Dilate(T, If[o ≤ 2 ∧ o ≥ 1, o - 1], I) → T'
27. Dilate(U, If[o ≤ 2 ∧ o ≥ 1, o - 1], L) → U'
28. Dilate(R, If[o ≤ 2 ∧ o ≥ 1, o - 1], J) → R'
29. Segment(L, U') → m_1
30. Segment(J, R') → p_1
31. Segment(T', I) → q_1
32. Intersect(q_1, m_1) → V
33. Dilate(Q, If[b ≤ 2 ∧ b ≥ 1, b - 1], K) → Q'
34. Segment(Q', K) → r_1