等价分数 by The Central Maths Hub

GeoGebra 命令及参数

1. Polygon((0, -3), (5, -3), (5, -1), (0, -1)) → poly1, a, b, c, d
2. Textfield(N) → inputBox1
3. Textfield(D) → inputBox2
4. Sequence(Polygon[(i, -3), (i + S, -3), (i + S, -1), (i, -1)], i, 0, 5 - S, S) → UnitCut
5. Sequence(Polygon[(i, -3), (i + S, -3), (i + S, -1), (i, -1)], i, 0, (S * (N - 1)), S) → TheFrac
6. Sequence(Polygon[(i, -3), (i + S / vp, -3), (i + S / vp, -1), (i, -1)], i, 0, Max[(S * (N - 1 / vp)), 5 - S / vp], S / vp) → VCut
7. Sequence(Polygon[(0, i), (0, i + T), (Max[5, (S * N)], i + T), (Max[5, (S * N)], i)], i, -3, -1 - T, T) → HCut