分数等价性可视化：用几何图形理解分数相等

GeoGebra 命令及参数

1. GCD(n_1, d_1) → h
2. Segment(A, B) → a
3. RandomNormal(2, 4) → c
4. RandomBinomial(2, 3) → b
5. Binomial(4, 2) → d
6. Sequence((x(D) + i * a / d_1, y(D)), i, 0, d_1) → Pointbas
7. Sequence((x(A) + i * a / d_1, y(A)), i, 0, d_1) → Pointhaut
8. Sequence(Segment[Element[Pointhaut, i], Element[Pointbas, i]], i, 1, d_1 + 1) → liste1
9. Polygon(A, B, C, D) → Total, a_2, b_1, c_1, d_4
10. Polygon(A, D, Element[Pointbas, n_1 + 1], Element[Pointhaut, n_1 + 1]) → Morceau, a_1, d_3, i, j
11. Polygon(E, F, H, G) → poly1, e, f_1, h_1, g_1
12. Sequence((x(G) + i * e / (d_1 / h), y(G)), i, 0, d_1 / h) → L2
13. Sequence((x(E) + i * e / (d_1 / h), y(E)), i, 0, d_1 / h) → L3
14. Sequence(Segment[Element[L3, i], Element[L2, i]], i, 1, d_1 / h + 1) → liste2
15. Polygon(E, G, Element[L2, n_1 / h + 1], Element[L3, n_1 / h + 1]) → poly2, e_1, g, f, k
16. Line(A, yAxis) → l
17. If(h * h ≟ 1, 0, 5) → Vitesse