二项分布参数调整

GeoGebra 命令及参数

1. Sequence(((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n) → s
2. Sequence((i, Element[s, i + 1]), i, 0, n) → points
3. Sequence(Segment[Element[points, i + 1], (i, 0)], i, 0, n) → segments
4. Element(points, r + 1) → kPoint
5. Segment((r, 0), Element[points, r + 1]) → kSeg
6. Sequence(((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n) → s_1
7. Sequence((i, Element[s_1, i + 1]), i, 0, r) → points_1
8. Element(points_1, r + 1) → kPoint_1
9. Sequence(Segment[Element[points_1, i + 1], (i, 0)], i, 0, n) → segments_1