同分数的不同视角

GeoGebra 命令及参数

1. Circle(D, Zoom) → d_1
2. Circle(D, (0.25 * Zoom)) → t
3. Circle(D, (2 * Zoom)) → p
4. Point(p) → M
5. Segment(D, M) → l
6. Intersect(t, l) → Q,
7. OrthogonalLine(D, l) → n
8. Intersect(d_1, n) → N, O
9. Ellipse(N, O, Q) → b
10. Circle(C, (2 * Zoom)) → q
11. Circle(J, (3 * Zoom)) → k
12. Circle(B, (4 * Zoom)) → f
13. Circle(A, Zoom) → e
14. Point(e) → E
15. Point(f) → F
16. Sequence(Rotate[E, i, A], i, 0, 6.283185307179586, (2 * π / Den)) → liste1
17. Sequence(Translate[B, Vector[(i * Vector[B, F])]], i, 0, 1, 1 / Den) → liste2
18. Point(k) → K
19. CurveCartesian(x(D) + (Zoom * cos(i)), y(D) + ((0.25 * Zoom) * sin(i)), i, 0, 6.28319) → b_1
20. Sequence(Translate[J, Vector[(i * Vector[J, K])]], i, 0, 1, 1 / Den) → liste3
21. Segment(B, F) → c
22. Circle(A, E) → d
23. Sequence(Translate[b, Vector[(i * Vector[D, M])]], i, 0, 1, 1 / Den) → liste5
24. Point(q) → G
25. Segment(J, K) → j
26. Sequence(Polygon[Element[liste3, i], Element[liste3, i + 1], 4], i, 1, Length[liste3]) → liste3b
27. Segment(C, G) → g
28. OrthogonalLine(C, g) → h
29. Circle(C, (1.5 * Zoom)) → s
30. Intersect(s, h) → H, L
31. Line(L, g) → i
32. Line(G, h) → m
33. Intersect(i, m) → I
34. Polygon(C, G, I, L) → poly1, c_1, g_1, i_1, l_1
35. Sequence(Translate[C, Vector[(i * Vector[C, G])]], i, 0, 1, 1 / Den) → liste4
36. Sequence(Translate[L, Vector[(i * Vector[C, G])]], i, 0, 1, 1 / Den) → liste6
37. Sequence(Segment[A, Element[liste1, i]], i, 1, Length[liste1]) → liste7
38. Sequence(Segment[Element[liste4, i], Element[liste6, i]], i, 1, Length[liste6]) → liste8
39. Element(liste1, Num + 1) → AA
40. CircleSector(A, E, AA) → e_1
41. Element(liste2, Num + 1) → BB
42. Segment(B, BB) → a_1
43. Take(liste5, 1, Num + 1) → liste9
44. Element(liste4, Num + 1) → CC
45. Element(liste6, Num + 1) → LL
46. Polygon(C, CC, LL, L) → poly2, c_2, cc, ll, l_2
47. Take(liste3b, 1, Num) → liste10
48. Line(M, n) → f_1
49. Intersect(b, n) → P, R
50. Line(R, l) → h_1
51. Line(P, h_1) → j_1
52. Intersect(f_1, h_1) → S
53. Intersect(f_1, j_1) → T
54. Segment(S, R) → k_1
55. Segment(T, P) → m_1
56. Vector(V, W) → u
57. Vector(Z, A_1) → v
58. Vector(B_1, C_1) → w
59. Vector(D_1, E_1) → z
60. Vector(F_1, G_1) → r
61. Circle(D, pp) → p_1
62. Intersect(p_1, l) → J_1,
63. Sequence(Translate[b, Vector[(i * Vector[D, J_1])]], i, 0, 1, 0.01) → liste11
64. Vector(K_1, L_1) → u_1