阿基米德与平行四边形的重心

GeoGebra 命令及参数

1. Point(Ray[C, C - (1, 0)]) → B
2. Segment(A, D) → f
3. Segment(D, C) → g
4. Segment(C, B) → h
5. Segment(B, A) → i
6. Midpoint(f) → E
7. Midpoint(h) → F
8. Segment(E, F) → j
9. Line(H, f) → k
10. Intersect(k, j) → K
11. Segment(K, H) → l
12. Distance(E, D) → ED
13. Distance(K, H) → KH
14. Sequence(E + ((k * a), 0), k, 1, ceil(ED / KH)) → L_1
15. Sequence(F + ((k * a), 0), k, 1, ceil(ED / KH)) → L_2
16. Sequence(Segment[Element[L_1, k], Element[L_2, k]], k, 1, ceil(ED / KH)) → L_3
17. Sequence(E - ((k * a), 0), k, 1, ceil(ED / KH)) → L_4
18. Sequence(F - ((k * a), 0), k, 1, ceil(ED / KH)) → L_5
19. Sequence(Segment[Element[L_4, k], Element[L_5, k]], k, 1, ceil(ED / KH)) → L_6
20. Distance(A, D) → AD
21. Distance(A, B) → AB
22. Intersect(k, i) → J
23. Distance(A, J) → AJ
24. Element(Last[L_4], 1) → L
25. Sequence(G + (k * Vector[A, D] / ((2 * c))), k, 1, (2 * c) - 1) → L_7
26. Segment(Element[L_7, c - 1], Element[L_7, c]) → m
27. Midpoint(m) → I