分数除法演示 by Alberto Ugarte

GeoGebra 命令及参数

1. LCM(b, d) → o
2. DivPoint(B, C, o) → list8
3. DivPoint(A, D, o) → list7
4. Polygon(E, F, G, H) → poly2, e, f_2, g, h
5. Segment(I, J) → i
6. Segment(K, L) → j
7. Textfield(a) → InputBox1
8. Textfield(b) → InputBox2
9. Textfield(c) → InputBox3
10. Textfield(d) → InputBox4
11. Polygon(A, D, C, B) → poly1, a_1, d_1, c_1, b_1
12. DivPoint(A, D, b) → list1
13. DivPoint(B, C, b) → list2
14. DivPoint(E, F, d) → list3
15. DivPoint(H, G, d) → list4
16. Sequence(Segment[Element[list1, i], Element[list2, i]], i, 1, b) → list5
17. Sequence(Segment[Element[list3, i], Element[list4, i]], i, 1, d) → list6
18. Polygon(A, Element[list1, a], Element[list2, a], B) → poly3, a_2, k, l, b_2
19. Polygon(E, Element[list3, c], Element[list4, c], H) → poly4, e_1, m, n, h_1
20. DivPoint(E, F, o) → list9
21. DivPoint(H, G, o) → list10
22. Sequence(Segment[Element[list7, i], Element[list8, i]], i, 1, o) → list11
23. Sequence(Segment[Element[list9, i], Element[list10, i]], i, 1, o) → list12
24. Polygon(A, Element[list7, t], Element[list8, t], B) → poly5, q, r, f_1, g_1
25. Sequence(Polygon[Element[list7, (t * i)], Element[list7, (t * (i + 1))], Element[list8, (t * (i + 1))], Element[list8, (t * i)]], i, 1, p - 1) → list13