随机直方图（不等组距）

GeoGebra 命令及参数

1. Random(1, 3 + If[j, 0, 0]) → A1
2. Random(1, 5 + If[j, 0, 0]) → B1
3. Random(1, 5 + If[j, 0, 0]) → B2
4. Random(1, 5 + If[j, 0, 0]) → B4
5. Random(1, 5 + If[j, 0, 0]) → B5
6. Random(1, 5 + If[j, 0, 0]) → B3
7. Histogram(A1:A6, B1:B5) → a_1
8. Random(2, 5) → b_1
9. Polygon(A, B, C, D) → poly1, a, b, c, d
10. Polygon(E, F, G, H) → poly2, e, f, g, h
11. Sum(B9:B13) → B15
12. TableText(list1, "c") → text3
13. Segment(C8, C9) → D8
14. Segment(C9, C10) → D9
15. Segment(C10, C11) → D10
16. Segment(C11, C12) → D11
17. Segment(C12, C13) → D12
18. Segment(C13, (20, B9 + B10 + B11 + B12 + B13)) → D13
19. Segment((-10, 0), C8) → D7
20. Random(0, 1 + If[j, 0, 0]) → type
21. If(($E8 ≤ $B$15 / 2) ∧ ($E9 > $B$15 / 2), 1, 0) → F9
22. If((E9 ≤ $B$15 / 2) ∧ (E10 > $B$15 / 2), 1, 0) → F10
23. If((E10 ≤ $B$15 / 2) ∧ (E11 > $B$15 / 2), 1, 0) → F11
24. If((E11 ≤ $B$15 / 2) ∧ (E12 > $B$15 / 2), 1, 0) → F12
25. If((E12 ≤ $B$15 / 2) ∧ (E13 > $B$15 / 2), 1, 0) → F13
26. Sum(H9:H13) → H14
27. If(($E8 ≤ $B$15 / 4) ∧ ($E9 > $B$15 / 4), 1, 0) → I9
28. If(($E9 ≤ $B$15 / 4) ∧ ($E10 > $B$15 / 4), 1, 0) → I10
29. If(($E10 ≤ $B$15 / 4) ∧ ($E11 > $B$15 / 4), 1, 0) → I11
30. If(($E11 ≤ $B$15 / 4) ∧ ($E12 > $B$15 / 4), 1, 0) → I12
31. If(($E12 ≤ $B$15 / 4) ∧ ($E13 > $B$15 / 4), 1, 0) → I13
32. Sum(K9:K13) → K14
33. If(($E8 ≤ (3 * $B$15 / 4)) ∧ ($E9 > (3 * $B$15 / 4)), 1, 0) → L9
34. If(($E9 ≤ (3 * $B$15 / 4)) ∧ ($E10 > (3 * $B$15 / 4)), 1, 0) → L10
35. If(($E10 ≤ (3 * $B$15 / 4)) ∧ ($E11 > (3 * $B$15 / 4)), 1, 0) → L11
36. If(($E11 ≤ (3 * $B$15 / 4)) ∧ ($E12 > (3 * $B$15 / 4)), 1, 0) → L12
37. If(($E12 ≤ (3 * $B$15 / 4)) ∧ ($E13 > (3 * $B$15 / 4)), 1, 0) → L13
38. Sum(N9:N13) → N14