分数比较 by Cina (2)

GeoGebra 命令及参数

1. LCM(den1, den2) → b
2. Sequence((-5 + i * 10 / den1, 0), i, 0, den1) → list1
3. Element(list1, 1) → c
4. Sequence((-5 + i * 10 / den1, 0.8), i, 0, den1) → list2
5. Sequence(Segment[Element[list1, i], Element[list2, i]], i, 1, den1 + 1) → list3
6. Sequence((-5 + i * 10 / den2, 0), i, 0, den2) → list4
7. Sequence((-5 + i * 10 / den2, -0.8), i, 0, den2) → list5
8. Sequence((-5 + i * 10 / b, 0), i, 0, b) → list7
9. Sequence(Segment[Element[list4, i], Element[list5, i]], i, 0, den2 + 1) → list6
10. Segment(D, C) → a
11. Polygon(E, F, J_1, K_1) → poly1, e, f, j_1, k_1
12. Polygon(H, G, K_2, J_2) → Poly2, h, g, k_2, j_2
13. Segment(J_1, K_11) → d
14. Segment(J_1, K_2) → i
15. Segment(K_2, K) → j
16. Segment(K_11, K) → k