算术平均数与几何平均数的比较

GeoGebra 命令及参数

1. Line(A, B) → f
2. Point(f) → C
3. Segment(A, C) → g
4. Segment(C, B) → h
5. Dilate(C, If[0 < a < 1, a, a ≟ 0, 0, 1], A) → C'
6. Dilate(B, If[1 < a < 2, a - 1, a < 1, 0, a > 2, 1], C) → B'
7. Midpoint(A, B) → D
8. Rotate(B, If[2 < a ≤ 3, (((a * 90))°) / 0.5, a < 2, 0, a > 3, 180°], D) → B'_1
9. CircleArc(D, B, B'_1) → c
10. OrthogonalLine(C, f) → i
11. OrthogonalLine(D, f) → j
12. Intersect(c, i, 1) → E
13. Intersect(c, j, 1) → F
14. Dilate(F, If[3 < a ≤ 4, a - 3, a < 3, 0, a > 4, 1], D) → F'
15. Segment(F', D) → k
16. Dilate(E, If[4 < a ≤ 5, a - 4, a < 4, 0, a > 5, 1], C) → E'
17. Segment(E', C) → l
18. Midpoint(l) → G
19. Midpoint(k) → H
20. Segment(A, C') → m
21. Segment(C, B') → n
22. Midpoint(A, C) → I
23. Midpoint(C, B) → J