使用二项分布进行假设检验

GeoGebra 命令及参数

1. Sequence(((nCr[n, r] * p^(r)) * (1 - p)^(n - r)), r, 0, n) → L
2. BarChart(-0.5, n + 0.5, L) → a
3. Sequence(Sum[L, i], i, 1, n + 1) → S
4. BarChart(-0.5, c_1 + 0.5, Take[L, 1, c_1 + 1]) → c
5. BarChart(c_2 - 0.5, n + 0.5, Take[L, c_2 + 1, n + 1]) → d
6. BarChart(-0.5, c_3 + 0.5, Take[L, 1, c_3 + 1]) → f
7. Element(S, c_3 + 1) → s_3
8. BarChart(c_4 - 0.5, n + 0.5, Take[L, c_4 + 1, n + 1]) → g
9. Segment(A, B) → i
10. Point(i) → X
11. Segment((x(X), 0.3), (x(X), -0.1)) → j
12. BarChart(-0.5, x(X) + 0.5, Take[L, 1, x(X) + 1]) → k
13. Element(S, x(X) + 1) → x_1
14. BarChart(x(X) - 0.5, n + 0.5, Take[L, x(X) + 1, n + 1]) → l
15. If(x(X) > 0, 1 - Element[S, x(X)], 1) → x_2
16. Element(S, c_1 + 1) → s_1