两个分数条：用滑块直观比较分数大小

GeoGebra 命令及参数

1. Segment(A, B) → c
2. Dilate(A, 0.3333333333333333, B) → A'
3. Dilate(A, 0.6666666666666666, B) → A'_1
4. OrthogonalLine(A, c) → d
5. Point(d) → C
6. Point(d) → D
7. Vector(A, C) → u
8. Translate(A'_1, u) → E
9. Translate(A', u) → A''
10. Translate(B, u) → B'
11. Vector(A, D) → v
12. Translate(A'_1, v) → F
13. Translate(A', v) → A''_1
14. Translate(B, v) → B'_1
15. Translate(C, v) → C'
16. Translate(E, v) → E'
17. Translate(A'', v) → A'''
18. Translate(B', v) → B''
19. Segment(A, C) → e
20. Segment(C, B') → f
21. Segment(B', B) → g
22. Segment(A', A'') → h
23. Segment(E, A'_1) → i
24. Segment(D, C') → j
25. Segment(C', B'') → k
26. Segment(B'', B'_1) → l
27. Segment(B'_1, D) → m
28. Segment(F, E') → n
29. Segment(A''_1, A''') → p
30. Sequence(Segment[(x(A) + (w * i / d1), y(C)), (x(A) + (w * i / d1), y(A))], i, 1, (3 * d1) - 1, 1) → list1
31. Sequence(Segment[(x(A) + (w * i / d2), y(C')), (x(A) + (w * i / d2), y(D))], i, 1, (3 * d2) - 1, 1) → list2
32. Polygon(A, C, (x(C) + (a * w / d1), y(C)), (x(A) + (a * w / d1), y(A))) → poly1, a_1, c_1, q, r
33. Polygon(D, C', (x(C') + (b * w / d2), y(C')), (x(D) + (b * w / d2), y(D))) → poly2, d_1, c', s, t