自然数乘法可视化 by user25677_1

GeoGebra 命令及参数

1. Point(Circle[A, abs(Columns)]) → B
2. Segment(A, B) → b
3. OrthogonalLine(A, b) → c
4. OrthogonalLine(B, b) → d
5. Circle(A, Rows) → e
6. Intersect(e, c, 2) → C
7. Line(C, b) → f
8. Intersect(d, f) → D
9. Polygon(A, B, D, C) → poly1, a_1, b_1, d_1, c_1
10. Sequence(Segment[A + (i * (1, 0)), C + (i * (1, 0))], i, 1, Columns) → list1
11. Sequence(Segment[A + (i * (0, 1)), B + (i * (0, 1))], i, 1, Rows) → list2