绘制直方图

GeoGebra 命令及参数

1. If(C2 - A2 > 0, C2 - A2 + A3 - C2, 5) → k
2. Point(Ray[(1.5 * k, 0), (1.5 * k, 1)]) → Q1
3. Point(Ray[(2.5 * k, 0), (2.5 * k, 1)]) → Q2
4. Point(Ray[(3.5 * k, 0), (3.5 * k, 1)]) → Q3
5. Point(Ray[(4.5 * k, 0), (4.5 * k, 1)]) → Q4
6. Point(Ray[(5.5 * k, 0), (5.5 * k, 1)]) → Q5
7. Point(Ray[(6.5 * k, 0), (6.5 * k, 1)]) → Q6
8. Point(Ray[(7.5 * k, 0), (7.5 * k, 1)]) → Q7
9. Point(Ray[(8.5 * k, 0), (8.5 * k, 1)]) → Q8
10. Point(Ray[(9.5 * k, 0), (9.5 * k, 1)]) → Q9
11. Point(Ray[(10.5 * k, 0), (10.5 * k, 1)]) → Q10
12. Polygon((unitx, 0.3), (unitx, -0.3), (2.5 * unitx, -0.3), (2.5 * unitx, 0.3)) → poly1, a, b, c, d
13. PolyLine((unitx, 0), (1.5 * unitx, h), (2 * unitx, -h), (2.5 * unitx, 0)) → e
14. Sequence(Polygon[(i * k, 0), ((i + 1) * k, 0), ((i + 1) * k, Element[list1, i]), (i * k, Element[list1, i])], i, 1, n - 1) → list2
15. Sequence(Segment[(xmin + xint2 * i, ymax), (xmin + xint2 * i, ymin)], i, 1, (xmax - xmin) / xint2) → list3
16. Sequence(Segment[(xmin, ymin + yint2 * i), (xmax, ymin + yint2 * i)], i, 1, (ymax - ymin) / yint2) → list4
17. Sequence(Sequence[Segment[(xint2 * (j - 1) + xint1 * i, ymax), (xint2 * (j - 1) + xint1 * i, ymin)], i, 1, 4], j, 1, ceil(xmax / xint2)) → list5
18. Sequence(Sequence[Segment[(xmin, (j - 1) * yint2 + yint1 * i), (xmax, (j - 1) * yint2 + yint1 * i)], i, 1, 4], j, 1, ceil(ymax / yint2)) → list6
19. Sequence(Segment[(k * i + 0.5 * k, 0), (k * i + 0.5 * k, (-h) / 2.5)], i, 1, n - 1) → list9
20. Sequence(Segment[(k * i, 0), (k * i, (-h) / 2.5)], i, 1, n) → list8
21. Textfield(text23) → inputBox2
22. Textfield(text24) → inputBox4
23. Textfield(yint1') → inputBox1
24. Textfield(xint1') → inputBox3
25. RotateText("Frequency", 90*°) → text12