代数带状图示例 by artipal81

GeoGebra 命令及参数

1. Textfield(m) → InputBox1
2. Textfield(text5) → InputBox2
3. Textfield(n) → InputBox3
4. Textfield(text6) → InputBox4
5. Textfield(text7) → InputBox5
6. Polygon(A, B, C, D) → poly1, a_1, b, c, d
7. Point(poly1) → E
8. Segment(E, F) → f
9. Midpoint(D, F) → G
10. Midpoint(F, C) → H
11. Sequence(Segment[A + ((i_1 * (k - 1)), 0), A + ((i_1 * (k - 1)), h)], k, 1, m) → list1
12. Sequence(Segment[E + ((i_2 * (p - 1)), 0), E + ((i_2 * (p - 1)), h)], p, 1, n) → list2
13. Sequence(Segment[A + ((i_3 * (k - 1)), 0), A + ((i_3 * (k - 1)), h)], k, 1, m) → list3
14. Sequence(Text[text6, (x(E) + (r * i_2) + i_2 / (n + 1), 0.7)], r, 0, n - 1) → list2t
15. Sequence(Text[text5, (x(A) + (q * i_3) + i_3 / (m + 1), 0.7)], q, 0, m - 1) → list3t
16. Sequence(Text[text5, (x(A) + (q * i_1) + i_1 / (m + 1), 0.7)], q, 0, m - 1) → list1t