圆内等距弦的动态演示

GeoGebra 命令及参数

1. Circle(A, B) → c
2. Point(c) → C
3. Point(c) → D
4. Segment(A, C) → a
5. Segment(A, D) → b
6. Intersect(e, a, 1) → E
7. Intersect(e, b, 1) → F
8. OrthogonalLine(E, a) → f
9. OrthogonalLine(F, b) → g
10. Intersect(c, f, 2) → G
11. Intersect(c, f, 1) → H
12. Intersect(c, g, 1) → I
13. Intersect(c, g, 2) → J
14. Segment(G, H) → j
15. Segment(I, J) → k
16. Dilate(A, If[0 < h ≤ 1, 1 - h, 0], E) → A'
17. Dilate(A, If[0 < h ≤ 1, 1 - h, 0], F) → A'_1
18. Segment(A, A') → i
19. Segment(A, A'_1) → l
20. Min(d, m) → n
21. Circle(E, (0.25 * n)) → p
22. Circle(F, (0.25 * n)) → q
23. Segment(A, E) → r
24. Segment(A, F) → s
25. Intersect(p, r) → K,
26. Intersect(q, s) → L,
27. Intersect(q, k) → M, N
28. Intersect(p, j) → O, P
29. CircleSector(F, N, L) → c_1
30. CircleSector(E, K, P) → t
31. Rotate(t, If[1.5 < h ≤ 2.5, ((-(h - 1.5)) * π / 2), ((-π)) / 2], E) → t'
32. Rotate(c_1, If[2.5 < h ≤ 3.5, ((h - 2.5) * π / 2), π / 2], F) → d_1
33. Angle(F, A, E) → α
34. Rotate(A, If[3.5 < h ≤ 4.5, ((-(h - 3.5)) * α), (-α)], A) → A'_2
35. Rotate(A', If[3.5 < h ≤ 4.5, ((-(h - 3.5)) * α), (-α)], A) → A''
36. Segment(A'_2, A'') → i'
37. Dilate(H, If[0 < h ≤ 1, 1 - h, 0], G) → H'
38. Segment(H, H') → f_1
39. Dilate(I, If[0 < h ≤ 1, 1 - h, 0], J) → I'
40. Segment(I, I') → g_1
41. Line(J, f_1) → h_1
42. Point(h_1) → Q
43. Angle(Q, J, I) → β
44. Dilate(H, If[5 < h ≤ 6, 6 - h, 0], J) → H'_1
45. Vector(H, H'_1) → u
46. Translate(H, u) → H'_2
47. Translate(H', u) → H''
48. Segment(H'_2, H'') → i_1
49. Rotate(H'_2, If[6 < h ≤ 7, ((h - 6) * β), β], J) → R
50. Rotate(H'', If[6 < h ≤ 7, ((h - 6) * β), β], J) → H'''
51. Segment(R, H''') → j_1