分数相乘 by Ibrahim El Hage

GeoGebra 命令及参数

1. Random(2, 10) → b
2. Random(1, b) → a
3. Random(2, 10) → d
4. Random(1, d) → c
5. Sequence((0, (k * 10 / b)), k, 0, b) → Points1
6. Sequence(((k * 10 / d), 0), k, 0, d) → Points2
7. Rectangle(O, 10, 10) → poly1
8. Sequence(Rectangle[Element[Points1, k], 10, 10 / b], k, 1, a) → Rectangles1
9. Sequence(Rectangle[Element[Points2, k], 10 / d, 10], k, 1, c) → Rectangles2
10. Rectangle(O, (c * 10 / d), (a * 10 / b)) → poly3
11. Sequence(Segment[Element[Points1, k], Element[Points1, k] + (10, 0)], k, 1, 9) → segments1
12. Sequence(Segment[Element[Points2, k], Element[Points2, k] + (0, 10)], k, 1, 9) → segments2