分数条形乘法

GeoGebra 命令及参数

1. Polygon({(0, -3), (5, -3), (5, -1), (0, -1)}) → Unit, a, b, c, d
2. Textfield(n1) → inputBox1
3. Textfield(d1) → inputBox2
4. Textfield(n2) → inputBox3
5. Textfield(d2) → inputBox4
6. Sequence(Polygon[(0, i), (5 * n1 / d1, i), (5 * n1 / d1, i + step_2), (0, i + step_2)], i, -3, -3 + step_2 * (n2 - 1), step_2) → list2
7. Polygon((0, -3), (5, -3), (5, -1), (0, -1)) → poly1, e, f, g, h
8. Sequence(Polygon[(i, -3), (i + step_1, -3), (i + step_1, -3 + step_2 * n2), (i, -3 + step_2 * n2)], i, 0, 5 * n1 / d1 - step_1, step_1) → list1
9. Sequence(Polygon[(0, i), (Max[5 * n1 / d1, 5], i), (Max[5 * n1 / d1, 5], i + step_2), (0, i + step_2)], i, -3, Max[-3 + step_2 * (n2 - 1), -1 - step_2], step_2) → list3
10. Sequence(Polygon[(i, -3), (i + step_1, -3), (i + step_1, Max[-3 + step_2 * n2, -1]), (i, Max[-3 + step_2 * n2, -1])], i, 0, Max[5 * n1 / d1 - step_1, 5 - step_1], step_1) → list4