概率分布：超几何分布

GeoGebra 命令及参数

1. If(c ≟ 3 ∨ c ≟ 5, (((a - d) / a)^(c - 1) * d / a), 0) → i
2. If(c ≟ 4 ∨ c ≟ 6, (((a - d) / a)^(c - 1) * d / a), 0) → ii
3. Intersect(xAxis, yAxis) → A
4. Segment(A, B) → f
5. Segment(A, C) → g
6. Segment(D, E) → h
7. Segment(D, F) → j
8. Segment(G, H) → k
9. Segment(G, I) → l
10. Segment(J, K) → m
11. Segment(J, L) → n
12. Sequence(1, a) → l1
13. Sort(Sample[l1, d, false]) → l2
14. If(d ≟ 1, ("" * Element[l2, 1]), Element[l2, 1] + " or " + (Element[l2, 2])) → e