P(n,p,k<=r)

Erwartungswert

Wahrscheinlichkeit(Treffer≤r)

Standardabweichungsintervall

Wahrscheinlichkeit(Treffer≥s)

Optionen

Parameter

Experimentierkasten zur Binomialverteilung

n = 20 (slider from 0 to 200, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
mu: n * p
sigma: (n * p * (1.0 - p))^(0.5)
A: (mu, 0.0)
B: (mu, 0.4)
Erwartungswert = Segment(A, B)
r = 0 (slider from 0 to 200, step 1)
φ(x) = 1.0 / (sigma * (2.0 * 3.141592653589793)^(0.5)) * exp(-(x - mu)^(2.0) / (2.0 * sigma^(2.0)))
s = 200 (slider from 0 to 200, step 1)
a = BarChart(-0.5, n + 1.0 - 0.5, Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n, 1.0])
t = 1000 (slider from 1 to 1000, step 1)
c = BarChart(-0.5, r + 1.0 - 0.5, Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, r, 1.0])
Φo = UpperSum(φ, -30.0, r, t)
Φu = LowerSum(φ, -30.0, r, t)
d = BarChart(s - 0.5, n + 0.5, Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, s, n, 1.0])
b = false
C: (mu - sigma, 0.0)
D: (mu - sigma, 0.4)
E: (mu + sigma, 0.0)
F: (mu + sigma, 0.4)
f = Segment(D, C)
g = Segment(E, F)
j = false
e = false
h = false